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F.Miiller/T.Petrowskr 

C64 - GEOS 1.3 feutsch 

1988, 571 Seilen, inkl. Diskette 

Brand aktueli: das Anwendungs-, Program- 

mier- und Syslemhandbuch jetzt fur die 

neuesle GEOS-Version 1.3. 

Bestell-Nr. 90570, ISBN 3-89090-570-6 

DM 59,- sFr 54,30/bS 460,20 
F.MullerfT.Pelrowski 

C64 - Alles iiber GEOS 1.2 

1987. 461 Seiten, ink!. Diskette 
Das umfassende Buch QberAnwendung 
und Programmierung der gratischen Benut- 
zeroberflache GEOS mil vielen Hilts- und 
Beispielprogrammen auf Diskette. Die Dis- 
kette enthall auch einen Makroassembler 
und Monitor zur Programmierung, Manipula 
tion und Analyse von GEOS. 
Bestetl-Nr. 90461. ISBN 3-89090-461-0 

DM 49,- SFr45,10/6S 382,20 
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W. BesenthalW. Muus 

Alles iiber- den Plus/4 

1987, 373 Seiten 

Das Buch enlhall ubersichllich gegliedert 
alia intormationen. die fur die praklische 
Arbeit am Computer nctwendig sind. 
Bestell-Nr. 90410. ISBN 3-89090-410-6 

DM 39r sFr35,90/6S 304,20 

W. BesenthalU Muus 

Alles iiber den C16 

1386. 292 Seitan 

Bestell-Nr. 90386, ISSN 3-89090-385-1 

DM 39,- sFr 35,90/0$ 304,20 
Ch.Spilzner 

ROM-Listing C16, C116, Plus/4 

1987, 436 Seiten 

Beslell-Nr. 90425, ISBN 3-8909O-425-4 

DM 49,- sFr 45.10/6S 382.20 



Commodore Sachbuchreihe 

Alles iiber den C64 

2. Aufiage 1986, 514 Seilen 
Dieses umfangreiche Grundlagenbuch enl- 
hail ne ben einem umfassenden BASIC- 
Lex ikon alle tnformationen und Tips, die der 
Spezialisl zur Grarik- und Musikprogrammie- 
rung bertotigl. Mil Anhang zum Betriebs- 
syslem GEOS. 
Best.-Nr. 90379, ISBN 3-89090-379-7 

DM 59r sFr 54.30/65 460,20 



F. Riemenschneider 

C64/C128 - Alles iiber 
Maschinensprache 

1988, 320 Seiten, inkl. Diskette 

Ein umfassendes Komplettwerk fur die 

Entwicklung von eigenen Assembler- 

programmen auf dem Commodore 64. 

Alle benbtigien Software-Vorausselzungen 

werden auf der beiliegenden Diskette 

mitgetiefert. 

Bestell-Nr. 90571, ISBN 3-89090-571-4 

DM 59r sFr 54,30/dS 460,20 




C 64 fur Insider 

1988. 550 Seilen 

Das ROM- Listing ist eines der wichtigsten 

Werkzeuge des ernsthaften Programmie- 

rers. Ebenso benolrgt er eine komptette 

Beschreibung der RAM-Speicherzellert, die 

von Betrtebssyslem und Basic-Interpreter 

verwendet werden. 

Die Besonderheit dieses Werkes liegt in der 

einzigaligen Aulbereitung der ROM- 

Roulinen, der dokumentienen Speicher- 

belegung (Memory Map) und einem Begleit- 

texl, der die internen Zusammenhange 

selbst einem Ante nger verstandlich macht. 

Auch wenn Sie schon ein C64-ROM-LiSting 

besitzen - dieses neue Werk sollten Sie 

sich nicht entgehen lassen. Selbst ausge- 

fuchsten Profis bietet as noch neue 

Intormationen. 

Bestell-Nr. 90481, ISBN 3-89090-481-5 

DM 59r sFr 54,30/dS 460,20 
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F. Mutter 

C64, Tips, Tricks und Tools 

1988, 439 Seiten. inkl. Diskette 
Tastatur-Tricks, Einzeiler. Peeks und Pokes, 
Basic-Routine n und Maschinenroutinen als 
Tuning fiir Ihre Programme, Toolkit-Pro- 
gramme mil alien Funktionen wie Merge, 
Renumber, Delete, Find, Auto und Dump. 
Prog ram mopttmierung von Windows und 
komtortable Auswahlmenus, Maskengene- 
rator im Praxiseinsalz, effektives Program- 
mieren in Assembler, Hilfs-, Monitor- und 
Kopierprogramme. Spiele-Pokes, Efstellen 
von Sicherheitskopien geschutzer 
Programme. 
Bestell-Nr. 90499, ISBN 3-89090-499-8 

DM 59,- sFr 54,30/bS 460.20 
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Es gibt ein Schlagwort in der Computerbranche: Die 
Software-Krise. Zu Deutsch: Es gibt nie genau die Softwa- 
re, die man im Moment gerade braueht, und wenn doch, 
fehlt ihr genau die eine Funktion, die man so notig brauchte. 

Fur den C128 gilt dies in verstarktem MaSe: Obwohl dieser 
Computer sehr leistungsfahig ist, wurde er von der Software- 
Industrie nie richtig angenommen - von einigen wenigen 
Textverarbeitungsprogrammen etc, abgesehen. Eine steile 
Qualitatsentwicklung der Software, die dann »alles aus der 
Kiste 'rausholt«, hat es von Seiten der Software-Industrie - 
mit Ausnahme von Geos 128 - nicht gegeben. 

Von Seiten der C128-Fans aber sehr wohl: Sie entdecken 
immer neue Raffinessen in der Programmierung dieses 
Computers und die Programme die dabei entstehen, konnen 
sich im wahrsten Sinne des Wortes sehen lassen. 

Mit unseren Sonderheften wollen wir den C128-Fans ein 
Podium bieten, eine Software-Borse, die alien C 128-Besitzern 
diese Programme zuganglich macht - und die Software-Krise 
beseitigt, 

Auch in dieser Ausgabe bieten wir Ihnen daher wieder ei- 
nige auBerst interessante Programme an, die es fur diesen 
Computer bislang nicht gab: 

Das Haushaltsbuch erlaubt Ihnen, alle privaten Einnahmen 
und Ausgaben komfortabel zu verwalten. Ubersichtliche 
Druckfunktionen lassen Sie dabei uber den Stand Ihres Bud- 
gets nie im unklaren. 

Wahrhaft professionell ist auch die Schachverwaftung, ein 
Programm, das schon auf verschiedenen groBen Schachtur- 
nieren - so zum Beispiel bei den 15. Dortmunder Schachta- 
gen - erfolgreich zur Turnierverwaltung und Auswertung her- 
angezogen wurde. 

Was geschickte Programmierer dem C128 entlocken kon- 
nen, zeigt Super-Vectors, eine Weiterentwicklung des Spiels, 
das Sie im Sonderhefl 29 finden konnten. Es nutzt jetzt den 
64 KByte groBen Video-Speicher des neuen C128D im 
Blechgehause vol! aus und wartet daher mit einer Grafikauf- 
losung von sage und schreibe 736 x 354 Punkten auf. Das 
erreicht nicht einmal ein professioneller PC mit Hercules- 
Grafikkarte. 

Ein Leckerbissen fur Besitzer des 24-Nadel- 
Druckers NEC P 2200 ist Zenec 2.0, ein Zeichensatzeditor, 
mit dem Sie die tollsten Schriften fur Ihren Drucker in Letter- 
Qualitat entwerfen konnen. Auch dieses Programm besticht 
durch professionelles Software-Design. 

Grundlagen zur Grafik- und Assembler-Programmierung, 
sowie uber 25 Seiten der besten Tips & Tricks aus dem 
64'er-Magazin runden dieses Sonderheft ab. 



Klaus Schrodl 
(Leitender Redakteur) 




MANAGEM 




I IN HALT 



Anwendungen 



Ihr Geld lm Griff 

Das eSektronische Haushaltsbuch bringt Ord- 
nung in Ihre Ftnanzen. Buchungen inrterhalb ei- 
nes Monats Oder eines Jahres sind mit diesem 
komfortablen Hilfsprogramm spielend zu kontrol- 
lieren. So stopfen Sie Locher in der Kasse durch 
geschickte Pianung. 

Schachverwaltung fiir Prof is 
Organ is ieren Sie groBe Schachturniere Oder 
wenden Sie dieses Programrn irn Freundeskreis 
an. Die Auslosung der Partien und die Ergebnis- 
verwaltung ubertassen Sie von nun ab dem 
C128. Schweizer System und Buchholzwertung 
werden naturlich berucksichtigt. 



Grundlagen 



Tips und Tricks fiir den Einstieg in 
Maschinensprache 

Assembler ist die schwierigste Programrn ierspra- 
che, aber auch die effektivste. Den Einstieg in 
diese faszinierende Sprache erleichtert Ihnen der 
Erfahrungsbericht eines gestandenen Assem- 
bler-Prof is. 




Grafik 



Computerlandschaft in drifter Dimension 

Dreidimenstonale Grafik ist immer faszinierend. 
Sie werden staunen, wenn »3D-Landkarten« be- 
liebige Landsehaften und Figuren in dreidimen- 
sionale Hohenreliefkarten wandelt. Die Ausgabe 
erfolgt wahlweise auf Bildschirm Oder Drucker. 



Tools 



Basic total 

Diese Fteset-feste Basic-Erweiterung bietet Qber 
100 neue Befehle. Die Grafikbefeble sprechen 
den VDC an, sind also fur den 80-Zeichenmodus 
vorgesehen. Editierbefehle, Speichermanipulatio- 
nen und viele weitere Hohepunkte warten auf 
den Anwender von Supra-Basic, 



Ein 
paar Hunderter 

konnen bei 
geschickter Haus- 
haltsfuhrung 
schon iiberbleiben. 

Diese konnen dann fur die »kleinen Annehmlichkeiten 
des Lebens<> ausgeben. Das »Haushaltsbuch«, ein 
Top-Programm fur den C128, hitft Ihnen dabei. 
Selte 6 



38 



Grafik richtig programmieren 
Das Basic 7,0 des C128 bietet sehr leistungsfahi- 
ge Grafikbefehle, Lernen Sie diese unter neuen 
Gesichtspunkten kennen, Ausfiihrliche Seispiele 
zu den einzetnen Befehlen fuhren zum ein- 
drucksvollen Einsatz in eigenen Programmen. 



41 



Jonglieren mit Shapes und Sprites 

Bewegte Gafik ist das Salz in der Suppe eines 
jeden Program ms. Zaubern Sie Bewegung auf 
den Bildschirm, verwenden Sie Shapes und 
Sprites. Zahlreiche Demo-Programme zeigen de- 
ren richtige Anwendung. 



54 
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Power 128 - Das Super-Tool 

Manipulieren Sie Ihre Disketten mit diesem Hilfs- 
programm. Das machtige Werkzeug unterstutzt 
das Verandern der Boot-Spur, druckt Directories 
als Dtskettenaufkleber und vieles mehr. Das Pro- 
gramrn ist durch die eingebaute Schnittstelle fast 
unbegrenzt erweiterbar. 



Drucker 



Phantastische Schriften mit dem NEC-P 2200 
Selbsterstellte Zeichensatze ftir 24-Nadel- 
Drucker waren bisher fiir viele Anwender nur ein 
Traum. Diese Lucke schlieBt »Zenec V2.0«. Die 
erstellten Schriftarten sind dem Drucker »beizu- 
bringen« und dadurch mit einer Textverarbeitung 
zu nutzen. 
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Tips & Tricks 



Das C 128-Schatzkastchen 

Mehr als vier Dutzend heiBe Tips & Tricks zum 
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Was bei dem C64 nur mit wusten POKE-Orgien 

zu bewerkstelligen war, geht befm Basic 7.0 

des C128 komfortabel und bequem: 

Die Program mierung von bewegten Grafikobjekten, 

den Sprites. 

Selte 54 




•>Super-Vectors« - ein atemberaubendes und fesselndes Spiel: Ob Sie 
zu zweit spielen oder gegen den Computer antreten: Spannung ist 
garantiert. Spezlell fiir den C128D mit 64 KByte Video-Speicher geschrie- 
ben, ist Super-Vectors das erste Spiel, das die enorme Blldschlrm- 
Auflosung von 736 x 354 Punkten nutzt. 
Seite 150 



Schach - das Spiel 
der Kdnrge - 
erfreut sich steigender 
Beliebtheit. 
In Schachturnieren 
messen sich die Anhanger 
f dieses Sports in ihrem 
Konnen. Urtser Programm 
»Chess-Tournament« 
ist ideal fiir die Verwaltung 
7 solcher Schachtu miere. 
Die Ansetzung der Partien 
erfolgt nach dem Schweizer 
System. 
Selte 18 

C128 naben wir hier fur Sie in ubersichtlicher 

Form zusammengestellt. H 120 

Von Unidat Pro zu Mastertext 

Mastertext und Unidat Pro gehoren zu den be- 
sten Anwendungsprogrammen fiir den C128. 
Nutzen Sie zukunftig Unidat-Dateien fur das Er- 
stellen von Serienbriefen mit Mastertext. 



Spiele 



Durch's Nadelbhr zum Sieg 

Die wilde Jagd uber den Bildschirm verspricht 
spannende Stunden zu zweit. Aber auch der 
Computer steht als Gegner bereit, bei dem Ren- 
nen uber 736 x 354 Bildpunkte. Diese Auflosung 
ist genau wie das Spiel: einfach Spitze. 
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Solitaire 

Das Spiel fur einsame Stunden jetzt auch auf 
dem C128. Finden Sie die riehtige Strategic?. 



156 



Eingabehilfen 



Checksummer 128 und MSE 

Diesen Artikel sollten Sie unbedingt lesen, wenn 
Sie Programme aus diesem Sonderheft abtippen 
wo lien, 
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Sonstiges 



Editorial 



Biicher 



Futter fur den Geist 

Diese Auswahl aus dem riesigen Angebot an Li- 
teratur zum C128 erleichtert Ihnen die Entschei- 
dung beim Kauf. 



Impresum 
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Alia Programme aus Antfkein mil ein&m HS-SyrnboJ fin-den Sie auch 
auf der Programmssfvtae-Dlskflrte zu diesem Sonderheft 




64'er Extra: Gralik VoL 1 

Giga-CAD Unschlagbare 3-D-Kqnslruklion aul 
dem CB4 Hi-Eddi Das SuperZeichen- und 

■Mai programs Title Wizard G>ga-CAD*Fl[me 
lur eigene Vorspanne. Pic-Loader. Verwenden 
Sie m-Eddi-Graliken fur eigene Programme 
Hi-Maus Maus-Treiber liir Hi-EddL Hi-Spiaget. 
Spfegeh 3*e befrebjge Ausschrulle emer Gralik 
Filmconverler Giga-CAD-FiJmekonnercmii die- 
gem Programm in das Hi-Eddi-Format umge- 
wandetl warden. Druckeranpassungen lur Hi- 
Edda- PrmlmJPIoEEerVCl52G, MP £-60 1.B0^8Q3. 
Seikosha GP 700VC. Slar NL-iO. C Hoh-3510. 
C 11 oh R iceman C+ 

Bestell-Nr. 38701 

DM 49,90* (sFr 44^0763 499,-*) 

64'er Extra: Grafik VoL 2 
Bestell-Nr. 387Q2 

DM 39,90* isFr34,9C7dS399,-*) 

64*er Extra: Grafik Vol.3 
Bestell-Nr. 38703 

DM 39,90* fsFr 34,90765 399,-*) 



Ad venture-Pack Vol* 1 

Robox: Fesgelndes GraMk-Science-Fiction 
Adventure Oer Herrschereinesfrgmden Plane- 
len lieTJ sein Gehirn nach seinern Tod kunstllch 
werterleben - m einem Korper ohne Seele Hire 
Aufgabe isE e$. zu Robe* ;u gelangen und ihn 
unschadlich zu machen, um die Erde vor dem 
sicherenTod2ubewahren. WieSceestun, Weibi 
Ihnen uberlassen Mil dem mitgelieierten Fall- 
Editor konsl r u i firen S Ie we ile re Ver brae hen und 
geben damn ihren Freunden harfo Nusse zu 
knacken Scotland! Yard* Spannendes Krirnmal- 
Advsnture Begeben Sie sich aul spannende 
Vterb-rscherpgd in das London des 10 Jahrftun- 
derls und lassen Sie Etch bei Scotland Yard 
engagieren 

Mit dem mitgeili'Sferten Falt-Editpr konstnjiaren 
Sie wertere- Verb recti en. und geben damil Ihren 
Fteuftdsn harte Musse zu knacken 

Bestell-Nr. 38704 

DM 29,90* ( 5 Fr 24,9076$ 299.-") 



64'er Extra: Disk-Utilities VoL 2 

Dlsk-Mon B4 Professional ler Floppy- und Dis- 
ketlenmoniior Master-Copy Backup-Kopierpro- 
gramrn. Dual-Filecopy: File-Kopierprogramm (Or 
jweiLaulwerke Track-Copy" Einlaches Kopieren 
und Form at ieren von emse I ne n Tracks Torn ado- 
Copy 1571: Schnelfes Backup-Programm fur 
ei'nse i E ig bespielle Die kette n Hyp ■ fi-load/Save : 
Sollwaie-Speeder iw C64 Hypra-Perfekt: Hypra- 
LQAD/SAVE. eingebundan ins Belnebssystem, 
EXOX V3 Leistungslaniges Betrrebssyslem PCjr 
C64. ProDlsk: Komfor table DiskettenverwaHung 
in Assembler EX.DIR £ BAM Ausfuhrliches 
Directory Hypra- Format 1541: Formatieffineirter 
Diskette in nur SSekunden Disk-Searcher 
Findat sehrschneEl beliebigeZeichenkellen aul 
Diskette. Frle^Managet; Befehpserwarlerung Eur 
Varwallung von Diskfitten. 

Bestell-Nr. 38707 

DM 49,-* (sFr 4H.-V0S 490.-') 

64'er Extra: Disk-Utilities Vol. 1 
Bestell-Nr. 38706 

DM 49,-* |sFr 44,-VdS ■; 



64'er Extra: 
Programmier-Utilities Vol,1 

Diese Sammlung leistungslahiger Baslc-Befehls- \ 
erwanerungen ermoglicM bs Ihnen, mit germ. 
gem Aul wand hachwefhge Programme zu 
schreiben Kypra-Basic: Mil diesct modular 
aufgsbauten Bafehlserweiterung wrrd es Ihnen 
moglich, ]e nach Anwendungsgebiel Betehle 
und FunMionen jusammenslellen Special- 
Basic; Ubor 200 neue Basic-Belehle. die untei ' 
anderem die Bemiche ProgrammGdilor, struklu- 
rterTe programmierung. l(Oml£iriatrlr?r Zmchen- 
satz. Sound sowje Ein-/Aussane- und Disken-jn 
zugriUe umfassen. hallen Ihnen ,n fast alien 
Situaironen. schnell und elfe^Tiv - T u program- 
miere-n 

Bestell-Nr. 38716 

DM 39,-* [sFr35--faS390.--| 
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C16C116* Plus/4 




McsterBASE 
Plus/4: 

profcisiondle 
Dfltei- 

svitcm 



64 H er Extra: 

C16 - C116 - Plus/4 WlasterBase 

Das Programm Master/Base bietet unler ande- 
rem rolgende MtiglichKeilerv Benulzerfuhrung 
durcb Pull*dcwn-Menus un.d Windows, mas- 
kierte Suchmdgli£hkerr,en, mdaxsaquenlieller 
Zugriff. Reorganisation von zerstbrten DalGn- 
beslanden, komf.ortablerEdrlor, u. a. 2ur EtsieI- 
fung von Date^Masfcen. Feidattnbute-n ale 
opt i male D rue keran pass ung, faldspezirische 
ESC-Sequenxen, Parameterdateien fur sernal- 
Ion. und paraUelen DruckerbeTneb. vorgefertigte 
und erwellerbare Code-Tabellen. Tasfatur- 
Macros. Daten-Jm- und -Export, Code- 
Wa ndf u n g von externem Datejen , Ef steli u n g von 
Serlenbriefen odef Rundschreiben 

Besiell-Nr. 38719 

DM 49,-* (sFrdJ,-7oS49a--) 




64'er Extra: Abenteuer-Spiele 
Sein letiler Trick. Chicago zut Zeit der Pro- 
hibition' Beim KartenspieiengewmrtenSiaeine 
klein-eBrennsrel. Kurz vor der Ausfuh rung eines 
groflen Auf frags fliegt In re Brennerei au'f. Bei 
e i nem BoG aus de r M i no Ch f cag as, Do n Spazza* 
tura. erstehen Sie -Ersalzmateriah, Leider 
werden Sie von Spazzatura betrogen, er hat 
Ihnen nur Wasser verkaufl' Jatzt schwmen Sie 
sich nui eines. Ruche- fur Don Spazzatura 

Wanderung. Irgcndwann in fernsr Zukunlt. S«e 
sind der elnzige Ubadebende eines Raurosefulf- 
abslurzes. fhre ejnjtge Uberiebertschance 
beslertl darm. den nachsten Raumhafen in 
erroichen - aber Sie mii$sen slch beeilen. denn 
Ihr Sauerstoffvcrrai isl begrenzt. . . 

Bestell-Nr. 38715 

DM 39,-* rsFr35,-voS39a-) 



128'er Extra: The Best of 128'er 

Hier linden Sie die beaten Programme fur den 
C 128, dip- im 64 'er Magazm und in den Sender- 
heften vefoffentJichl warden. MASTERTEXT 
ProfessiDnelltfTaafver&rbHitung, COLOR-PACK 1 
Supsr-GrankerweMerung (ABO ■ 240 Punfcte 
Aulldsung) TOP-FLOP: LeistungslatiigeE Dta 
kettenmomlor. DOUBLE-ASS Zwei-Pafl- 
Assembler. Uniersiulzung des ZfiO WINDOW- 
TECH: Befriebssystem-Erwenerung. Uniersiul- 
zung von 10 Windows CENTRONICS 
SCHNITTSTELLE Unterstutzung beliebiger 
CENTRONICS-Druckex. MfCRO-HARDCOPY 
Gestochen scharfe Hardcopys fur Epson- 
Omeker und Kompadble VECTORS: Super- 
Spiel im BQ-ZeiChen-Modus. UNI BOOT Boot- 
seklor manipuliefen. 

Bestell-Nr. 38712 



DM 49"* <aFr44, 



128'er Extra: Paint R.OJ.A.L. 

Paint R.O.I. A L isl eines der wemgen Mal- 
progranime, cfie die hochsic- Auflosung Ihres 
C128 verweriden. Wahlwetse konnen sogar alle 
16 Farben vemvendei warden, Leistungsmer*- 
male Aulfosung: 64-0-300 Punkte (schwarz- 
weifl} 640-176 Punklo (FarbB). vielFaltige 
Blockoperalionen Kopieren, Loschen, Laden. 
Speichem, Spiegein, Roliefen. beliebiges Ver 
gro^ernund Verkleinern vvahlweiseAu-Bluhrung 
aHer Zeichenfunkllonen mil pjnsel Oder Spruh- 
dose, deNnieren von Gralikfenslem, Jei&tungs- 
fahige Pins&lfunklion mil froi delmierbaren 
Pinselformen, Spruhoosenfunkfion, kombinier- 
bar mil den zwdll Pinsatlormen und Musiern. 
Radlergummi, Un Do-Funk (ion, Obernahme von 
C8J-Bildern, Ladon aus dftm DttBCWry 

Bestell-Nr. 38736 

DM 49,-* |sFr4d.-7oS490,--) 



M a ( k I a Tec hri ik- P rodukte 
erhallen Sie in den Fachableilungen 
der WarsntiSuser, im Versand ha ridel, 
in Computer-Faehgesehaften oder 
bei llirem Sucrihandler 



Fragen Sie ihren Fach handler 
nach unserem kostenlosen Gesamtverzeicrinis 
mil uber 500 aktuellen Compuierbiichern 
und Software. Oder lordern Sie es direkt 
beim Veflag an! 



'Unveruuidf't:ne Preisemptehlung 



ANWENDUNG 



C128 



konnen Sie das Program m von Diskette laden und started. 
Danach meldet sich die Menu-Auswahl (Bild 1), von der aus 
drei weitere Untermeniis angewahlt werden konnen. 

Dieses Untermenu umfaBt neun Unterpunkte, die entwe- 
der durch die Eingabe des entsprechenden Buchstabens 

Untermenii Haushaltsdatei 



oder mit der Cursortaste angewahlt und mit <SPACE> 
ausgefuhrt werden. 
<a> Laden 

Damit wird (nach einer Sicherheitsabfrage) eine Datei 
(Monat/Jahr) von Diskette ge laden. 
<b> Speichern 

Eine vorher eingegebene Datei wird unter einem frei defi- 
nierbaren Fiienamen auf Diskette gespeiehert. Beantwor- 
tet man die Sicherheitsabfrage mit <J>, wird ein beste- 
hender Filename uberschrieben. 
<c> Ubersicnt 

Hier werden alle laufenden Buchungen, Soil bezie- 



suerwalturg 
T .MM. JJJJ 



. I N II [ 
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Haushaltsdatei 



— b- Speichern 
— c- Uebersicht 

— d- Eingabe 

-e- Ausdrucken 

- f- Gesantsuche 
— g- flendern 

— h- Loeschen 
-i- Sortienen 



Di skettenfunktionen 



-j— Files loeschen 
— h— Files renane 
-1— Uaiidieren 
— m— For Ma tier en 
— n— Directory 



Datun / Notizzettel 



-o- Datun / Uhrzeit 
-p- Farbwahl 
-q- Notizzettel 
-r- Ende • Hilfe 



CURSOR und SPACE 
Oder BUCHSTABEN 



Bild 1. Das Hauptmenii mil seinen Unterfunktionen 

hungsweise Guthaben sowie die Gesamteinnahmen und 
Gesamtausgaben am Bildschirm angezeigt. 
<d> Eingabe 

An dieser Stelle erfolgen die Eingaben fur Abbuchungs- 
art, den Buchungsbegriff, Betrag, Datum und Verrechnung 
(Bild 2). Das Feld Abbuchungsart hat dabei besondere Be- 
deutungen: 

<s> steht fur Sonstige Buchungen 
<m> steht fur Monatliche Buchungen 
<d> steht fur Doppelmonatliche Buchungen 
<v> steht fur Vierteljahrliche Buchungen 
<h> steht fur Halbjahrliche Buchungen 
<j> steht fur Jahrliche Buchungen 

Fur das Eingabefeld <Begriff> sind maximal 18 Zei- 
chen eriaubt. Bei gleichen Begriffen sollte die laufende 
Nummer mit angegeben werden, urn Schwierigkeiten bei 
den Suchroutinen zu vermeiden. 

Der Betrag kann ohne Nullen nach dem Kommaeingege- 
ben werden. Eriaubt sind maximal vierstellige Betrage. 

Das Feld <Datum> bietet zwei Moglichkeiten der Ein- 
gabe: Entweder mit Punkteingabe(z.B. 01.01.88) oder ohne 
Punkteingabe(z.B. 010188). Beim zweiten Beispiel werden 
die Punkte anschlieBend automatisch eingefugt. 

Das Feld <Art> bestimmt durch Eingabe von <+ > 
oder < — > die Verrechnung als Einnahme oder Ausgabe. 

Das Eingabemenu kann durch Eingabe eines Stern- 
chens verlassen werden. 
<e> Ausdrucken 

Der Druckvorgang kann durch Drucken von 
<RUN/STOP> ohne Datenverlust unterbrochen werden. 
Allerdings mu8 dann das Blatt wieder neu justiert werden. 



<f> Gesamtsuche 

Als Suchkriterien sind alle Felder des Eingabemenus zu- 
lassig. Dabei reichen bei eindeutigen Unterschieden die 
ersten zwei Oder drei Zeichen aus. Ein Beispiel: Wir geben 
als Suchkriterium die Zeichen »Ba« ein. Auf dem Bild- 
schirm werden dann alle Buchungen mit den Anfangszei- 
chen »Ba« aufgelistet, also zum Beispiel -Bar 1«, »Bar 2«, 
»Bankuberweisung«. 

Von hier aus konnen Sie weitersuchen, den Notizzettel 
aufrufen oder ins Hauptmenii zuruckkehren. 



Datun: TT. MM. JJJJ 



000015 



Eingabebegri ff 
Freie Zeichen: 



ggf . Mit lfn.Hr 
34806 



Abbuchungsart 

Begriff 

Betrag 

Datun 

Art fry- ? 



Em] 

[ Miete Mohnung 

c ese.ee i 

C 36.89.88 1 
1-1 



iuchung korrekt 



30.09.88 n Miete Uohnum 



ESQ . OO 



Bild 2. Nach jeder vollstandigen Eingabe erfolgt eine 
Sicherheitsabfrage 



I! Zurueck ins M E N U E 
BJ Weitere Buchungen aendern 



(«3 Abbuchungsart 

Ej Begriff 

fc3 Betrag 

L3 DatuM 

U Plus/tlinus 



Miete Mohnung 
_688 . 68 
36.08.88 



->» 



A u s w a h l 
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«0 



Bild 3. Korrekturen konnen auch nachtraglich sehr einfach 
vorgenommen werden 

<g> Andern 

Nach der Eingabe des Suchbegriffeserscheint eine Aus- 
wahl von sieben Menupunkten (Bild 3). Jede einzelne Ein- 
gabe zum Suchbegriff kann gezielt geandert werden. 

Untermenii Diskettenfunktionen 



<f> Loschen 

Sie geben einen Suchbegriff ein, und es wird nach einer 
Sicherheitsabfrage der entsprechende Datensatz ge- 
loscht 
<i> Sortieren 

Die Buchungen werden innerhalb eines Jahres nach Da- 
tum sortiert. 

Die einzelnen Punkte dieses Menus erklaren sich von al- 
leine. Sie konnen haufig benotigte Diskettenoperationen 
wie Anzeige des Directory, Dateien loschen oder umbenen- 
nen, Disketten formatieren oder validieren mit einem Ta- 
stendruck auslosen. 
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Dieses Untermenu bietet eine Reihe nutzlicher Hilfen, 
die der Anwenderzu schatzen wissen wird. Dazu gehflrt ei- 
ne Anpassung der Bildschirmfarben an den individuellen 
Geschmack, eine Anzeige von Datum und Uhrzeit im 

Untermenu Datum / Notizzettel 



Hauptmenii, ein kleiner Reehner und ein Notizzettel mit ei- 
nigen wichtigen Funktionen. 
<o> Datum / Uhrzeit 

Das Datum muB an dieser Stelle mit Punkten und der 
vierstelligen Jahreszahl eingegeben werden. Beispiel: 
15.10.1988 

Die Eingabeder Uhrzeit erfolgtohne Punkte: 131705 be- 
deutet 13 Uhr, 17 Minuten und 5 Sekunden. 
<p> Farbwahl 

Mit den Zahfentasten <0> fur Bildschirmhintergrund, 
<1> fiirZeichenfarbeund <4> furRahmenfarbekdnnen 



ANWENDUNG 







-1- Abbg - auswaehlen 

-2— ftbbg. aufiisten 

-3- Ges.Kalkulation 

-4- Taschenrechner 

'5— Sue hrou tine 

-6- M E M U E 



i:iait?r=K 





Bild 4. Neben dem aktivierten Tasc hen reehner kann 
jederzeit ein Hilfsschirm eingeblendet werden 

Sie den Bildschirm nach ihren eigenen Vorstellungen farb- 
lich anpassen. Drucken Sie die jeweilige Taste, bis die ge- 
wiinschte Farbe erscheint. Bet Taste < 1 > erscheint dabei 
am unteren Bildschirmrand ein Farbbalken in der jeweili- 
gen Zeichenfarbe. 
<q> Notizzettel 

Der Notizzettel bietet sechs Mentipunkte. Bevor Sie je- 
doch mit dem ersten Menupunkt (Abbucbung auswahlen) 
arbeiten konnen, sollten Sie im Programm (Listing 1) in den 
Datazeiien 5670 bis 6380 die leeren Begriffe mit festen Ab- 
buchungen (Miete, Strom etc.) erganzen. Fur den Begriff 
diirfen Sie dabei maximal neun Zeichen verwenden. Bei- 
spiel: 

5670 DATA"+ Gehalt... 2000 MTL" 
5680 DATA"- Miete 500 MTL" 

Sollten die vorgegebenen Abbuchungen nicht ausrei- 
chen, mOssen zusatzlich in Zeile 2 die Dimensionierungen 
der Variablen E1, L1$ und L2$ erhoht werden. Entspre- 
chend kann hier verringert werden, wenn nicht soviele Ab- 
buchungen benbtigt werden. Eine Anderung der Feldgro- 
Sen erfordert schlieBlich noch eine Anpassung der 
FOR..TO...Anweisungen in den Zeilen 3630 und 5630. 

Sind die Datazeiien geandert, wird beim Aufruf von 
<Abbuchung auswahlen > der erste Datensatz eingele- 
sen und auf dem Bildschirm angezeigt. Sie haben nun fol- 
gende Moglichkeiten: 

<s>: Derangezeigte Datensatz wird gespeichert. Mit die- 
ser Funktion gespeicherte Datensatze werden in den 
Notizzettel-Menupunkten 2 und 3 aufgelistet. 



<u>: Mit dieser Funktion kann der angezeigte Datensatz 
iibersprungen werden. 

<n>: Sollte eine Abbuchung, die nur sehr selten vor- 
kommt, fur eine Kalkulation benotigt werden, kann sie mit 
diesem Meniipunkt zusatzlich eingefugt werden. Diese 
Einfiigungen gehen bei Programmende oder bei erneutem 
Aufruf von < Abbuchungen auswahlen > wieder verloren. 

< m>: Mit dieser Taste springen Sie ins Notizzettel-Menii 
zuruck. 

Wahlen Sie von dort aus den zweiten Meniipunkt 

< Abbuchungen auflisten>, werden alle Datensatze auf- 
gelistet, die Sie vorher mit <s> oder <n> ausgewah It ha- 
ben. Die einzelnen Betrage werden subtrahiert oder ad- 
diert und im Ergebnis als Soil oder Guthaben angezeigt. 
Sind mehrEintragevorhanden, konnen Sie zuruckblattern, 
die Liste ausdrucken, den Taschenrechnerakttvieren oder 
zum Notizzettel-Menu zuriickkehren. 

Unter dem Meniipunkt <Gesamtkalkulation> haben 
Sie die Moglichkeit, alle Werte in iibersichtlicher Form auf 
dem Bildschirm oder auf dem Druckerdargestelltzusehen. 
Nach einer Auflistung aller ausgesuchten Abbuchungen 
erscheint eine Aufstellung des Kalkulations-Guthabens 
und des aktuellen Soils, aus dem ein Gesarntguthaben 
oder Gesamtsoll errechnet wird. 

Der Aufruf des Taschenrechners (Bild 4) erlaubt die Ver- 
wendung der vier Grundrechenarten sowie der Prozent- 
rechnung. Eine Ubersicht iiber die wichtigsten Tasten fin- 
den Sie in Tabelle 1. 

Achtung: Bei der Division durch null erfolgt eine Fehler- 
meldung. Nach diesem Abfangen des Fehlers konnen Sie 
ganz normal weiterarbeiten. 

Derfiinfte Menupunkt des Notizzetteis <Suchroutine> 
erlaubt eine rasche Kontrolfe, ob eine eingelesene Bu- 
chung vielleicht schon erledigt ist. 

Den Sprung zuruck ins Hauptmenii bewirkt der letzte 
Menupunkt. 
<r> Ende/Hilfe 

Die Wahl dieses Meniipunktes gibt entweder einige klei- 
ne Hilfen auf dem Bildschirm aus oder beendet das Pro- 
gramm. Nach einem Verlassen des Programms kann mit 

GOTO 5 

ohne Datenverlust wieder gestartet werden. 



CO 


= Letzte Eingabe loschen 


<a> 


= Neustart 


<s> 


= Ergebnisse zwischenspeichern 


<m> 


= mit <s> gesicherte Ergebnisse abrufen 


<l> 


= L6scht den gesamten Rechnerinhalt 


<z> 


= ZurQck ins Hauptmenii 


<P> 


= Abbuchungen auflisten, Soll/Guthaben errechnen 


<%> 


= Prozentrechnen 


<□> 


■ RQcksprung ins Notizzettel-Menii 


<h> 


= Ergebnis Soll/Guthaben (aktuelle Datei) abrufen 


<i> 


= Aktiviert <info> alsHllfe 


<o> 


= Schaltet Reehner aus 



Tabelle 1. Die wichtigsten Funktionen des Taschenrechners 
im Uberblick 



Hinweise zum Programm 



Das Programm ist vollstandig in Basic geschrieben und 
nutzt je nach Voreinstellung den 40- oder 80-Zeichen-Bild- 
schirm. Der Geschwindigkeitsvorteil ist im Fast-Modus bei 
80-Zeichen-Darstellung enorm. 

(Wilfried Webertef) 



11 



ANWENDUNG 



Hardware- 



zum C 64/C 128 






«**ffi 



S#«!L 



Mil 



Uwe Gerlach 
198/; 310 Seiten.inkl. Disk. 
>1it einer leichtverstandliehen Einfuhrung in 
die digitale Schaltungstechnik erholten Sie alb Kennt- 
nisse, die Sie fur den Eigenbau von gunstigen Hardware- 
Erweiterungen benotigen: • D/A- bzw. A/D-WandTer • EPROM- 
Karte • Centra nics-Treiber • Lichtschrankenmodul • Welt-Modem 
und vieles mehr! 

Dieses Buch vermittelt ihnen das theoretische und praktische 
Wissen fur den sicheren Umgang mit der Schnittstellentechnik, der 
Steuer-Software und der Lottechnik. 

Viele interessante Bouanleitungen worten auf Sie: Zu alien be- 
schriebenen Schaltungen finden Sie genaue Selbstbauanleitungen mit 
Stucklisten und Bezugsquellen, auch fur komplerte Bausarze. Neben 
Ma&- und Steuerschaltungen sind viele nCitzliche Zusatze fur den tagli- 
chen Betrieb des C64 enthalten, wie zum Beispiel; entprellter Taster, 
RS232-Pegelwandler, Paddles, Teleschalter, 128-Kbyte-EPROM- 
Karte, Sprachausgabekarte und vieles mehr. ^^^^t 

• Im Anh a ng finden Sie alle Platinen-^^ AoVve 

layouts und eine Diskette mit otadn**^ J 

Treibersoftware im 1541 -Format. 1 knc<W* v « e V>»J «*& h ? 
Hordware-Anforderungen: 
C64 oder C 128 (64er-Modus), ^ 



ster. 



Floppy 1541, 1570, 1571 

Bestell-Nr. 90389 
ISBN 3-89090-389-4 

DM49.- 

[sFr45,10/oS 382,20) 
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8013 Haar bei Munchen, Teiefon (089) 46 13-0 

Bestellungen im Aushnd bitte an: 

SCHWE1Z: Morkt&Tecrmik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, 
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16 PRINT ■'C2HOHEi": IF RWTNDOW (2) -Be THEN FAST : 

et.SE SLOW 
26 PRINT CHR«tl4): COLOR 5.16: COLOR 0, 1 I COLOR 4 

,1s SCNCLR : Dfl*="Ix.aB. 4&J£"s POKE 060,112= P 

OKE 792,99 
36 DIM N*{566> ,5*<506> ,P*<506) ,T*C5CH?) ,U*C566) ,R* 

(26) ,E1 173) ,L1*(72) ,L2*<721 I TRAP 6916 
46 LP*= , '^tI6SPflCE}^"> GOTO 66 
53 PRINT " <200WN,6RIGHT;&IRUECK INS tENUE MIT JAS 

TE": GET KEY A*; SCNCLR 
66 SCNCLR s OPEN l,4,7l CLOSE 1: W=l: PUDEF " "= 

!>*=■• SB": PTP*=" tl«SPACE>" 
76 LSJ="^(3BSPACE> = 

96 L 6 >■= " ff*.«. ».».».* *.*.*. «.*.*«»«.* ».»*»»»»««-»«■»* *■+-* r * « ■*■*,»?» 
166 L4»=" «*»«IMH MM nimu . wttmnwnn.mm 



[ ie L9*-"5i 



**««■■ »»»»»»»»««»»«»*»» mtumt P 



aW'R*tt5) "-0- flATUrt / 



126 L5*-" 4^ViV^VVVH.-+ , ^^VVVVj-V < v < V Vt- < V.Vt-Jr*"4.T-'¥"V¥ 

136 L*=" (13SPACE}" 

146 PRINT "<2HDME,CLR,RVSQNJ BAU5HALTSVERWALTUNG 

1987 <£) t3SPACE>H.HEBER tRVOFF)" 
156 PRINT " (RV50NJ aATOMl " | DA*; TAB ( IB) " (65P0CEJM 

HRZEITl "|TI*| TAB<39> " (RVEON) (RVOFF}": POKE 

229,2 
It© PRINT " (HOME , 1 7SPAC E 1 »»M»tmt.n.tt|ii.ttwi r i 

R*tW>=" <t)VSON)" 
176 PRINT " W «»»«»*«««-»»»»» , »y W=;irFTTPNritNyTTnMFU 

TT 
196 PRINT " — {RV50N,14SPACE,RV0FF»;^i"R*f 16) "-J- 

tlLES LOESCHEN (RVOFF 1 = " 
2e« PRINT " ;=(RVS0N,3SPACE>il £.tSHF. SPACEJHtSMF.9 

PACEJU(SHF.SPACE)£t2SPACE,RVOFF> == "R» ( 1 1 ) "-K- 
tTLES RENAME (3SPRCE , RVOFF ) =" 
216 PRINT " — (RVSON, 1 4SPACE, RVOFF >="R*( 12) "-L- 

SflL ID IEREN I5BPACE ,RVOFF> -" 
226 PRINT " = {RVS0N,4SPAC£JnU5WAKLt3SPACE,RVDFFl 

Z=" R* C 1 5 1 " -M- EDRMAT I EREN C49PACE , RVOFF >^" 
236 PRINT " =(RW£ON,L4SPACE.RVQFF> == "R*{!4>"-«- 

BIRECTORV {63PBCE , RVOFF >-" 

V 

25© PRINT " gwtttwwww-w WMTIlH / BOTIZZETTEL 
26e PRINT " ^aAUSHALTSDATE I B «««»»*»»««»«»»*w*-* 

B* 

27e PRINT ■ Si 

iJHRZEIT tRVOFF> = " 
2Bft PRINT " = " TBBC2)«*( i > "-A- i/lDEN (6SPACE , RVOFF 

)="R* ( 1 6) "-P- EARBWAHL IBSPACE , RVOFF >^" 
296 PRINT " -" TAB(2)R*(2>"-B- SPEICHERN12SPACE.S 

VOFF >^-R* 1 1 7) "-Q- HOT I ZIETTEL [SSPACE , RVOFF) 3 " 
7.66 PRINT " a" TAB12)R*(3J "-C- UEBERSICHT CRVOFF I 

-"R*C1B) "-R- INDE / tULFE(4SPACE .RVOFF }^" 
316 PRINT " a" TOP 12) R* 14) "-D- £INGABE (4SPACE.RVO 

526 PRINT " g* TABt2)R*<51"-E- HUSDRUCKEN tRVOFF> 

=<RV9ON,2eSP0CE,RVDFF>-" 
3T6 PRINT " -" TABt2)RJ<6J"-F-- SESOMTSUCHE CRVOFF ) 

i<RVSQN,2SPACE>£aiaSlB UND 5£RG£<29PACE, RVOFF 1 

•4" IR1NT " = " TABCDRll?)- 5 BENDERN t4SpnCE .RVO 

FF)-{RVS0N,26SPBCE,RVOFF> = " 
3S6 PRINT '■ c" TAB(2)R*(B) , '-M- iOESCHEN C3SPACE ,RV 

OFF> = tRVS0N,2SPHCEJODER{2SPACE)aU£aSXfla&S<2SP 

ACE , RVOFF > = " 
366 PRINT " a « TAB <2>R* tf>"~ I- SPRTIEREN C2SPACE ,R 

7DFF >^tRVSON , 20SPACE. RVOFF }^" 
376 PRINT " Vft***ff**»in^»fc*»w y ^jnnHH^fr*##***tHm*»g* 

T?" 
3B6 DO ! PRINT "{2HDME)";i CHAR ,33,1,TI*,1 
3-J6 GET A*: LOOP WHILE A*= ,,,, = R*<M>»""1 POKE 229, 

2 
466 A-A5C(A*>-64: IF (11 OR A. la THEN 4ii> 
416 ON A SOTO 566,64e,776, 1626, 1346, 1620,1026,232 

6, 2326, 6396, 6466, 6536, 6506, 2916,6B7e,64Se, 339 

6,31Se 
426 IF A*-" - THEN 4B6 

436 IF A*=" tDOWNJ" THEN W-W+l*9» (W-9 OR W=1S) 
446 IF B*="(UP)" THEN U=.W-l-9» IH=1 OR U=16) 
4S6 IF «*=" (RIGHT)" THEN W-W+9+ IB* (W>9) 
466 IF A*="£LEFT}" THEN U=W-9-10» (W< 10) 
476 SOTO 166 
486 R*(W>="" 
496 ON U GOTO 566,646, 776, 162«, 1 346, 1626, 1826,232 

6, 2526, 6396, 6466, 653e,65Be, 2916, 6876 , 46B6 , 339 

e,315» 
366 PRINT "<2HOME,RVS0N,CLR,6SPACe)i.<:65PftCe>At6BP 

ACE)Q(6SPACE}El6SPACEJNt5SPBCE,RVOFFJ" 
516 CHAR ,S,16,"aATEl LADEN C2SPACE3 t J/Nl " : GET K 

EY A* 
526 IF A*-"J" THEN 546 
536 IF A^-N" THEN 66l ELSE 516 
546 CHAR ,5,16," tRVSONI « A M E<2SPACEM>ER .BATE I 

{RVOFF > ": INPUT F* 
556 OPEN 1,8,6,F*+",S,R" 
566 INPUT»1,N 
576 FOR 1-1 TO N 

586 INPUT#I,N*(I) ,S*<I),P*<I>,T*II),U*(I) 
596 NEXT I 

666 CHAR ,3, 16, " C39SPACE>" 
616 CHAR ,3,16,"ES WURDEN" : PRINT N: : PRINT "SJCH 

UNGEN EINGELADEN . " 
626 CLOSE 1 



■;tip> 

<62C> 

<NLU> 

<KHK> 

VA9 
<PP1> 
<CLI> 

<6I6> 

v'G3L> 

>;eEH> 

<G5Q> 

■;RLR> 

<4T1> 

■hF2 
<C72> 
<7J4> 
<B4T> 

<9II> 

<JIO> 
<P23> 
<KMO> 
<B0M> 
<MBJ> 
<GJR> 
<221> 
<1DI> 

■:hdg > 

<9PF> 

-'DOG 

<07T> 

• 9H1 
<N»9> 

<H6C> 

<4KS> 

<3L0> 
<13N> 

•:aoc> 

<4F3> 



<CT6> 
<ORH> 



ciNn> 

■ R26 
<3EL> 



<DP4> 
<MBP> 

•••JLU> 

<BAe> 

<HHL> 
■ 9SL. 
<IBS> 
<J3F> 
<JI4> 
<D1C> 

<3Q2> 

<;eCN> 
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ANWENDI 


JNG 






630 GOTO 50 


<F9B> 


ss=>» 


(ADA/ 






640 PRINT "(2HOME T RVS0N.CLR,3SPACE»,SC3SPACE>Pt3SP 












ACE>£OSPACEJI C3EPACE>C(3SPACE}H{3SPACE)£'£35P 




-MDNAT1 D-BOPPELfTTL aUCHUNO 


<UMR> 






ACE } R f 3SP ACE > N {4SP ACE , RVOFF > " 


<FDB> 


1400 PRINT "[17SPACE>-U-1/4JAEHRLICH H-1/2JAEH 








650 CHAR ,5,10,"WWiE DER ^ATEt ": INPUT F* 


<9PH> 


RL J-JAEHRL. <3SPACe>aiCHUNB": PRINT 


<JB3> 






669 CHAR ,5, 10," «W50N> JSLTE |)ATE1 ZERSTOEREN_jUr" 


„ 


1410 PRINT " [RUSON> aATUM{6SPACE>BRT [6SPACE)aE6R 








N> CRVOFF> ": GET KEY fit 


<A9I> 


lFFt26SPACEJJETRASC4SPACE5*/- ": PRINT 


cain> 






670 IF A*<>"J" THEN 60 


<LDB> 


1420 FOR 1-1 TO N 


<JNT> 






6B0 OPEN 1 ,B, 1 ,"es "*F*+",S,l>r 


<C19> 


1430 S«VALCSS<I>> 


<D9n> 






690 PRINT*!, N 


<B45> 


1440 PRINT TABdlj: PRINT USINB " *»**#»#»"; p* n ) ; 








700 FOR 1-1 TO N 


<3KB> 


: PRINT TAB<5>t; PRINT USING "# , ';U*!I)| 


<UWD> 






710 PRINT*! ,N*(I> I PRINT»1,S*< I) : FRINTWI ,P*( I ) i 




1450 PRINT TAB<7),: PRINT US1NS " H» » ■ « t> H*H»»«t» »»« 








PR1NT»1,T*(1>: PRINT*1,U*(I) 


<LKI> 


mutWtNtd) ; 


<N60> 






720 NEXT J 


<BT4> 


1460 PRINT TAB! 12) J : PRINT USING ■••«*.##" :S: 


JJ6 






730 CHAR ,3,10," t39SPACE>" 


<014> 


1470 PRINT TAB(5)il PRINT USING "*##», »»■'; T* ( I ) 


■ RJA 






740 CHAR ,0, 10, "£S WURDEN" L PRINT N; : PRINT "SJCH 




14B0 N*-MID*1T*(I) ,1,1) 


<K86> 






UNGEN EINGESPEICHERT .« 


<V30> 


1490 I*=STft*<S) 


<67L> 






750 CLOSE 1 


■:56N> 


1500 IF M*-"-" THEN SU-BU-WALU»): ELSE SU-SU+VAL 








760 GOTO 50 


<V7B> 


(I*) 


<404> 






770 REH 


<3A1> 


1510 IF «*»»-'■ THEN S0-SO»VAL<I*)l ELSE E1=ES+VAL 








7B0 PRINT " {2HDME,CLR,RVS0N,ZSPACE>£E3AWTEINNAHME 




its) 


<K93> 






N (2SPACE J UN1> I2SPACE 5 SESAMT AUSGABEN ( 25PACE , RVO 




1S20 NEXT I 


<DT4> 






FFV 


1 Rl 


1530 IF 83>0 ANDtSO<>0 OR EI C>0 OR SU>0> THEN 154 








W0 POKE 229,3 


HNF 





<67S> 






800 SCNCLR : SS=0 


<ORT> 


1540 PRINT LS* 


<L6F> 






810 FOR 1-1 TD N: S=UAL(S#(I>> 


<CT0> 


1530 IF SU>0 THEN PRINT TAB (26) "BUTHABEN(2SPACE>" 








B2» PRINT P*(I);TAB(9);U*(l>;TAB(U)lN*(I> ; TAB131 




lTAB(5»j: PRINT USINB "»#«##.#•" i SU 


' I co-. 






:■;■- PRINT USING "»»*». (I«"jSi 


<OLT> 


1560 IF SU<1 THEN PRINT TAB (29) ■J0U_t3SPACE) " ; TAB 








839 PRINT TAB (39) ;T*(I> 


<FR5> 


(S) 5 l PRINT USINO "»##**. »»" t SU 


<JRE> 






G40 IF INT (1/8)01/6 THEN 900 


<B87> 


1570 PRINT L5* 


<1_UF> 






B50 PRINT " (2DOWNJHAHL W- UWSDN>W£ I TER (RVOFF> *-( 




15B0 PRINT "tilSPACeifiEBAMTEINNAHMEN" 1 1 PRINT TAB 








RVSON>flEN(JE«W0FF> A-«VSONJ,BNFANG (RVOFFl Z-l 




(261 i» PRINT USING "**#*«*.**" X EI : : PRINT 


<9TK> 






RVBDN>ZURUECt<«WOFF}"; PRINT I PRINT 


<OTV> 


1590 PRINT "(11SPACEJEESAHTAUS6ABEN "JI PRINT TAB 








Q69 BET KEY A*i IF A*=."N" THEN B99 


<BMD> 


(26);: PRINT USING "#»*»##. *W";SO: PRINT L5* 


<H1H> 






B70 IF A*="A" THEN B00 


<JBB> 


1600 r-Nl F— 1 


<3K7> 






BB0 IF A*="»" THEN 60s ELSE IF A*-"Z" THEN SCNCLR 




1610 GOTO 60 


<3T8> 






J I-I-16: ELSE B69 


<JSV> 


162© PRINT "<2H0ME,CLR,RVSDN,5SPAC6>at5SPACE)U{5S 








B99 SCNCLR 


<BDJ> 


PACE>C<56PACE>Ht55PACE>E (5SPACE > N C4SPACE , RVO 








990 IF I>9 THEN NEXT li ELBE GOTO B09 


<BFB> 


FF>"i POKE 229,2: PRINT : PRINT 


<QEI> 






910 IF 6S>0 AND1SOO0 OR E1O0 OR SU>9) THEN 929 


<E67> 


1630 INPUT "tUP>> SUCHBEGRIFF < ";W»: PRINT 


<CK9> 






920 GOSUB 7010s PRINT L4* 


<EML> 


1640 F=0i SO=0: S=0: EI-9 


<CPH> 






930 IF SU>0 THEN PRINT " <DOWN, 13SPACE>SUTHABEN<eS 




1650 FDR 1=) TO N 


I7T 






PACE! "I 1 PRINT USING "*«#»#§. ##"jSU 


<EUP)> 


1660 IF LEFT*(N*(I) ,LEN(W«) )=m THEN 1710 


<485> 






940 IF SU<0 THEN PRINT " (DOWN, 17GPACE>,£Df_L(SSPACE 




1670 IF LEFT*(S*(I) ,LEN(W*> > -=W* THEN 1710 


<707> 






}";t PRINT USING "*#**#».»*' J SU 


<WCN> 


16B0 IF LEFT*tP*(I> ,LEN(W*))-N* THEN 1710 


<04P> 






930 PRINT L4* 


<22E> 


1690 IF LEFT*1T*(I) ,LEN(W*))-W* THEN 1710 


<94R> 






960 PRINT "(DOWN> SE5AHTEINNAH11EN" ; : PRINT TAB < 22 




1700 IF LEFT*tU*(I) ,LENIW*))-W* THEN 1710: ELSE 1 








>;: PRINT USING "#*###». »•" |EI 


<NDI> 


750 


<SB8> 






970 PRINT "{DOWN! SE5AHTAUSBABEN ";: PRINT TAB(22 




1710 S-WAL(S*(I)> 


<T0M> 






);: PRINT USING "#**•«* . •• " : SD 


<BDA> 


1720 PRINT P*(I):TAB(9);U*(I>jTAB(ll>)N*(I);TA8C3 








9B0 PRINT L4* 


•:iae> 


lit a PRINT USING "*##*.. *#";S; 


.'EFT ; 






990 PRINT ■■t2D0WN>BUSWAHL(6SPACE)»-nENUE{43PACEJA 




1730 PRINT TAB(39>1: PRINT tlSTNR "H1NH.KH":7FI I' : 








-BNFANG"! PRINT : PRINT 


<2J0> 


N*-mB*(T*(I) ,l,l)i I*-STR«(S) 


<ON0> 






1000 BET KEY A*: IF ft*-"*" THEN 60 


<OD»> 


1740 IF N*=--" THEN SO=B0+WAL ( I*) : ELSE EI-EI+VAL 








1010 IF A*- "A" THEN B00I ELBE 1000 


<7GU> 


tl*l 


<rt05> 






1020 REM 


<3KE> 


1750 NEXT I 


<LU4> 






1030 N=N+1 


<N2B> 


1760 PRINT L4*t PRINT " (DO«N> BESAMTEINNAHHEN" [ 1 








1040 PRINT " (2HOME ,CLR , RVSONJ HAUSHALTSPROGRAMH ( 




PRINT TAB (22);: PRINT USING " #*#»*#. BH"; EI 


<ERE> 






S! 1987 BYt2SPACE>a. HEBER CRVDFF > '■ 


<SIU> 


1770 PRINT "(DOWN> ££SAHTAU5GABEN ":i PRINT TAB (2 








1050 PRINT "{RVSONJ JjftTUH: '■;!>«*; TAB ( IB) " (2SPACE> 




2) ; 1 PRINT USING "»»***». WtfjSO: I=N: F— 1 


<OCB> 






UHRZEIT/"l[MEs ";TI* 


<HFH> 


17B0 PRINT "{2DOWN,3SP0CE)W-WEITER{3BPAOEJ«=nENUE 








1060 PRINT L6*: PRINT ■'^EINEABEBEERIFF (3SPACEJBGF 




C3SPACE }N=HOT I ZZETTEL " 


<1NH9> 






. MIT LFN.jjR. ";NjTAB<39>" i ' i : PRINT LB* 


<023> 


1790 SET KEY A*: IF A*»"W THEN 1620 


<JLR> 






1070 PRINT "^KEIE ZEICHENs -;FRE (O) \ TAB(39> » = »i 




1B00 if A**"*" Then 60 


<:3M6> 






PRINT L9* 


<BB3> 


1B10 IF A*-"N" THEN 3390 


<R19> 






1080 FOR l>l TO 16! PRINT LB*: NEXT Ul PRINT L7* 


<3B0> 


1 829 PR I NT " f 2H0NE , CLR ,RWSON> B^SSPACElEtSSPACEJN 








1090 CHAR .l.l9."tHiH«t»«««m»mn..».«„,„ 


<5tR> 


tSSP«CE>D<5SPACE>ECSSPACElR{3BPACE}N CRYOFFJ 
•': POKE 229,1 


<CIK> 




*****-*" 




11 e>0 CHAR ,1 ,20, "•CRV5DN>aBBUCHUNGS-: S-BONSTIGE<3 




tSS0 INPUT "(2DOWNS > SUCHBEGRIFF < "jU*: F«9: SC 








BPACEsM-NONATLICH (RVOFF*" 


<P78> 


NCLR 


: t t.j 






1110 CHAR , 1 ,2t,"<RV50N}ARTENC8SPACE>I>-DDPPELM0N. 




IB40 FDR 1-1 TO N 


<3NT> 






V-1/4JSEHRL. IRVOFF)" 


<JCR> 


1839 IF LEFT*(N*(1) ,LEN(W«) 1-U* THEN I9O0 


<C56> 






1120 CHAR ,l,22,"(RVBONJ • - flENUE {3SPACE3H- 1 /2JA 




1869 IF LEFT*(S*(I) ,LEN(W*))-N* THEN 1900 


<E10> 






EHRL, J-JAEHRLICH OTVOFFJ" 


■;lqc> 


IB79 IF LEFT* IPX 1 1 ,LEN(W*»)=M* THEN I99B 


<ET2> 






1130 GOSUB 2920 


<LNH> 


1BB0 IF LEFT*(T*(I) ,LEN(W*) )-N* THEN 1900 


•9TS> 






1 1 40 IF V*- " * " THEN N=N- 1 1 GOTO 60 


<6L0> 


1B99 IF LEFT*(Ut(II ,LEN(Wt))=NS THEN 1900t ELSE 2 








1150 U*<N>»LEFT*<Q*,1> 


<OHG> 


299 


<7B2> 






1 1 60 GOSUB 2930 


<NFG> 


1990 CHAR ,0,] ,L6S 


<LIC> 






1170 N*<N>=LEFT*{S*,1B> 


<KPN> 


1910 CHAR ,9,2, LB* 


<K2Q> 






1139 GOSUB 2680 


<L73> 


1920 CHAR ,0,3, "^ IRVSON) 1 flWOFF, SSPACEJi U R U E 








1190 S*(N)»LEFT*(0*,7> 


<WUD> 


C KC3SPACE}INS{2SPACE>BU3HF.5PACE>£<BHF.SPA 








1200 GOSUB 2780 


<IN7> 


CE J H-CBHF -SPACEJUtSHF. BPACE > tt3SPAC E J =." 


<LM6> 






1210 P*(N»-LEFT*(D*,8> 


<HFN> 


1930 CHAR ,9,4, LB* 


<G3A> 






1220 GOSUB 2060 

1230 PRINT " [2DOWN}H»»«««-*.««»««-»»««««»*.-»M.... 


<NNN> 
<503> 


1940 CHAR ,9,5, "^ (RVSDN>2 (RV0FF,3SPACE JJiEITERE t4 

SPACE JSJCHUNGEN <3SPACE JAENDERN I3SPACE > = " 
1VS0 CHAR ,0,6, LB* 


<6T3> 
<C3Q> 




*.*.*.*»»»»*" 




1240 PRINT "^(RVSONIJJJCHUNG KDRREKT tJCNI (16SPACE 




1960 CHAR . 9 . 7 . M - 1 1 6SPADE > B».«.«tt«nnnnm-»«-«-»,<« -»-» t.7 








,RVOFF>" 


•7S 1 


" 


<0FE> 






1250 PRINT "-CRUSQN.SBSPACE.KVCrFFj" 


E6 M 


1979 CHAR ,9,B,"-<RUS0N>3{RW0FF1 aBBUCHUNGSftRT = " 








1260 PRINT TABU):: PRINI USING ■■ CRVSON 1 imitlllt»#t(tl 




: CHAR ,19,B," OSPACEl"; CHAR ,19,B,U*(I) 


<618? 






"5P*(NI s 


<BG3> 


19B0 CHAR ,0,9, LP* 


<57A> 






1270 PRtNT TAB (10);: PRINT USING "»» , ';U*(N)I 


<7KF> 


1999 CHAR ,0,19,-=tRVSONJ4tRUOFF) SEGRIFF {73PACEJ 








12B0 PRINT TA8(U>|! PRINT USING "•***#*«**#**•«* 




= "l CHAR ,19,10,"{293PACE>": CHAR ,19,19.N*( 








#tt*#";N*(N> ; 


<nc9> 


I) 


<QPK> 






1290 S=VAL<S*«N>»: PRINT TAB(30)|: PRINT USING "* 




2900 CHAR ,0,11, LP* 


<57U 






»«#.»»":-S;= PRINT Pf* 


<NUJ> 


20) S=WAL (5* ( I ) ) : PUBEF "B": CHAR ,0, 12, " = (RV50N 








1300 GET KEY A* 


■60D> 


)5<RV0FF> ^eTRAGtaSPACEli": CHAR ,19, 12," (10 








1310 IF AS--J" THEN T* (N> -LEFT*(H», 1 > i GOTO 1030 


<QV9> 


SPACE 1" 


<4KK> 






1320 LO*=CHR* ( 32 ] 


<B19> 


2920 PRINT USING " (10LEFT >•»**. #»"jS 


<EKB> 






1330 IF A*="N" THEN P*<N»=LD*: 5*<N1=CHR* <4B> s N* 




2030 CHAR ,9,13, LP* 


<P7H> 






(NI-LO*: U*<N>-LO*; GOTO 1040: ELSE 1300 


<89P> 


2940 CHAR ,9, 14 , " = tRVSDN16<RVOFF> 2ATUHt9BPACE);;" 








1340 POKE 908,110! SCNCLR 


<6J4> 


1 CHAR ,19,14," {10SPACEJ": CHAR ,19,14,P*(I) 


<I0U> 






13S0 PRINT CHR*(14>t OPEN 1,4,7: CUD 1: PRINT 


<JOJ> 










1360 PRtNT " flAUSHALTSPRDGRAHMtSS 












PACE > BY aiLFRIED iiEBER t2SPACE)flQNAT "(F* 
1370 PRINT " TAGESDATUM : "; BA*t TAB(23> " (2SPACE>U 


<VR0> 


Listing 1. Mit »Haushalt» behalten Sie die Ubersicht. 






HRZEIT/IIPIE: ";TI* 
13B0 PRINT t PRINT : SU*0: S"=0: EI-0: SO=0s F=0i 


<0BK> 


Bitte geben Sie das Listing mit dem Checksu miner 










auf Seite 158 ein. 






'jj*i? 1 


SONDERHEFT 36 




13 



































ANWENDUNG C128 




















2050 


CHAR ,0,15, LP* 


■521 > 




< 1 THEN 27 B0 


<S81> 




206© 


CHAR ,0, I6," = <F«S0N)7{RVOFF} fl-UB/QINUS 44SPA 




2S1© 


IF WAL(MID*(D*,4,2) ) >12 OR VAL (MID* (D*,4 ,2) ) 








CE>^": CHAR ,19,16,T*(I) 


<PDQ> 




<1 THEN PRINT "(2UP3"i: BOTO 27B0 


iHVM> 




207© 


CHAR ,0,17, "-U6HPACF)V#*4*#*IHt**-lHM-**##**^;» 




2B2© 


IF O*"" - ' OR LEN(Q*)<6 GOTO 27B© 


(976 > 






f 


HSA 


2S30 


IF MID*(B*,2, 1 >■". " DR MID* (Q*,5, 1 ) -" . " THEN 






20a© 


CHAR ,0, IB, LB* 


■:DE0.' 




278© 


<DVR> 




2«f?» 


CHAR ,0,19, LB* 


<7EB> 


2B40 


IF MID*(Q*,4,1) = ". " DR MID* (O*, 7, 1 >*>'" . " OR M 






. iee 


CHAR ,0,20, ,, '5a±>»t33PACe>n U S M A H LC4SPA 






ID*(Q*,B, I)-". " THEN 27B© 


<N3J> 






C£}1 - 7{3SPAC6X<<ja'B" 


rxa 


2630 


RETURN 


<P67> 




Zll» 


CHAR ,0,21, LB* 


<B5P> 


2B6© 


CHAR ,1,1A."HRT +/- 7C7SPACE1C I 


<5A6> 




212© 


CHAR ,0,22.L7* 


NT6 


287© 


BET KEY A*l VOL 3l SOUND 1,15000,2 


■ HKT ■ 




2130 


BET LEV A«: A=VAL(A*): IF « IIH A 7 1HEH 21 




28B0 


IF A*="+" THEN PRINT " (3LEFT > C+l" : M*'"+": G 








30 


1 /D 




OTO 2900 


<CT2> 




2140 


ON A GOTO 60, 22B0, 2150, 2170, 2190,2210, 2230 


rtiJ.l 


2990 


IF A*="-" TKEN PRINT '■ {3LEFTH- 1" : H*="-": E 






2150 


ECSUB 2920 


■ GNH> 




OTO 29001 ELBE 2B7© 


<DJG> 




2164 


U*(I)=LEFT*(Ot,l): SOTO 1970 


<6K5> 


2900 


RETURN 


<987> 




2170 


GOSUB 2730 


■ HVG > 


291© 


SCNCLR ; PRINT : DIRECTORY ! GOTO 50 


<SE5> 




2180 


N*(I)=LEFT*(Q», IB): GOTO 1990 


<SK6> 


::*_-.» 


0* = ■' " : CHAR , I , B , " JIB BUCHUN66ART {3SP ACE > C ( 3SP 






2190 


GOSUB 26B0 


CJNS> 




ACE>lf3LEFTl H ! LE*-"W": PU- 1 1 TG-31 : HB-911 






2200 


S*(I)«LEFT*(Q*,7): GOTO 2010 


<24T> 




BQTO 2970 


<PPO> 




2210 


GOSUB 27 B0 


CK77> 


2930 


B*-'"l CHAR ,1, 10, ,, JESRIFFt9SPACEJ[{2©SPACE) 






222© 


P*(I)-LEFT*(D*,B>: GOTO 2040 


<ICP> 




IC20LEFT)": LE*="BE": PU-1B 


<7B9> 




2230 


CHAR ,1,16, "APT +/- -?[7SPACE:>r_{3SPACE>] 


<CBU> 


2940 


T6-31 I HG-255: GOTO 297© 


<FL2> 




2240 


BET KEY A* 


t4SD> 


295© 


0*="": CHAR ,l,!2, 1 'Sm*AGUeSPACE}t<9SPACE>3 






2230 


IF «*=■+■' THEN PRINT " C3LEFT) + (2SPACe>" t n«» 






«UEFT>"I TG-43: HG-57: BDTD 297© 


<40L> 






"+"! SDTO 2270 


<ESO> 


296© 


Q*-"": CHAR ,1, 14,"aATUMti 1SPAGE1 C U09PACE) 3 






2260 


IF A*=--" THEN PRINT " t 3LEFT>-{2SPAC£ J"; N*- 






(10LEFT>": TE-45J H6-S7I EDTO 2970 


<B77> 






"-"i SOTO 2270: ELSE 2240 


<:4GB> 


297© 


BET KEY A*: VOL 3: SOUND 1,15000,2; IF A*=CH 






2270 


T*(I)=MID*<M*, 1,1) : GOTO 2060 


<B2A> 




R*U4B> OR A*-CHR*(34) DR A*-CHR*<44) THEN 2 






2260 


I-N[ F— I 


<6K7> 




970 


<PPP> 




2290 


NEXT I 


<5K4> 


29B0 


IF A I OIRtiT'ii! AND A*OCHR*(13) AND LEN(Oi) 






2300 


IF NOT F THEM PRINT " <2D0WN>«GRIFF "|***l". 






-PU THEN 297© 


<HHE> 






BICHT VQRHANDEN ! ■ ! "l GOTO 50 


<ME©> 


2990 


IF A*=CHfi*US7) OR A*=CHR*(17) OR A*=CHR*(14 






2310 


GOTO IB20 


C7G6> 




51 OR A*=CHR*(29) THEN 2970 


<LB9j 




2330 


PRINT " (2HOME,CLR,ftyS0N,3SPACE>A.CJSPACE>O{4S 
PACE >E C4 SPACE ) S <4 SPACE >C C4SPACE > H {4SPACE ) E (4 




3000 

TAIA 


IF A*=CHR*(20) AND LEN<Q*K1 THEN 2979 

IE A*^TUDtJ,ttt TUCLI »IUT PUD, f 1 ^1 1 ^ n DiTUD* 


<HNB> 






SPACE>N<2SPACE,RVOFF>": POKE 229,1 


<FRO> 




(157)(r Q*-LEFT*(D*,LEN(0*)-I 1 


<N0P> 




2330 


INPUT H {200WN>> 3UCHBEBRIFF < "jW»: F=0= FOR 




3020 


IF A»»CHR*(13) AND LEN(H*J >© THEN 30B© 


•:295> 






1=1 TON 


<GG0> 


303© 


IF A*=CHR*(13) THEN 2970 


<350> 




2340 


IF LEFT*<N*(I) ,LEN!N*>)-W* THEN 2390 


<5S1> 


304© 


IF ASC(A*XT6 OR ASC(A*)>HG THEN 2970 


••9B8> 




2350 


IF LEFT*<S*<[>,LEN<W*))=W* THEN 2390 


<603> 


305© 


PRINT A*t 


<KQB> 




2360 


IF LEFT* (p* (11 ,LEN(W*))-W* THEN 2390 


<745> 


3©6© 


Q*=D*+A* 


<7KD> 




2370 


IF LEFT*<T*<I 1 ,LEN<M») )=H* THEN 2390 


<747> 


3070 


GOTO 297© 


<4BD> 




2380 


IF LEFT*<U*(I> ,LEN(N#))-W* THEN 2390: ELSE 2 




3©B© 


PRINT 


<B5U> 






490 


<NRE> 


3090 


IF LE*»"U" THEN V*-Q*: BDTO 3140 


■ ', ll[- 




2390 


BCNCLR : PRINT " [UP , 37SP ACE > " I S-VAL<S* (1 > > s 




31©© 


IF LE*-"BE" THEN B*=0*: GOTO 3149 


<PTU> 






PRINT M (2UP}")L6* 


en? 


311© 


IF LE*="B" THEN G*=Q*: 60TQ 314© 


<6TV> 




2400 


PRINT ViCHFIKlBI !P*tI>jTAB(10);U*(U;TABCl 




312© 


IF MID*(Q*,3,l)=", '■ AND MID* (Q*,6, 1 > -". " THE 








2l5N*(I)iTAB(311s: PRINT USING ■'#**«. #»"tB; 


<4BS> 




Ni 1)1- Of: BOTO 3140 


<RHB> 




2410 


PRINT TAB<3B) ; T*<1) jTAB (39) " lRVOFF> = ": PRINT 
L9*I PRINT LB*: PRINT LBil PRINT TAB<13)"IU 




313© 


D*=MID*(0*,1,2)*", "+HID*(Q*,3,2)+", "+MID*(Q* 
,S,2) 1 GOTO 3140 


<AMS> 






PJADEBCHEN [J/N)"s PRINT L7* 


vOJO 


3140 


RETURN 


'.887 > 




7470 


RFT KEY A*: IF A*="N M THEN 60 


<UT0> 


313© 


SCNCLR f CHAR ,6,B, 4 *<H> ILFE C2BPACE3DDER C2SP 






2430 


IF A*-" J" THEN 2440: ELSE 2420 


<OMG> 




ACEXE> NDE..7" 


<2B1> 




2440 


FOR ta I TO N-l 


£7C1> 


3160 


BET KEY A* 


<4BD> 




2450 


N*(Z)-N*<Z*1>1 S*(Z>=S*(Zfl> : P*(Z)-P*<Z+l)t 




317© 


IF A*-"H" THEN 3190 


CSHHj 






T*(J)=T*(7+1 1: U*(Z)«U*(Z+1> 


<CRID> 


3 IB© 


IF A*-"E" THEN 336©! ELSE 3160 


<B64> 




244 e 


NEXT Z 


<VRO> 


319© 


PRINT ,, t2HOrtE,CLR,RVS0N,7SPACE>£ ft S R A H 






2470 


N-N-l 


<NID> 




n H I L F E(BSPACE,RVOFF3": POKE 229,2 


C9MI> 




2490 


t=Nl F— 1 


<5K7> 


32©© 


PRINT "(DOWN)l. J6V0R NEUE SJCHUNEEN EINGEGE 






249© 


NEXT I 


<504> 




BEN 


<8NE> 




2500 


IF NOT F THEN PRINT " {7D0WN,3RIEKT>HICHT WQR 




321© 


PRINT " (3SPACE1WERDEN KOENNEN, MUSS DIE AKTU 








HANDEN. iEINE iDESCHUNG " 


< PEV ) 




ELLE 


<BKR> 




2510 


GOTO 50 


<3HB> 


322© 


PRINT " CSSPACElaAUSHALTSDATEl 61NGELA0EN W6R 






2520 


PRINT * (2HOME , CLR , RVSON , 4SP ACE > £ 135F ACE } {3S 
PACE ) R (3SPACE > T 1 3SP ACE J I C3SPACE ) E [3SP ACE 1 R C3 




323© 


BEN. 

PRINT " (3SPACEJACHTUNS 1! ilER (RUSON)BLTE («V 


<BRO> 






SPACE >E <3SPACE)N(3SPACE , RVOFF > " 


<ECH> 




OFF) L1LENAME 


<4JD> 




2530 


PRINT " {2DOWN}5DRTtEREN WON ' s N) " JUCHUNGEN 




3240 


PRINT " t3SPAEE>WlRD UEBERSCHRIEBeN. ■■ 


<786> 






BEGINNT ■ 


< 44H > 


325© 


PRINT "tDOUNJS. JEI DER filNGABE ELEICHER JEO 






2540 


FDR 1-2 TO N 


<KNH> 




RIFFE 


■ FC9 ' 




2550 


XY=WAL(HID*<P*(1>,4,2)>*100*VAL<MID*(P*CI>,1 




326© 


PRINT " t3SPACEJS0LLTE DIE LFD. HUMMER MITANB 








,21) 


<FGW> 




BBEBEN 


<3N0> 




254.0 


VX"=UAL<HID*<P*U-1> ,4,2) ) »1 00+WAL (MID* (P*( 1- 




327© 


PRINT "(3SPACE)UERDEN, DA SONST BEI DER 1UCH 








11,1,2)): IF XY>=»VX THEN 2650 


<F00> 




ROUTINE 


<S3B> 




2570 


Vl*-U*tl)i V2*s-N*U>i V3*-B*U>. U4*=P*U): 




32B0 


PRINT "<3SPAC£J£CHUiefttSfc-EITEN AUFTRETEN KOE 








V5*-T* ( I ) 


<GL6> 




NNEN. 


<1J4> 




2SB0 


FOR Z-I-l TO 1 STEP -1 


^TEA> 


329© 


PRINT "(DOWN}}. SATUMSEINBABE -MIT-^ -OHNE- 






25"? 


U*(Z+1>-U*<Z) t N*(Z+1 >=N#(2) : S*(Z + 1)-S*(Z) I 






SJNKTE. 


<PMV> 






P*<7+H=P*(Z): T*(Z+1)=T*(Z> 


■ D1I 


33©© 


PRINT "<D0WNJ4, alE flATEI WIRD NUR INNERHALB 






2600 


TZ=VAL<MID*(V4*,4,2) > «100+VAL (MID* (V4* , 1 ,2) ) 


38D 




EINES 


<621> 




2610 


(JV=VALtMID*(P*(Z-l> ,4,2) > «1©0*VAL (MID* (P* IZ- 




33 1 © 


PRINT "I3SPACE»iAHRES SORT I ERT . { 1 ©SPACE > " 


<UBU> 






D,1,Z>)1 IF TZ<=»UV THEN 2640 


<TO9> 


332© 


PRINT "<DOWN>5. liACH EINEM fROSRAMMABBRUCH K 






2620 


U*<Z)-V1*: N*<Z>=V2*: S*(Z1-V3*: P*(Z)=V4»: 






ANN HAN 


<-.6Q4> 






T*!7.)=V5* 


<K1M> 


333© 


PRINT '■ C3SPACE1H1T ■ Eaifl 60' DAS BROGRAMM 






2630 


GOTO 2650 


<©BH> 




HNE 


til 1 




2640 


NEXT 1 


4FT0> 


334© 


PRINT "C!SPACEiaATENUEftLUST FORTSETZEN. 


NI 




2650 


NEXT I 


<5B4 > 


3350 


GOTO 50 


■:39B> 




2660 


PRINT ' t2DrjWN>5DRTIEREN IM HAUPTSPE1CHER BEE 




336© 


PR I NT " { 1 2R I SHT , 4DOWN ,RVS0N>£NDE{RVOFF> 


- A7T.- 






NDET." 


■:7RG." 


337© 


PRINT " (DOWN, 4SPACEJSIT,., fiaifi 69. ..KANN DAS 






2679 


GOTO 50 


-HR 




1R0GRAMM" 


<1RD> 




2680 


CHAR , 1,12, ■ '^TRAO{10SPACE1[(9SPACE>I"! LE*- 




336© 


PRINT " {DOWN, 4 SPACE >OHNE SATENVERLUST F0RT6E 








"B"l PU=7l EQSUB 295© 


CW4B> 




BETZT WERDEN": POKE B0B,1I©: END 


<FD5> 




2690 


IF VAL(G*)>9999.99 THEN 26B© 


<JB1> 


3390 


PRINT ■■ (2H0ME,CLR1": WINDOW 0,0,39,1: PRINT 






2700 


IF VAL(G*><0. ©1 THEN 26B© 


tAG6> 




" fRWSON,4SPACE12t(2SPACE>0 C2SPACE1T [2BPACEJI t 






2710 


G1=VAL(G*> : G*=RIEHT* (5TR*(G1) ,LEN (STR*(G1 1 } 






2SPACE) Z (2SPACE } I <2SPACE>E C2SPACE) T C2SPACE}T 








-I): G*-RIGHT*(L*+G*,7S 


CNB9> 




<2SPACE>E{2SPACEILt3SPACE, RVDFF 1 " 


<S05> 




2720 


IF MID*(G*,S, I 1=". " THEN 275© 


<TTW> 


3400 


WINDOW ©,1,39,24: FL-l: F4*="": FZ*=""s PRIN 






2730 


IF MID*(E*,6, 1> = ". " THEN B*=6*+"©": S*=RIGHT 






T 


<BMI> 






*(G*,7); GOTO 273© 


<SKE> 


3410 


P1*M"gii¥^fHirrfatimii*" 


<45C> 




2740 


IF MID*(B*,7, 1 ) >-"0" AND MID* (G*,7, I) < t ="9" T 
HEN a*"^**".©©' 1 


CSOO> 


3420 
•XJ43© 

3450 


P2*« " ir*.».«.*.«.*.a-,».»,*.«,«.«.*q # * t » P *U" 
P3*^" -<2 1SPADE Jr." 


<9RH> 

9 1 « 




2750 
2760 


G*-RIEHT*<G*,7) 

CHAR , 12,12, "CSSPACEM "i PRINT B* 


CV©3> 
(A6M> 


T'4 t-- '"T'.t.*.**.**.*.**.*.*,**.****.****'^ 1 " 


B 'V 




PSi-'A E & fi il K5HF. SPACE} tSKF. SPACE! 


2770 


RETURN 


<0U7> 




JtCSHF . SPACE >SCSHF. SPACE! itSHF. SPACE >£{SHF . SP 






2780 


CHAR , 1,14,",HATUMU 1 SPACE > 1 U ©SPACE J 1": LE*- 






ACE ) H (SHF , SPACE >i. tSHF . SPACE } fl tSHF . SPACE > ItSH 








"D"I PU-B: EOSUB 296© 


<JK9> 




F . SPAC E 1 1, CSHF . SPACE j fl tEHF . SPACERS" 


<ITK> 




279© 
2800 


PRINT -<UP,I9RIGHT) , ')D* 

IF UAL(MID*(D*,1 ,2>>?31 OR UAL (MID* (D*, 1 ,2) ) 


<N6N> 


3460 




MB 






14 




SONDERHEFT 36 


r 


asa? 

























C128 ANWENDUNG 








3476 PRINT PI*: PRINT "5i>> fflJSWAHL i - 6 '.<s(Tl 




4240 CHAR ,0,14,"= <P> flBBB. AUFLISTEN ^" 


<543> 






PRINT P2*: FOR U-l Tn 14: PRINT F3*l NEXT U: 




4250 CHAR ,0,15,"=, <L> SPEICHER LOESCH.-" 


<3«H> 






PRINT P2*: PRINT PS* : PRINT P4* 


DCS 


4260 CHAR ,9,16,"- i;X> £R0ZENTRECHNUN6 -" 


<HHB> 






34S9 PRINT "C16UP3- -1- {JBBG. AUSWAEHLEN 


<IRH> 


4276 CHAR ,6,17," = <S> 3PEICHERN17SPACE)-'* 


<NFD> 






3496 PRINT "-{DOWN} -2- ABBE. AUFLISTEN 


<UNM> 


42B9 CHAR ,6, 10, " = <K> SPEICHERAUFRUF(2SPACE>i" 


<JA5> 






3500 PRINT "i-TDOWN) -3- jJES. iflLKULATION 


<SRR> 


4296 CHAR ,9,19,'*^ <K> JSALKULAT.SRBEBN,^" 


<F6A> 






3510 PRINT "-CDOWN3 -4- TASCHENRECHNER 


<BT6> 


4369 CHAR ,6,20, l ■;i{215PACE3;; , ' 


<01U> 






352® PRINT "iCDQWN) -5- SUCHRQUTINE 

3530 PRINT "stEQWNl -6- fl &ISHF. SPACE3fl<SHF. SPACE 
5A>{BHF.SPACE>E 


<6AP> 
<LD3> 




<BN7> 
<FBH> 




4326 CHAR ,9,23. H, 7>.*.».*^**#^^^^#*#^Hl*****»•y , 


4339 CHAR ,6,22, "-(RVSON, 3SPACE>iECHNER (3SPACE1AK 




3546 PRINT " = {3DGWN,2SPACE>,1ITTE WAEHLEN SIE 


<2CT> 


TIVeSSPACE.RVOFFli"; GOTO 4350 


<S72> 






3559 BET KEY A*: A=VALIft*>: IF A< 1 DR B34 THEN 3S 




4346 CHAR , 9,21 , "-<RVSON,3SPACE>i8ECHN£R 13SPACE3AK 








50 


<6P7> 


T I V C3SP ACE , RWOFF J -» 


<BIB> 






3560 ON ft SOTO 3576,3749,5280,4346,5610,69 


<L1_E> 


4356 PRINT "t2HDME}": PU=Il! CHAR , 23,2 , " IRVSON3H 








3576 BD5UB S626: PRINT " <CLR , Hait£ J/J^L'l'L'L'UWWJUUUU 




»«»«»wttf^^" . BOTO 4396 


<HM9> 






OQeDeGB0CIQt1f?5Gfl:'V(flTTipPDP " 


<71S> 


4360 PRINT •'(2H0HE)"l PU-1I: CHAR ,24 ,9 , " tRVBONlJ 








3580 PRINT -g S-> .IPEICHERN - U-> UEBERSPRINBEN<2 




ECHNERC2SPACE1AFTIV" 


<F6F> 






SPACE i W 


<KBJ> 


4 370 DHAR . 23. 2 . " (RVHflN 1 H,y-».*,-»^.*#»»i» » ■"" 


LI 1 






3590 PRINT "5 K-> flENUESSSPACE)- N-> HEUE EINFUEG 
EN H" 




4386 CHAR , 23,3, "^JBSCHENRECHNER;;" 


<5UN> 






<P7S> 


4399 CHAR ,23,4 , "- t2SPACE3BY H.^EBERC^SPACE)-" 
4466 CHAR .23.5, •.-»w».»MlWft|B|I,-,- 


<39R> 
<3RK> 




36»® PRINT " TITITTIU ■ H'VlVfrt I T tt 1'ITf *Vi»"t"i"VtTTT 
T* 




<352> 


4410 CHAR ,23,6," == CRyDFF, l2SPACE,RUS0Nl^i" 


WW 






3610 PRINT "OWSON3 i2ESRlFFC2BPACE> = f2SPACE>BIt-. 




4426 CHAR ,23,7,"= = (RVOFF}>"j CHAR ,26,7,E*: CHAR 






;zBSTOWDFF>»: PRINT I POKE 229,7 
3626 F4*=" < EESPEICHERT >": F3*-" < JEBERSPRINGE 


<FHN> 


,36,7, "< <RV30N>;^": IF LEN(E»)>16 THEN BOSU 
B 71 16 


<7AL> 






N >" 
3636 0=6= FOR 1-1 TO 72 


CR61> 
CB5V> 


4430 CHAR ,23,8, " {RWSON>^;tRW0FF, 12BPACE,RVSONJ == 








3646 PRINT L1*(I>| 


<OPV> 


4446 CHAR .23.9. ■-?.■ ■■««■■■■ .».?-" 


<OMi> 
<7J5> 






34,56 SET KEV A*! IF A*="S" THEN PRINT F4*: O-O+ts 

L2*(Q)=L1*(I> : GOTQ 3690 
364.0 IF A*="U" THEN PRINT F3*t GOTO 3690 


<7CF> 
<RNT> 


4456 CHAR ,23, 10, "iRalfi'8 , «K*ITaTffttS=" 

446® CHAR ,23,tl,"^i: = A = HJ.=H3{RV0FF,2SPACE,RVSON 


<CB7> 






3676 IF «*-'■«" THEN 3399 


<LW9R> 


+476 CHAR .23. i;.>E»w»llntwp-- 


<06N> 
<404> 






3680 IF A*="N" THEN BOSUB 37101 O-O+l; L2*(0)-l_l* 
(III ELSE 3650 


(66a> 


4486 CHAR ,Z3,lZ." = i<zX.d> : a :: l-UiVaFF ,?BP0££,mBON 






3696 NEXT I 

3700 BOTO 3390 

3716 PRINT "C22LEFTJ JiTTE EIME NEUE flBBUCHUNG EI 

NFUEGEN I2SP ACE } " J 
3726 INPUT Ll*(I)i PRINT 
373® RETURN 


<504> 
<1BJ> 

<B9B> 
<KAL-> 


4496 CHAR ,23,14," -?#y#i?4i Fa-jpg-^-Hfljfr-," 
4500 CHAR ,23,l5," = Kft¥iWsT.*-i?*.*isS=" 
45 1 CHAR , 23 , 16, " = 7;fc9 = #- (4SPACE >=^" 
4520 CHAR ■ 23 ■ 1 7. " -B»-m-n-»m NFn — » 
4539 CHAR ,23,1S," == 4 = 5 = 6 = / = {4SPA0E>^;" 


<47Q> 
<3H7> 
<QHJ> 
<9FT> 
<GPG> 
<IA5> 






<OU7> 


4540 CHAR ,23,19," -Kln-**« + » + »»»«7.-" 


<BKO> 
<8BT> 
<FIC> 
<DNL> 






3746 PRINT " CCLR , 2HOME J " 

3756 PRINT " (2H0HE,25PACEia£GRIFF {5SPACE>fiHtJBPftC 

E>flRTC16SPACE>" 
3766 PRINT " » 


<:plo> 

<EPN> 

<IBO> 


4559 CHAR ,23,26,"= = l = 2 = 3 =( -=t4SPACE) == " 

4560 CHAR , 23 , 2 1 , " =B£±±±±±fiEOFF — " 
4576 CHAR ,23,22, "=^9=. =-— ^<4SPACE»=" 

45B9 CHAR ,23,23, l, =?ftS'*T4E , *lTftSaa7="l CHAR ,23,24, 






3776 PRINT CHR* (271 "T" : PRINT " <22RIBHT,21DOWN}": 
CHR* (27) "B" 


<DJN> 


"7**.**##**##**##viRunFFy 


■:C3P> 




4599 GET KEY A*: VOL 3: SOUND 1,15600,2: IF A*-"" 




3780 RU«6: SGNCLR I FDR I»| TD Ot PRINT L2*(I) 


■C2BE> 


THEN 4596 


<DT7> 
<51L> 
<095> 






3796 QOSUB 5250 


<HWS> 


4606 IF A*="«" THEN 47B® 






3B®0 IF INTU/13)OI/13 THEN 3BB9 


P12I 


4616 IF A*-"/" THEN 4876 






3810 PRINT " (2DOIHN>B.«:».*iin>«iHHt»tt>jrKj-nnwg" 


<8LJ> 


4620 IF A*" 1 '*" THEN 4966: ELSE IF A*=" = " THEN 514 








3820 PRINT "=<M> WEITERt2SPOCE>-:M> SENUE^" 


•:GL7> 





<7LC> 






3830 PRINT "^T) JJASCHENRECHNERISSPBCEJ;;" 


■ B01 


4630 IF A*="H" THEN E*="»: Et.HID* (RU* , 1 , 16) ■ CHA 






3B49 PRINT "TwKOKimttn.imj' 1 


6i'E. 


R ,26,7,E*i BOTD 4350 


<MC7> 






3858 GET KEY A*: IF A*="W THEN 5CNCLR : 6DTG 3S8 
6 




4646 IF A*-"S" THEN RU*-MID*(RE*, 1 , 19) ! E*="" 


<CBP> 






!'!■ •■' 


4659 IF A*="-" THEN 5659: ELSE IF A*="L" THEN E*= 








3S69 IF A*-"T" THEN 4360 


Ulll 


"*1 RU*-""; RE*=""i CHAR ,26, 7, MP*! GOTO 435 








3876 IF A*»-f!" THEN 3396: ELSE 3*356 
3BB9 NEXT I 


<2E5> 

1)54 


9 

4666 IF A*="VL" THEN Fl-lt GOTO 5149 


<649> 
<EIT> 






3S90 IF RU>0 THEN PRINT "IDOWNl fiUTHABEN(2SPACE3 " 




4670 IF A*="Z" THEN 66 


<KA5> 
<QS6> 






: : PRINT USING "•••«#"-,RU 


'49B' 


4686 IF A*="I" THEN E*="": GOTO 4996 






3966 IF RLK6 THEN PRINT " (DOWN* SDLL (55PACE3 "| 1 P 




4690 IF A*-"H- THEN CHAR ,26, 7, HP*: BOBUB 7010: S 








RINT USING "-(t#*4i»"5RU 


<J5B> 


U-INT(SU*199*0.5)/I99l E*-STR*(SU): CHAR ,26 








3916 IF RU=6 THEN PRINT " ID0WN1 3JHHE +/-{2SPACE3 




,7,E*s RE*"E»; GOTO 4356 


<81F> 






"IS PRINT US INS "»#»#" :RU 


<MSP> 


4700 IF A*="K" THEN CHAR ,26, 7, HP*: GOSUB 7969> R 








3926 PRINT " (P0HN>1i>«*«»«««w-w».»»».hhh?» 


<5RP> 


U=INT(RU»166+6,5>/166: E*=STR*(RU): CHAR ,26 








3936 PRINT "=<A> I3NFANBt2SPACE3<M> BENDED' 


<DV2> 


,7,E*: RE*-E»! GOTO 4359 


•:hpb> 






3940 PRINT "^<D> flBBUCHUNG DRUCKEN^" 


<M95> 


4719 IF A*="C" THEN E*-" " t CHAR ,24, 7, MP* 


<2T0> 






3956 PRINT - = <T> JASCHENRECHNER (35PACE J^" 


GG6 


4720 IF A*="A" THEN RE=0: RO-0I E*»"": CHAR ,26,7 








3960 PRINT "TAWMMWUMttntwuv 


■ 6SE ■ 


,HP»! BOTO 4350 


<NSO> 






3970 BET KEY A*: IF AS»"A" THEN SCNCLR : SOTO 377 




4736 IF A*-"P" THEN RE=6: ra-6: CHAR ,26, 7, MP*: G 








6 


<3P1> 


OTO 3750 


<UOT> 






3986 IF A*-"T" THEN 4360 


<PHP> 


4746 IF A*«"0" THEN RE=0! RO=6: CHAR ,26, 7, HP*: G 








3990 IF A*="D" THEN 4010 


<THP> 


OTO 3396 


vUN9> 






4006 IF A*""M" THEN 3396: ELSE 3976 


<7US> 


4756 IF ASC(A*)<37 Oft ASC(A*)>57 THEN 4359 


<24T) 






4910 OPEN 1,4,7: CHD ti PRINT TAB (16)" 2EGRIFFC3S 




4760 IF A*=CHR*(T4B) OR A*=CHR*(34) OR ft*=CHR*(44 








PACE>att(3SPACE JflRT" 


■CMGJ> 


) OR A*-CHR*(13) THEN 4356 


<9R9> 






4626 PRINT TAB (16)" W+VV+V+y+Y+y+yVT-FET" 1 PRINT 




4770 E*=E*+A*: BOTO 4356 


<KC8> 






I RU-0S FOR 1=1 TO O 


<DF5> 


4796 CHAR ,26, 7, HP* 


<TQ0> 






4636 GOSUB 52501 PRINT TAB( 15) L2* ( I ) 


<NUT> 


4796 IF Rfl-0 THEN I-It R0»1: EI ( 1 ) -VAL (E*) : E*="" 








4649 NEXT I 


<D54> 


i GOTO 4356 


<BJF> 






4056 PRINT TAB (16)" WVVW»V+Vqyy+>y+y+y" i PRINT 


<BPJ> 


4806 I-I+ll El (I)-WAL(E*) I E*-"" 


<KND> 






4666 IF RU>9 THEN PRINT TAB(14)" gUTHABEN <3SPACE > 




4810 IF R0=1 THEN RE=E1 ( 1-1 > »E1 [I ) : 1=1; El ( I ) -RE 


<RH2> 






"(I PRINT USING "1MMHMHI1I";RU: CLOSE 1: GOTO 




4829 IF RD=2 THEN RE»E1 ( 1-1 ) 7E1 1 1 ) i 1-1; El(I)=RE 


I- Ih 






3970 


<A3N> 


483® IF RO-3 THEN E1(0)-E1<1): FL,= 1 


<R6P> 






4076 IF RU<6 THEN PRINT TAB ( 13) " SOLL (7SPACE > " : : 




4B46 IF RC1-4 THEN E1(®)=E1(1)! FL—1 


<SA6> 






PRINT USINB «-iHllMMtll*--iRUl CLOSE 1: GOTO 397 




485® RO-1 


<AL3> 






6 


Ajn 


4866 GOTO 435® 


<4G3> 






40B6 [F RU=6 THEN PRINT TAB(14>" SUMHE +/-<2SPACE 




4B7® CHAR ,26, 7, HP* 


<LA2> 






»"|| PRINT USINB "**«#*" S RU: CLOSE 1: BOTO 3 




4896 IF RQ.0 THEN 1 = 1: RO-2: El ( 1 1 =VAL (E*) t E*="" 








976 


<T7D> 


i GOTO 435® 


<JF6> 






4990 PU-1 1 


■;BH7> 


4896 1 = 1*1 ■ El (I)«UAL(E*lt E*-" 


<070> 






4106 PRINT "t2HOHE,RVS0N,4SPACE>,Kl25PACE>£H25PACE 




4990 IF RO=l THEN RE-E1 1 1-1 ) *E1 ll» s 1-1 : EIU)=RE 


liC2: 






>T C25PACE > I C2SP ACE } Z (2SPACE 5 Z ( 2SPACE >E < 2BPAC 




491® IF RO-2 THEN RE=EH 1-1 ) /El ( I ) t I=ll EKI1-RE 


<;pmb> 






E 1 T {2SPACE 3 T { 2SPACE 3E {2SPACE5 L I3SPACE , RVOFF > 




4920 IF RO=3 THEN E1(9)-E1(1): FL=1 


<D4P> 






" 


<I5M> 


493® IF RO-4 THEN E1(0)-E1<1>: FL=-1 


<FA4> 






4119 PRINT "<22BPACE>" 


<cau> 


4940 R0=2 


<60I> 






4 1 20 CHAR .6.2, "1T+#**»«*^iM- n .*;^.»,»*******^» 


<DL1> 


495® SOTO 435® 


<403> 






4136 CHAR ,9,3, '"JS^ aESCI*EIBUNGt2SPACE><<^^^ , 


<MIF> 


4960 CHAR ,26, 7, HP* 


<DA2> 






4140 CHAR .6.4 . u g**«»«»»**t«««.MM**ttP >> 


<UB4> 


4976 IF R0-® THEN 1=1; RO-3: El 1 1 >-VAL<E*> : £*-"" 








4159 CHAR ,6,5, "-<21 SPACE > = " 


<MTH> 


1 GOTO 435® 


<MR6> 






4160 CHAR ,0,6,";; 4 £RUNDRECHENARTEN{2BPACE>^" 


<CBK} 


498® 1=1+1 : El (I)=WAL(E*) I E*-"" 


<HNO> 






4179 CHAR ,6,7,"^Z1SPACE) = " 


<i-TP> 


4999 IF RD=1 THEN RE-E1 ( 1-1 ) »E1 ( I ) *FL+E1 (01 


<A3C> 






41S6 CHAR ,6,3,"= <INFO> iNFQRfVATIDN(2SPACE> = " 


<CT9> 


5096 IF RO=2 THEN RE-E1 I 1-1 ) /El ( I I *FL+E1 (93 


<S9K> 






4199 CHAR ,6,9,"^ <Z> JiAUPTMENUE{6SPAC£>i" 


<C17> 


561® IF RO-3 THEN RE=E1 (1-1 ) +Et U ) 


<FL4> 






4266 CHAR ,0,10,"^ <A> iiEUSTART IBSPACEJ^" 


<B6K> 


502® IF RO=4 THEN RE=EI < 1-1 ) -El ( I ) 


<0NS> 






4210 CHAR ,0,11,"^ <□> MDTI7IETTEL(5SPACE) = " 


<09A> 










4226 CHAR ,0,12,"^ <C> EINBABE LOESCHEN^" 


<J64> 










4230 CHAR ,0,13," = <H> ^EIGT HABEN/SCLL^" 


<9UIO 


Listing 1. »HAUSHALT« (Fortsetzung) 






1 


3SE? mmz 


•HIJJ:! 




15 













ANWENDUNG 



5©3© 
5940 
5850 

•i06B 

5079 
50B0 
5 ©9© 
518© 
Slll» 
5126 
313© 

51 4© 

515© 
5160 
517© 
51B0 
51 1 ?* 
5200 
5210 
5220 

5230 
524© 

5250 
5240 

5278 



S29© 

5J©© 

5310 

5320 
533© 
5340 

5350 
536© 

5370 

5300 

5390 
54©8 
5410 



5420 
5430 
5440 
5450 
5440 
5470 
54S© 



5490 
5506 



5510 
5520 



553© 
5540 

5550 
5560 
5570 

~1'< JLH 1 . 1 

5590 

36 00 
5410 
5620 
5430 
5440 
5450 
S440 
5670 
56B© 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
57B0 
5798 

5a 00 
ssi© 



RQ=3= 1 = 1= E1U1-R6 

GOTO 4350 

CHAR ,26, 7, MP* 

IF RO-0 THEN I-lt RO-41 El ( D-VBUE*) ! Et-"" 

1 GOTO 4350 

I-I+lt El (I)-UAL(E*) ! E*- 

IF RO-1 THEN RE-E1 ( 1-1>*E1 (I ) «FL*E1 <0) 

IF R0=2 THEN RE=EH I-l > /El ( I ) »FL+E1 (0) 

IF RQ-3 THEN RE-E1 ( 1-11+EH t > 

IF R0=-4 THEN RE=E1 (I-l I -EI ( I ) 

RO-41 I-l 1 E1(I)=RE 

GOTO 4350 

CHAR ,26, 7, MP* 

1 = 1 + 1: EI tI)=-UM_<E*> 

IF RQ-1 THEN R£=E 1 ( I-l >*E1{ 1 ) »FL+El <«) 

IF RO=B THEN RE-E1 ( I-l I /El (I>*FL+£1<0! 

IF RO-3 THEN RE=EI ( I-l I +E1 (I) 

IF R0=4 THEN RE=E1 t I-l 1 -El <I) 

1-01 E*-"" 

IF F1=I THEN RE=-RE+100! Fl-0 

R£*-STR* IRE) I LU-LEN(RE*>: IF LU>PU THEN Rt* 

"MID* ERE*, 1,1©) : GOTO 52301 ELSE 5240 

RE*-MID*ERI*,1, 10) 

CHAR ,26, 7, RE*: RE=0! RO-0S £*=■"■; El<©)»©t 

61(l)=0i EK2J-0! E1{3)=01 SOTO 4350 

R2*=>HID*<L2*a> ,13,4): R1*=WD* (L2* (I ) ,1,11 

IF R1*-"-" THEN RU-RU-VBL(R2«) : ELSE RU-RU+V 

AL(R2*> 

RETURN 

PRINT "<C1R,4I)DUN>"; PRINT TABE8IP1*: PRINT 

TfiB ( S ) " = I2SP ACE J -B- {3SPACE 1 21 LDSCH I RM t3SPACE 

}=" 

PRINT TAB(B1P2*: PRINT TAB<B1 "s<3SPACE>-I>- 13 

SPACE >SRUCKERC6SPACE)-"l PRINT TAB<B)P4* 

Y=0: SET KEY A*: IF A*""B" THEN PRINT " (2HQM 

E,CLR1": BOSUB 53301 EOSUB 69B0! BDTD 3390 

IF A*="D" THEN GOSUB 699©; GOSUB 5320: S0SU8 

6980: GOTO 3390: ELSE 530© 
V=4: OPEN l,J»,7t CMD 1: PRINT P5*I GOTO 5340 
PRINT P5* 

PRINT DO*j PRtNT TI*;: PRINT " SiHRUaSPACEJa 
EERIFF(5SPACEiaa(3SPACE}BRT": PRINT M4*l POK 
E 229,5 

RU=0: FOR 1=1 TO O: IF 0-0 THEN 5340: ELSE 5 
370 

PRINT " E3SPAGE> .SEINE flATEN VORHANDEN • • (ZDOW 
NJ"s CLOSE I: FOR U=l TO 1000: NEXT Us 60SUB 

693©: GOTO 3390 
PRINT "(1BSPACE1"JLS*(I)J R2*=ntD* EL2* ( I ) , 13 
,4)! R1*-MID*(L2*EI> ,1,1) 

IF Rt*="-" THEN RU=RU-WALtR2»): ELSE RU-RU+V 
AL(R2*) 

IF V=4 THEN 5460: ELSE 5400 
IF INTU/1210I/12 THEN 5460 
PRINT "C2DOWN1": PRINT L6«: PRINT "- flUSWAHL 

N-WE1 TER (2SPACE ) A-BNFANB (2SPACE J*-11ENUE (2SP 
ACE>-"I PRINT L7* 
BET KEV A* 

IF A*-"W" THEN SCNCLR t GOTO 5460 
IF A*="»" THEN 3390 

IF A*- "A" THEN SCNCLR I SOTO 5350! ELSE 5420 
NEXT Is PRINT M4* 
IF RU>0 THEN 548©: ELSE 549© 



! SUTHABEN >125PACEJ"! 
PRINT D*« GOTO 



PRINT -= &ALKULATIC 

I PRINT USING "*••«*.«*": RU; : 

551© 
IF RLK© THEN 55©9 

PRINT "- IALKULATIONS ( &TJLL )<5BPACE1"II PR 
INT USING * I H« ».***|RU|I PRINT D* 
GOSUB 7010: IF 5U>8 THEN 55201 ELSE 5530 
PRINT "+ flKTUELLES t45PACEl I SUTHABEN ) C25PAC 
E>"|i PRINT USING "»»M#.«*"jSUji PRINT D*i 
SOTO 555© 
IF SU<0 THEN 5540 

PRINT "- a<TUELLES[45PACE>< SDLL ICBSPAGEl": 
: PRINT USING ■-•»»#*. **■■-, SUi : PRINT D* 
PRINT M4* 

RA=RU+SUl IF RA>0 THEN 3570: ELSE 5560 
PRINT "- KSAHTGUTHABENU2SPACE>"st PRINT US 
INB "-•»»##. »#"lRAi I PRINT D*: GOTO 5400 
IF RA<0 THEN 5590 

PRINT "= 5£5AnTSDLL{165PACE>"l 1 PRINT USING 
"-***»*. ttt"; RA; : PRINT D* 
PRINT H4*: CLOSE 1: RETURN 
GOTO 142© 
RESTORE 5470 
FOR I-l TO 72 
READ LUIII 
NEXT I 
RETURN 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



- JEGRIFf 

- JEGRIFF 

- JEGRIFF 
'- JEGRIFF 

- JE BR IFF 



+ JESRIFF. . 

+ JEESRtFF. . 

+ ^GRIFF.. 

+ «GRIFF, , 

+ .KGRIFF.. 
tRWSON ) . . , 

- KGR 1 FF . , 

'- fiEGRIFF.. 



0000C3SPBCE3aTL" 
©000t3SPACE>aTL" 
0000 (3SPACE J UTL " 
0000 {3SPACE 3 ffTL " 
0000 I3SPACE } 11TL " 
- 3EGRIFF.. 0000<3SPACEHSTL" 
+ JEGRIFF.. 000043SPACE)ttTL ,, 
000© C3SP ACE > ttTL " 
0000 13SP AC E J IITL " 
00©© {3SP ACE J HTL " 
0000 t3SPACE 1 ttTL " 
0©©© (39PACE >HTL " 
. i. A N IJ A R . . . . . 
0000 * £AN" 
iAN" 



Listing 1. »HAUSHALT«. (Fortsetzung) 



<0G6> 
<t©3> 
<5U0> 

<S7D> 
<T70> 
<46K> 
<22S> 

<:CL4> 

<RNE> 
<S0©> 
<0S3> 
<TU©> 
<4LK> 
<S5K> 
<Q1S> 
<4L4> 
<JNS> 
<34G> 
<MAU> 

<TTW> 
<7BB> 

(U8U> 

<WQ2> 

<H4C> 
<PI7> 



<INA> 

<206> 

<FEP> 

<GD2> 
<EOC> 

<TWN> 

CNIA> 

<BJF> 

<G2A> 

<HSF> 
<THJ> 
<5MS> 



■LHQU:, 
<10D> 
>CH72> 
<194> 

■NN'J; 
<SNF> 
<190> 



<P4F> 
<AKM> 



<3O0> 
<DDB> 



<MPM> 
<A4B> 

<I3D> 
<HHC> 
<777> 

<44I> 
<IOV> 

<UHI> 

<72K> 

<5©0> 

<E7R> 

<ACQ> 

<AGN> 

<5C4> 

<9©7> 

<0CF> 

<SBF> 

<OHF> 

<KCF> 

<GCF> 

<SCF^ 

<SAF> 

■ I' BF 

<GAF> 

<SAF> 

<OAF> 

<4EF> 

<TFB> 

<94Q> 

<D4(3> 




• • 



im Uberblick 



Mit diesen Sammelboxen sind Ihre Ausgaben immer 

sortiert und griff bereit. 

Eine Sammelbox fa&t 
einen vollstandigen 
Jahrqang mit 12 Ausgaben 
und kostet 14- DM. 




Diese 64'er-Ausgaben bekommen Sie noch bei 
Markt&Technik fiir jeweils 6,50 DM. 

Tragen Sie die Nummer der gewunschten 
Ausgabe (z.B. 2/88) in den Bestellabschnitt 
der Zahlkarte nach Seite 34 ein. 



2/86: GemA wie; Druckerpflegt in Yhrt und 
Bild / Texiverarheifcfig: zehn Kompleltfeungen 
Tips&Tlcts zu Stonexret und Viramtte 

3 / 84: Tesi-. Traurrtcomputer Amigo I Alajstll- 
koppler und Termtalprogromme im Veigteieh 

tonsllklie MelligenE mil Prolog 64 

4/84: Lsnng dss Monote; Hypra-Fxiiic 
Messen, Steuem una* Rsgeln mil den C64 
CMOS-RAM-Platine im USbUbov 

5/84; Gmfit (Or Elnsteigef und Prate 

•-ngsfahige GraiikpnsgrammB 

Ver^efchslBsi; Dos lasfen Fanbdrucker 

6/84: Premtera: Der C64 im rieuen Design 
llsling des Monats.- Mosieifet 
G£0S, die pmfesslwtelle iertfti 

7/86: Der C64 in FoFscKung und Technil 
Satobou: Dos possende Kobel lum Monitor 
hs-. ■ wpefrBeschlewi 

8/86: Ubsrachl: Progrommfeisprochen tor 
C64 und CI28 / C-Compte im 'Argleicn 
iCTisoit'AOre: C64-P(ogromme oul siwn Kict 

9/86: taifsaWungshilte: So lintfe icft den 
nchfigen Dructer/Koplefschuh!: Die neuan 
ljefids / Test: Zwei Top-Asserabier im 'Aigbich 

10/86: Li;' ■..;desMonals:Def ■SoundmonBorn 

DFU: Die . ■■ 

Grower Ein5fe»nsr-5onderte4l 

II /66: Llstjngi •Spellchecl<ei« (Or Vi, 7 1 

Animolion; 3-D-Gralilt In E 

EingobegenSte: Maus und Joysncl im Msqleich 

12 / SA: Obersjchr: H::'-: ::,ngen 

BouanleiTungL CanlronicS'lnTeriaca 

Listing des Monots: Fbppy-Spseder »Exos V3« 

2/87: Listing des MonuK: TiicHilmgeneratot 

I Software (Or C'6 u.nd PLus/4 
Test: lo-BH-Prozessor to den 



3/87: 6m Ablippif-. fcpiwp^jtomm c 

Uosse / FAkereft: Mmkepqual Jal gegen No-Mome- 

Produte / C 128: Spsrctisreiweitsrungen rj 

4/87: Proginfnmiersprachen: ir 

LisSM des MonoS: Terminolprogramm »Proi8nn Vo« 

Tesirrorbfemsehgetala tk Manitowsalz 

5/87: Fradab Die Welt der Apfalmannctten 
KouOiiHe! Die besten Floppy-Speeder 
3%-Za!l-FloppY ter den C6* 

6/87: Die (else Revolution: Neue Druckef 
Tenlverarbeilung (Or C 64 und CI 28 
Perspektrgen: Mit CompulefWIsseri m den BW 

3/88: BtBnnpunlcl Spiflle: 

Spiele per Telebn u. a. ICopietprogomme 

Im VerglefcFi, 

4/88: Gibl es einen neuen C64f 
Allei uber Btx und DotenfemiiberfrriQung 
Gtofle CriecWMe zum fad win Soflware. 

5/B8: C6J contra Antigo, Atari & Co. 

\ferglei:'i- 

SuperJoyssick. / Grouef Einsieigef-SondertelJ 

6/88: Keyboards am C64 / Morkendislretten 
im HarrelBSt ,' Test: Flappry-Speedef 
Newer Kors: Assemble! 

8/88: Tip; un-d Tricks zu Dnjctem / 
Fjosfc-Kurs (Or Einsteiger / Alles Sber MM. 
ROM, EPSOM 8, Ca 



I 



I 



9/88: Neuer Kurs: Drucker professional! 
nuiien / Messen, Sleuflrn, Fisgdn.- Profigerale 
Im Test / Public Domorn-Spiefe 

10/88: Test: Modems und AkusSfekopplef 



I 



listing des Monats: Supef-Slrolegiespial 
Musi&iardWre im vergleick, 

11/88: Publish C6i: Professtonelles Dmd- 
progromm zum Abiippsn / Test: MolprDgramm 
Sigo-Paint / Stotgeber Druckerkaul 




Sonderhefte im Uberblick 



Die 64er-Sonderhefte bieten 
Ihnen detaillierte Informa- 
tionen zu speiiellen Themen 
rund urn die Commodore- 
Computer. 

Bestellen Sie bitte die 
gewunschten Sonderhefte zum 
Preis von jeweils 14,- DM 
mit der beigehefteten 
ZaKlkarte nach Seite 34. 




SONDERHEFT 0018: 
DRUCKER 

listing: professionel- 

Je Textverarbeitung 
furdenMPSeOf/ 
Matrixdrucker im 
Test 



SONDERHEFT 0032: 
FLOFPYLAUFWERKE 
UNO DRUCKER 

Tips&Tools, RAM- 
Erweiterung des 
C64, Druekerrauli- 



50NDERHEFTOO?0: 
6RAFIK 

Grofik-Prog rammis- 
ru ng / Beweg ungen 



SONDERHEFT 0023: 
GRAF1K / 
ANWENDUNGEN 
Paint Magic: eln 
professionelies 
Malprogramm 



SONDERHEFT 0027 
GRAFIK 

AMICA Point: 
Malprogramm 



SONDERHEFT 0034: 
GRAFIK, SIMULATION, 
IERNEN 

Konstruieren rait 
dem C64, Kurven- 

diskussian, Einsfieg 
in Digitaitechnik 



C 64-Einstieg 





SONDERHEFT O0OS: 
C 64-GRUHDWISSEN 

Vom ersten Einschal- 
ten bis zum eigenen 
Programm/Grund- 
lagen. Tips und 
Tricks 



SONDERHEFT 0016: 
EINSTEIGER 2 
Spriteon (motion: 

Zeiohentrickfilm mit 
dem Computer/ 
GEOS, die neue 
Benutzei- o bed lac he 



SONDERHEFT 0026 
RUND UM DEN C44 
Der C64 verstond- 

licK fur alls mit 
ousfuhrlichen Kursen 



SONDERHEFT 0019: 
EINSTEIGER 3 
Basic-Kurs/Pro- 

gramm-Obefsicht 



SONDERHEFT 0001: 

cm 

Das konnen C 128 
undCt28D/Ver- 
gleich:CI28-C64/ 
die passende 

Peripherie 



SONDERHEFT 0010: 
C 128 II 

EXe Geheimnisse 
von CP/M/Kbm- 
pletter C 128-Schalt- 
pfan/Grafik fur 
Einsteig 



SONDERHEFT 0022: 
C 128 III 

Forbigos Scrolling 
im 80-Zeichen- 
Madus/8-Sekun- 
den-Kopierpro- 

irarnm 



SONDERHEFT 0029 

C128 

Starke Software fur 

C128/128D. Alles 

uber den neuen 

CI 28 Dim Blech- 

gebause. 




SONDERHEFT 9903: 
SPIEIi 

"fop-Spiele-Lisfings 
fOrCMundVC 
20 /Grafts Spiele- 

MarktObersicht 



Pre 



SONDERHEFT 0017 
SPJE1E FUR C 64 UND 
C1Z8 

So programmiert 
man Scrolling/ 
Stralegiespieie: 
Grips jst qefraqt 



SONDERHEFT 9901: 
TIPS £ TRICKS 
SONDERHEFT 0030 Wehlserweirerun- 

SPIELE FOR (64 und (128 9 en fur ^tnebs- 
Tolle Spiete zum system und Floppy/ 

Abtippen (Or C64/ Ltnentbehrliche 
128. Spieleprogrom- Pfogrammierhilfen 
mierung. 



SONDERHEFT 0002: 
TIPS t TRICKS 

Zeichensatz- und 

Sprite-Editor/ Inter- 
fupt-Joystickabfra- 
ge/27 nutzliche 

Einzeiler 



SONDERHEFT 0024: 
TIPS, TRICKS £ TOOLS 

Automatische Text- 
korrektur / Utilities / 
Basic-Compiler zum 
Abtippen 



SONDERHEFT 0033: 
TIPS, TRICKS&TQOLS 
oasic-Control- 
System, Titelgene- 
rator, Digitale Super- 
Sounds, Betriebs- 
systeme im Vergleich 



Floppy, Datasette, Dateiverwaltung 



SONDERHEFT 0031 1 
DFU,MUSIK,MESSEN- 
STEUERN - REGELN 

Alles tiber DFU, BTX 
von A-Z, Grund- 
logen, Bauanleitun- 
gen, C64 als 
Sounds, [gant 



grammiersprachen 





SONDERHEFT 0012: 

PROGRAMMER- 

SPRACHEN 

Postal, Comal, 
Prolog, C und 
Forth/ Vergfeich: 

Basic -Compiler 



SONDERHEFT 0021: 

ASSEMBLER UND BASIC 

Grga-AsS: Hypro- 
Ass hoch 2/Parado- 
xon-Basic-. 50000 

Basic Bytes free 



SONDERHEFT 0D35: 

ASSEMBLER 

A bgeschlossene 

Kurse fiir Anfanger 
und FortgeschriHene 



SONDERHEFT 002S: 
FIOPPY / DATASETTE 
Kurse: Floppy-Pro- 
grammierung fur Etn- 
steiger und Ptofis 



SONDERHEFT 0009: 

FLOPPY I DATEI- 
VERWALTUNG 

Floppy-Beschleuni- 
ger im Vergleichs- 
test/Arbeiten mit 
dBase 11/ C 128- 

Diskmonitor 



SONDERHEFT 001S; 
FLOPPY* DATASETTE 
Repo ratu ronteitu ng 
Erste Hi He fur die 

Diskettenstation/ 
Hypfotape: das 
Su per-Turbota pe 




SONDERHEFT 0028 
GEOS, 0A1EIVERIMLIUNG 

Viele Kurse zu Geos. 
Tolls Geos-Program- 
me zum Abtippen, 



SONDERHEFT 0008 
P1U5/4 UND C 16 
Obersicht: Zero- 
poge und wichtige 
Systemadressen / 
Grundlagen und 
viele Listings 



ANWENDUNGEN 



C128 



5B20 
5B30 
5B40 

sasia 

5870 



5B90 

5900 
5920 

5930 

5940 

5950 
5960 
5976 
5996 
5990 



DATA "+ SEER IFF. 

DATA "•» 3EGRIFF. 

DATA " f RVSON i.. 

DATA " JE6RIFF. 

DATA "- JEGRIFF. 

OATA "i JEBRIFF. 

DATA "+ JEGRIFF. 

DOT A " {RVSON).. 



9000 • iAN" 
0000 * £AN" 

.£ e b r u a r. . . . {rvoff>" 
0000 » eeb- 
0000 » £EB" 

0000 » IEE>" 

0000 » eeb" 
. a c2space > a c2sp ace ) e {2bpace 



JR(2SPACE>Z. . . . {RVDFFV 

DATA ■- JEGRIFF., 0000 » BAE 

DATA ■- JEGR1FF 

DATA ■+ flEBRIFF 

OATA "+ SEBRIFF 

DATA " IRVSQNJ. 

>I {2SPACE1I 



. . 0000 • BAE" 
. , 0000 * £1AE" 

. . 0000 • hae" 

. . . a<23pace 1 p <2space ) r (2space 

IRVOFF ) " 



DATA "- JE6RIFF. 

DATA "- ^GRIFF. 

DATA ■'+ jeSRIFF. 

DATA "+ JEQRIFF. 



0000 • SPR" 

0000 • BPR" 
0000 » bpr" 
0000 » bpr" 



6*10 

602© 
6930 
6040 

6060 

6370 



DATA " <Rl/SON} ,at2SPACE>A{2SPACEH 

. . . {RVOFF)" 

JESR1FF.. 0000 » 2AI" 

0000 ■ SA i " 

0000 * bai" 
0000 * BAI" 
. £<25PACE}Ut2SPACEJNt2SPAC 



DATA 
DATA 
DATA 
DATA 
DATA 



6090 

6100 
6110 
6120 
6130 
6140 

6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 



JEGRIFF. . 

SEBRIFF. . 

SEGRIFF- . 
CRV50N ) . . . 

E>1 <RVQFF>" 

DATA »- JEGRIFF, , 
DATA "- SEBRIFF, , 
DATA "+ ^GRIFF. . 
DATA "+ SEBRIFF. . 
DATA u CRVSaNJ... 

E)I {RVOFF}" 

DATA "- JEGRIFF.. 
DATA "- 3EGRIFF. . 
DATA »♦ ^GRIFF. . 
DATA "♦ JEER IFF. . 



SJN" 
0000 * JWN* 
UJN" 
£UN" 
£ ( 2SPACE > IH2BPACE > L C2SP AC 



0000 * iUJL" 

9000 • JUL" 

0000 » £m_" 

0000 * iUL" 
DATA " CRVSDNJ. .flI2SPACE>U C2SPACEJG I2SPACE JIJ 

(2SPACEJS {2SPACEJT tRVOFF>" 

DATA "- ^EORtFF.. 0000 * BUG" 

DATA ■- JEGRIFF. , 0000 * BUG" 

DATA "♦ SSRIFF.. 0000 # BUG" 

DATA "+ JEGRIFF.. 0000 * BUG" 

DATA " {RVSON)-. £ E P T E M B E R..(RVQFF>" 

DATA "- SEGRIFF.. 0000 « SEP" 

DATA "- 3EGR1FF.. 0000 » SEP" 

DATA "+ SEGRIFF., 0000 * SEP" 

DATA *+ SEBRIFF., 000© • SEP" 



<H20> 
<L2Q> 
<93K> 
<G3E> 
•:S5E> 
<83E> 
-:K7E> 

<HI7> 
<4SD> 
<0SD> 
<SSD> 
CGQD> 

<E40> 
<HKB> 
<TKB> 
<9IB> 
<L«B> 

'.up. 
<VG0:> 

<RG0> 
<7Hft> 
<3M0> 

<07R> 
<79J> 
<B9J> 
<VFJ> 
<3BJ> 

<IVQ> 
<RPH> 
<VPH> 
<3VH> 
<7VH> 

•'It'. 

<&en> 

<A0M> 
<U6H> 
<22M> 
<WE> 
<LR9> 
<HR?> 
<DT9> 
<9T9> 



6240 

6250 
6260 
6270 
62B0 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 



6400 
6410 

6420 
6430 
6440 

6450 
6460 



6470 
64S0 

6490 

6500 

6510 



6320 
6530 



6330 
6360 



. CRVOFT ;" 



DATA " (RVSON}. B.t2SPACE>K(2SPACE}T{25PACE}0< 
2SPACE3 B {2SPACEJE 12SPACE >R. CRVQFF > " 

- SEBRIFF. 

- aEGRIFP. 
t SEGRIFF. 

► JEGRIFF. 
CRVSON) . . 

- JEGRIFF. 

- *:GRIFF, 
I- JESRIFF. 

► JEGRIFF. 
(RVSON > . , 

- SG«IFF. 

- SESRIFF. 

► SEBRIFF. 
. KSRIFF, 



ffl i" 
SKT" 

aicT" 

SKT" 
B V E H B E R. 
0000 * BDV" 

aov" 

BDV" 
0©00 • BDV 

.fl E Z E rl B E R CRVQFF)" 

JEZ" 
JE7" 

0000 « ^Z" 

JEZ" 



OATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OATA 

PRINT " t2HOME,a_R,RWSON)F.(2SPACE)I {2BPACEJL( 
2SPACE > E C2SP ACE > S C4SPACE 3LC23PACEJO {2SP ACE > E 
(2SPACE > S t2SP ACE > C C2SPACE 3 H C2SP ACE >E I2EPACE > 
N tRVOFFV; POKE 229,1 
SCNCLR t PRINT ; DIRECTORY 

PRINT ■ t2DOUN>aiTTE DEN BAMEN DEB ZU LDEBCHE 
NDEN tlLES 

INPUT 'EINGEBEN e«=a£NUE> ":0!t 
IF ait="* n THEN 60: ELSE 6440 

PRINT " (2D0WN>F,II_£ " CHR* (34)01* CHR*(34t" U 
IRD GELGESCKT": SCRATCH ""+Q1* 
GOTO 60 

PRINT " (2HOME,CLR,RVBON,5SPACE>E I L E SC3BP 
ACEJU MBENENNE N <43PACE , RVOFF J " : POKE 

229, 1 
SCNCLR i PRINT : DIRECTORY 

INPUT " t2DOWN>BLTER EILENAME <— BENUE) "(Ql* 
t IF Qlt="«" THEN 60: ELSE 6490 
INPUT " U>DWN1BEUER EILENAME" ; F 1*1 IF Fl*-"" 
GOTO 6490: ELSE K1*=CHR*<34) 

PRINT " (DDNN,2SPACE>EILE " CHR*(34!Q1* CHR* ( 
34) M UIRD AUF DEN": PRINT 
PRINT " {2SPACE>BAMEN " CHR*{34)F1* CHR* (34)" 

UMBENANNT": RENAME ""+Q1* TO ""+F1*: PRINT 
I PRINT 
GOTO 50 

PRINT " (2H0nE,CLR, RVSON > fi I B K E T T E (4SP 
ACE>A UFRAEUMEN tRVGFF>": POKE 229,1 
PRINT "(4D0WN,2RIGHT)aiST DU BICHER (J/N) ": 

SET KEY A*! IF A*-" J" THEN 6560 
IF A*-"^ 1 THEN 60 J ELSE 6540 
COLLECT 



<NSJ> 
<R01> 
<LN01> 
<3U1> 
<VQ1> 
<ETL> 
<4BF> 
•;0HF> 
<9EF> 
<OEF> 
<MBN> 
<S9V> 
<G9V> 
<4FV> 
<OBV> 



<B3C> 
<LK9> 

LM3 
<BNR> 
<JS4) 

<FLA> 
<258> 



<L6J> 
<509> 

<SDB> 

<CAJ> 

<J96> 



<MRV> 

• 1NU 



<R5P> 
<QN4> 
<0H3> 



Schachfreunde aufgepaBt, hier kommt ein ge- 
niales Verwaltungspnogramm fur Ihre Turniere. 
Das Programm ubernimrnt die Auslosung der 
Paarungen nach dem Schweizer System und die 
Ergebnisverwaltung . Im Freundeskreis Oder bei 
einem Turnier mit iiber 200 Spielern. 

Freunde des konigiichen Spiels kennen das Problem: 
Die Ansetzung der Paarungen und die Auswertung al- 
ler Ergebnisse ist enorm zeitaufwendig, Fehler fast 
schon vorhersehbar. Wenn dann noch nach dem "Schwei- 
zer System« {siehe Textkasten) gespielt wird, ergrauen 
selbst ausgetuchste Organisatoren in kurzer Zeit. 

Was kann ein guter Organisator eines Turniers also die- 
sen bekannten Schwierigkeiten entgegenstellen? Vordie- 
ser Frage stand auch der Autor der »Schachverwa!tung« 
(Listings 1 bis 6). Die Geschichte des Programms finden 
Sie im Textkasten auf Seite 22. Die Losung war ein schnel- 
les, durch Maschinenroutinen unterstutztes Basic-Pro- 
gramm auf dem C128. 

Das Programm hilft Ihnen bei der Gesfaitung eines Tur- 
nieres mit maximal 254 Spielern. Die Ansetzung der Paa- 
rungen nimnnt das Programm nach dem Schweizer System 
vor. Dies fiihrt zu groBer Gerechtigkeit und zur exzellenten 
Bewertursg der Spieler schon nach wenigen Runden. Die 
Verwaltung wurde in der Zwischenzeit bei mehreren gro- 
Ben Turnieren eingesetzt, die Praxistauglichkeit ist langst 
bewiesen. Der groBe Komfort der Schachverwaltung wird 
durch eine ausgezeichnete Benutzerfuhrung In den zahi- 
reichen Mentis unterstutzt. Natiirlich sind deutsche Umlau- 
te zugelassen. In jeder Phase eines Turniers sind die ein- 
zelnen Ergebnisse jeder bisher gespielten Runde anzuzei- 
gen und sogarzu andern. Spieler konnen imTurnierverlauf 
zuriickgezogen werden, die Spieler- und Ergebnislisten 



Schach^ffi 



sind auf einem Drucker auszugeben. Eine Centronics- 
Schnittstelle ist in das Programm integriert, der Ausdruck 
erfolgt iiber das Verbindungskabel am User-Port, also 
parallel. Jeder Drucker mit Centronics-Schnittstelle ist so 
anzusprechen. Wenn Sie mit einem Interface serieil aus- 
drucken wollen, ist das Programm vorher entsprechend zu 
indern. 

Nach dem Eingeben der Listings und anschlieBendem 
Speichem auf Diskette starten Sie das Ladeprogramm mit 

RUN"LADER" 

Das Titelbild der Schachverwaltung wird aufgebaut und 
Sie werden aufgefordert, eine beliebige Taste zu drOcken. 
Ist dies geschehen, werden nacheinander das Hauptpro- 
gramm und die Maschinenroutinen geladen. AnschlieBend 



- Turnier uon Diskette 

- rteues Turnier 

- Dienst (Funkt ionstasten belegen, 

- Kopf daten andern 

- we iter ohne Rnderung 

- Programm beenden 
Bild 1. Das Hauptmenu der Schachverwaltung deutet die 




18 



SONDERHEFT 36 



C128 



ANWENDUNGEN 



6570 GOTO 60 

6580 PRINT "<2HCJME,a_R,RVSQN) S I S K E T T E(2SP 

ACEJF R M A T IE REN {RU0FF>"1 POKE 229 
,1 
6590 PRINT " tCLR,20QWNJaiST DU SICHER (J/N) "; BE 

T KEY A*: IF A*-"J" THEN 6610 
6680 IF A*-"N" THEN 601 ELBE 6S88 
661© PRINT "(2D0WN>EIT NEUER ifl FORMAT IEREN. .. Jfi/ 

NEIN 7" 
6620 GET KEY A*! IF A*<>"J" AND A*<>"N" GOTO 661© 
6636 INPUT " <2D0WN}SEUER B.I 5KETTENAME 125PACE ) " : N* 
6640 IF A*-"J» THEN PRINT " CDOHNIHIE LAUTET NEUE 

IS "; I INPUT OD* 
6650 IF A*-"N' THEN DPEN I ,8, 13, "N: "*N#j CLOSE 1: 

GOTO 6678 
6669 OPEN l.B, 15,"N: "*N*+", »+oo*i CLOSE 1 
667a CLOSE l! SOTO 69 
66B0 PRINT "<2H0ME,et_R,RUSQN,3SPACE)£,{3SPACE>A(4S 

PACE >R { 4 SPACE >B (4SPACE > W (4SP ACE > A MSP ACE ) H (4 

SPACE >L {2SF ACE , RVOFF > " 
669© PRINT " 15D0HN,2SPACE> I 8 J fllNTERERU 

ND UAEHLEN 
6780 PRINT "(K)WN,2SPACE>f I 3 JEICHENFAR 

BE WAEHLEN 
6718 PRINT '■fDOUN,2SPACE>[ 4 ] iAHPIENFBRB 

E UAEHLEN 

6728 PRINT " (BOWN,, 2SPACE ) [ » I. U £ B U £ 

6738 PRINT " C6DQWN1 »> 3ITTE JASTE BEDRUECKT HAL 

TEN «< 
6748 PRINT " C3DOWN) " 

6758 F-lt H-0: FOR F-l TO 16: FDR H=0 TO 7 
6768 GET KEY A* 

6770 EF A*- - ©" THEN B=0: GOTO 6B30 
6700 IF A*-CHR*(49> THEN B=5 = SOTO 6S10 
6790 IF ASC(A*)-=52 THEN B=4: GOTO 6B38 
6808 IF A*-"*" THEN 601 ELSE 6760 
6B10 POKE 228,23] POKE 229,22 
6820 PRINT " {RVSON> 3EICHENFARBE 

i . , . lflVOFF>" 

6830 COLOR B.F.H; COLOR (B-=0) »t-4) ,F 

6B48 NEXT H,F 

6858 IF F>16 OR F<1 THEN 6750 

6860 GOTO 6760 

6B70 PRINT "{2HONE T CLR,RUSON> JH2SPACE JA{2SPACE>T 

«2BPACE>U (2SPACE >H 12SPACE 1 / £3SPACE}jA<2SPACE> 

H<2SPAC£)RC2SPACEJ7{2SPACE)Et2SPACE)I(2SPACE 

IT CRUOFFJ" 
68B0 INPUT " {3D0WM)aBTUM (TT. BH . 11)1 )"iDA*: IF □ 



<S2B> 
<PRB> 

<DN7> 
<I7T> 
<3JA> 



<CF4> 
<JF2> 
<KVO> 



<NLE> 
<5UJ> 



<D32> 
<NB3> 

<9N7> 
<EUC> 
<I6L> 
<2©0> 
<HP1> 
<PLH> 
<JKA> 
<KAG> 
<3CP> 

<GTJ> 
<2VJ> 
<KSV> 
<AVD 
<680> 



At="" OR LEN(DA*)<>10 THEN PAJ--TT. HH. J J J J " 
6S90 INPUT "<3DDWN>JJHR!EIT I HHMMSS ) "iTI* 
6988 SOTO 68 

6910 TRAP 6918: IF ER=20 THEN CHAR ,26, 7, '■fegjisa," : 
BET KEY 6*1 CHAR ,26,7, ■■ (5BPACE3 ■' s A*."A" ! 

GOTO 4718 
6915 PRINT " t2HW£,CLR}"l IF ER=5 THEN CHAR ,3,12 

."EERAET 1ST NICHT BETRIEBBBEREIT !'."i GOTO 

6960 
6928 IF ER=-1 THEN 6948 
6930 IF ER-30 THEN 694© 
6948 PRINT ■{2HDME,CLRJ" 

6950 CHAR ,12,12,"2URUECK INS ££NUE. ! • • " 
6960 CLOSE li FDR U-l TD 10001 NEXT U: R*(W)--"l 

POKE 008,112! RESUME 60 
6970 CLOSE 1 

69B8 CLOSE li PRINT " (RVSDN , SSPACE >il TTE DRU6CKEN 
SIE EINE IASTE ! (4SPACE , RVOFF > " 1 BET KEY A* 

I RETURN 
6998 PRINT "<CLR,4DOMN)': PRINT TAB<S)Pl*i PRINT 

TAB(8>" = iWCH JEENDIGUNG BITTED" 
7008 PRINT TABtG)P2*i PRINT TAB(S> "-C3SPACE>B»STE 
DRUECKEN ?(2SPACE}^": PRINT TAB(B)P4*: RETU 

RN 
7010 SU-8: S«0! 30=8: EI-8; FOR 1=1 TO M: S«VAL<5 

HI)) I M*-HID*(T*<I», t,l)i I«-STR*(S) 
7028 IF M*="-- THEN SU=SU-VAL C 1*> . ELBE SU-=SU+VAL 

(t*> 
7038 IF M*> 

(It) 
7048 NEXT t 
7030 RETURN 

7060 RU=0j FDR 1-1 TO 

7070 R2*-MID*<L2*(I) ,13,4)1 R1*-MID* (L2*( I ) , t ,1) 
70S0 IF Rl«-»-" THEN RU-RU-UAL (R2«) I ELSE RU-RU+U 

AL1R2*) 
7898 NEXT I 
7100 RETURN 

7118 E*="". CHAR ,26,7,«{RUOFF,I8SPACE,RWSON)"I R 
ETURN 



Listing 1. »HAUSHALT« (SchluB) 



THEN SQ-SO+VALtl*)! ELSE E1=EI+VA1_ 



<LNP> 
<7JS> 
<JR8> 



<TBE> 
<7B8> 
<0RB> 
<H10> 
<PQB> 

<A6B> 
<SAN> 



<KID> 
<481> 



<4S4> 

MS. 
<094> 
<PE7> 
<HHW> 
<H02> 

<H0C> 
<S44> 
<907> 



lun a fu TiTO? 

erscheint das Hauptmenu (Bild 1). Sinnvoll ist es, wenn Sie 
nun den Menupunkt2anwahlen. Mit diesem ist ein neues 
Turnier anzulegen. Drucken Sie die Taste <2>, so er- 
scheint eine neue Zeile, in der der Name des Turnters sowie 
die zu spielende Rundenzahl {jeweils gefolgt von 
<RETURN>) festzulegen sind. Ist dies gescrtehen, er- 
scheint eine neue Eingabezeile, in der Sie den Namen ein- 
geben, unter dem das Turnier auf Diskette gespeichert 
wird. SchlieBen Sie die Eingabe mit < RETURN > ab, spei- 
chert die Schachverwaltung Ihr Turnier. 

AnschlieBend erscheint eine neue Bildschirmmaske. 
Hier nehmen Sie die Spielerverwaltung vor. Zuerst sind na- 
turlich die Daten alter teilnehmenden Spieler einzutragen. 
WahlenSie<k> (Kommando)unddann <n> (Neueinga- 



be). Der blinkende Cursor im Eingabefeld signaiisiert, daB 
Spieler eingegeben werden konnen. Drucken Sie einmai 
< RETURN > , so befinden Sie sich im Namensfeid. Tragen 
Sie nun den ersten Spieler ein. Der Nachname ist durch ein 
Komma mit nachfolgendem < SPACE > anzufugen. Sie 
konnen den Namen mit den Editiertasten (Cursor-Tasten 
usw.) wie gewohnt bearbeiten. Drucken Sie erneut < RE- 
TURN > , springt der Cursor in die zweite Rubrik, in der Sie 
den Verein des Spielers eintragen konnen. Die nachsten 
beiden Rubriken sind fur die Eintragung des Platzes in der 
Rangllste, den der Spieler belegt, vorgesehen. Vereins- 
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Leistungsvielfalt nur an 



Bild 2. Spieler und Ergebnisse sind schnell eingetragen, 
die Erstellung der Tabellen ubernimmt das Programm 
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spieler kennen die Bezeichnungen »!NGO und »ELO«, die 
die Bewertung eines Spielers In der Weltrangliste kenn- 
zeichnen, Sind Sie in der »ELO«-Spalte angelangt, er- 
scheint in der FuBzeile des Bildschirms der Hinweis, daB 
mit < i > die informelle ELO-Zahl in den INGO-Wert umge- 
rechnet wird. Die Eingabe der Wertung in der Rangliste 
kann allerdings auch vollstandig weggelassen werden, 

Geben Sie nacheinander auf die gleiche Weise alle Teil- 
nehmer ein {Bitd 3). Die Eingabe schlieBen Sie mit 
<ESC> ab. 

Wieder erscheint das Untermenti mit den Punkten »Kom- 
mando«, »Turnierverwaitung«, »Funktionstasten belegen« 
und »abspeichern«, 

Wahlen Sie den Punkt »Kommando« und anschlieBend 
<I> for die Spielerliste. Mit <p> und <P> blattern Sie 
in der Liste seitenweise vor- und riickwarts. Mit den Tasten 
<+> und <-> im abgesetzten Tastenfeld blattern Sie 
einzeln in der Spielerliste. 

Nach diesem ersten Exkurs in die Bedienung des Pro- 
gram ms kommen wir nun zur systematischen Beschrei- 
bung derverschiedenen ProgrammpunktederSchachver- 
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Bild 3. Die Spielerliste eines Turniers ausgedruckt auf 
einem NEC P 2200 in NLQ-Schrlft 



waltung. Das Prograrnm ist in weiten Teilen selbsterkla- 
rend, so daB wir die Funktionen nur kurz aufzahlen, Sie 
konnen ausjedem Menu mit der Taste <ESC> zum uber- 
geordneten Menu zuruckkehren. 
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Sie zur B-enerrschung in Satherc Musik 
auf dem CS4/C128 bendttgefi Wote 
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bare Beispiele fuhien Sie m die Musik- 
programmierung ein. Egal, cb Campu- 
ter-Laie Oder ausgeluchster profi - liir 
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Fan ist em Musikprogramm dabei! 
Besteil-Nr, 90521 , ISBN 3-89090-521-fl 
DM59.- sFr 54.30/bS 460.- 



C64/C12B Profi-Tools 
zu VizaWrite 

1988, 136 Seiten. inkl.2 Dfcsketten 
Eine ViefzahJ wichtiger rnformationen 
und letstungsJafttger Uliiines fur d_.. 
optimalen Einsatz der behebten Text- 
uerarb&itung VizaWrile 64! 
Nicbl nurfurrJenpraKtischen Anwender. 
sondern auch fur den Pragramn-iierer 
bietet das Such wtchllge Htrvweise. z B- 
eine Liberstchl bedeutungsvoller und 
mlefessartter VizaWnte-Routinen, die 
Sie in eigenen Programmen verwenden 
konnen 
Beslell-Nr. 90580, ISBN 3-89090-580-3 

DM 59V 5Fr 54,30 * /bS 502,-* 



SBaloui 

C64/C 128 Profi-Tools 

198B, 156 Seiten. inkl. Diskette 

Eine vollstandtge Sammlung von Assam- 
bler-Ro-ulinen fur profess ioneife Basic- 
It Kon- 

trotlmenu - \terwaltung von Pull-down- 
Menus, Windowing - emzelne odar 
ybsrfappende Windows. Directory - 
Directory in Stnngarray einlesen, 
Quicksort - extrem schnalle und flexible 
Sortierroutine, Fastsave-bliizsch relies 
S peicbarn kom plelte r Arrays, Fgstload - 
scbnelies Laden ko-mptetter Arrays, 
Makfosinii - Definitton von Tas^lur- 
Makfos und vreles rnehr 
Beslell Mr. 90617. ISBN 3^89090-617-6 

DM 49,-* sFr 45,10* /6S 417,-" 



Einfuhrungskurs: 
Commodore 64 

2.. uberarb. Autlage 1968. 209 Seiten. 
inkL Diskette 

Dieses Buch. soil Ihnen helfen, sich mtt 
Ihrern Commodbre 64 rundum veriraul 
i u an ac h a n . Die ersten Kapilel v^rmil teJn 
ihnen Grundkenntnisse uber die Hand- 
warn. AJs Fortgeschritlener kdn-nen Ste 
direkt zu den Kapiteln iibergehen. die 
sich mit der Prograrnm lersprache Basic 
beschafligen Urn abschlieftenden Test 
werden Hardware-Erwetterungen und 
weilere Programnnerspracben worge- 

SleiiE 

Bestell-Nr 90607. ISBN 3-89090-607*9 

DM 38,- sFr35,-/dS296,- 



S, Vilsmeier 

3-O-Konstruktion m»t 
Giga-CAD Plus 
auf demC64/C128 

1986, 183 Seiten. inkL 2 Olsketten 
Das 3-D-KonslruklJonspfogramm Gig 

GAD, das im 64'er-Sonderhefl Grafik f 
Furore sorgre. isl eines der prolessi 
nalisten GAD-PfogFamme lur den C6 
Mil Giga-CAD kdnnen Computergra 
ken von besonderer RaumlichkeiT ur 
Fas2ination geschalfen werden. 
Bestell-Nr, 90409. ISBN 3-89090-409- 
DM 49,-* sFr 45.10 " IbS 41 7 - ■ 




MarM&Tectinik Verlag AG, Buchveriag, Hans-Pinsel-StmB« 2, 8013 Haarbei Mtinchen, Telefon (089) 4613-0. 

Bestellungon im Ausland bilte an: SCHWEIZ: Markt&Technik Vsrlriebs AG. Kolleislrasse 3, CH-6300 Zug, Telefon (042) 41 5656, 

6STERREICH: Markt&Technik Werlag Gesellschaft m.b.H., GroBe Neugasse28. A-1040 Wien, Telefon (0222) 5871393-0, 

Rudolf Lechner&Sohn, BeizwertelraBe 1D, A-1232 Wien. Telefon (0222) 677526, 
Ueberreuter Media Verlagsges.mbH (GroBhandel), Laudongasse 29, A-1082 Wien, Telefon (0222) 48 1543-0 



lVlarkt&Technil< 

Zeitschriften • Bucher 
Software ■ Schuiung 



ANWENDUNGEN 



C128 



ECU — ChampioiMihip 


Girl 




l-tr^dcaxr 


16 




> 


RanKing List aftttr 


tha 


s_ Round 


< 


tut 


Hqn 








KilU 


III 


■III 


1, 


Bojkovie, Nataaja 








S 






2. 


rraurteau r Sabine 








3.5 






3. 


SsdachoMilCB. JcfaHsu 








3 


15.5 


9 


4. 


van hwuiubi, Hurl«en 








3 


15.5 


8,5 


5. 


Grata*** tir, smttrldar LiiU 






i 


3.5 




6. 


KUowr, H«ii» 








1.5 


12.5 




7. 


PuiUtinju, Johanna 








1.5 


11 




a. 


Jercaen r Christina 








1 


15 


i.s 




Hicklandta-. Eliaaheth 








1 


15 


a. s 


10. 


Itoeiat, Lmi 








1.5 


10. 5 


ft. 5 




■lintH, Sheila Eaxttl 








1.5 


10.5 


G.5 


13. 


Jahrita, Ka trill 








.5 







Bild 4, Die Bangliste nach 1i.nl Runden mit 
Buchholzwertung 



Hauptmenu 

<1>: Turrtier von Diskette laden 
<2>: neues Turnier anlegen 
<3>: »Dienst«-Menu aufrufen 



<4> : Kopfdaten andern, das heiGt, die Bezeichnung des 
Turniers in der Titelzeile neu festlegen 
<rtn>: Daten speichern, weiter ohne Anderung 
<esc>: Programm mit der ESC-Taste veriassen, Es er- 
scheint eine Sicherheitsabfrage, die Sie mit <j> oder 
<n> beantworten konnen. 

Alle Funktionen auf einen Blidc 

Dienstmenii 

<1 >: Funktionstasten belegen. Die Funktionstasten sind 
mit Begriffen, auch Steuersequenzen Ihrer Wahl zu bele- 
gen. 

<2>: Inhaltsverzeichnis der Datendiskette zeigt alle ge- 
speicherten Turniere an. 

<3> : Die im Laufwerk mit der Nummer 8 eingelegte Dis- 
kette wird zweiseitig formatiert, Es sind Diskettenname und 
ID einzugeben. 

<4>: Turnierdatei auf der Diskette im Laufwerk mit der 
Nummer 8 loschen. Die Turniere auf der Diskette werden 
angezeigt. nach dem Driicken einer Taste ist die laufende 
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5 Viismeiier 
C64/C128 

Objekt-Bibliotheken zu 
Giga-CAD Plus 
ton, 64 Seiten. lnk] r 2 Disketten 
Erne SarmmSung von neuen Objekten, 
2echens&tzen und Ul Nines fur das 
Mfcannte Konstruktronsprogramm. 
Oe m>.gelieferten Construe! ion -Sets 
vnd auf zwel Disfcetlen enihaUen Sie 
warden in den GenuD herausragendar 
Ofjekle gebracht. die Sie beltebig ver- 
«nd*m und hombmiBren. aus alien 
Richfungen be! rachte n ,. sen alder yn V n a 
twwnieren tonnen! 

SMtelkNf. 90581, ISBN 3-89090-561-1 
DM 39"* 3^35,90^65 332,-* 



Mini-CAD mit Hi-Eddi plus 
auf demC64/Cl28 

1936. 230 Seiten. in kl. Diskette 
Auf der deiliegenden Diskette lindel der 
Leser das vollslandige Programm. mit 
derm das komfort&ble ErateNen von 
techmsc hen 2Ta.chnunge.ri . P lanen Oder 
Diagrammen ebenso mtigtich isl wie 
dasMaien von Jarbigen Bildern, Entwurf 
und Ausdruck von Quckwunschkanien, 
Schifdern. ja sogar von be-vegten 
Sequenzen (kleme THCklilme. Schau- 
fenster-WerbungJi 
Beslell-Nr. 90136, ISSN 3-89090-136-0 

DM48,- sFr 44.20/6S 374.- 



R West 

C64*Computer-Handbuch 
mit GEOS-Update 

1986. 385 Seiten 

Das Such ist das Ergebnis einer jahre- 
langen miensrven Beschafllgung mit 
dem C64 Es reichl von den profes- 
stonellen Aspeklen der Basic- Pro- 
grammierung uber sehr sysfemnahe 
Informaiionen (Anderungen am Binge- 
baulen Basse, am Beinebssysiem etc ) 
bis hm zur Hardware und alien Fragen, 
die damn zusammenhangen 
BeslellNr. 80324. ISBN ^921803-24-1 

DM66,- sFr6070/bS515,- 



Pascal mit dem C64 

1986, 215 Seiten. ink). Diskette 

Buch und Compiler ermogFichen jedem 
Besilzer ernes C64 den Ernst leg in die 
n " u,, " rt * Dr, " HLT,r ^!rnmJerspfache Pascal 

^'.■niiiai ly^H wird em Emluh njngsKuf s 
in PascaJ gebolen, wobei viele uber- 
schaubare Beispiele aus der Praxis und 
UbungsauTgaben mm akliven Lernen 
mrtdemCSJaultordenn Beim Program' 
mieren wird er durch eine ausfuhrliqhe 
BedienufigsanJeilung untersliit^r 
* Dem Buch hegf em lehstungslahiges 
Pascal-System mil ernigen Pascal-Pro- 
gram men. auf Dtsketle bei 
Bestell-Nr. 90222, ISBN 3-69090-222 7 
DM52,- «Fr47A0/6S406 r 



H WiihgTt/A. Draheim 

64'er - 

GroBer Einsteiger-Kurs 

1988. 248 Seilen. inkl.DisKette 



Henmng, def vielleicht bekanntesfB 
Einsieiger Deuischlands, machi auf 
mannigfallige Weisa Qrundlagen klar 
Dabei erweilert m standig semen CS4 
Dies begmntmiTemer Diskemn-SialiDn 
und endet mit uber den Bildschimn lah- 
renden Laslwagen und musizierenden 
Compulern. 

Nach dem Durcharbeilen von ■■ He n n i ng 
packl aus- besitzl der Einsleiger alle 
GrundJagen, die er lur seine mjtwa 
Arbert am CG4 brauchl 
BeslellNr. 90668, ISBN 3^9090^88-0 
DM 29,90 sFr 27.60IOS 233,- 



'Unverbindliche PretsempJehlung 



MarktSTecbrak-Produkle 
efhalten Sie in den Fachabteilungen 
aer Warennausar, im Versandhandel, 
n Com puter-Fachgeschaften oder 
Oei Ihram Buch handler 



Fragen Sie Ihren Fachandfer 
nach unsemm kostenlosen Gesamtverzeichnls 
mit uber 500 aktyellen Computerbuchem 
und Sottwana, Oder fordern Sie es difekt 
beim Verlag an! 
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NummerderTurnierdatei anzugeben, es erscheint eine Si- 

cherheitsabfrage. 

<5> : Turnierdatei umbenennen, der Ablauf erfolgt wie bei 

Punkt 4. 

<6>: sonstige Diskettenbefehle eingeben, das Befehls- 

format entspricht den Angaben im Floppy-Handbuch 

Mit einer anderen Taste als den Zahlen 1 bis 6 erfolgt der 
Sprung zum Hauptmenu. 

Nachdem Sie ein Turnier von Diskette geladen haben, 
gelangen Sie in die eigentliche Verwaltung. Wenn Sie die 
Spieler eingegeben haben (s.o.), sind zuerst die Paarungen 
fur die erste Runde einzugeben. Diese Funktion wahlen Sie 
mit < p> : Sie haben nach dieser Wahl folgende Moglich- 
ketten: 

<n>: Paarungsneueingabe 
<a>: Paarungen aufheben 
< I > : Liste der Paarungen 

< f > : Spieler suchen - geben Sie den Namen des Spielers 
an. Anschlieflend wird, falls der Spieler gefunden wird, die 
Paarung mit diesem in der aktueilen Runde angezeigt. 
Sind mehrere Spieler mit diesem Namen beteiiigt, werden 
alle betreffenden Paarungen ausgegeben. 
<p>: noch nicht gepaarte Spieler anzeigen 

Mit <ESC> gelangen Sie wieder in das Verwaltungs- 
menu. 

DortfindenSiealsweiteren Punkt <e>, rnitdemSiedie 
Ergebnisverwaltung (Bild 2) vornehmen. Folgende Punkte 
stehen Ihnen nach der Wahl der Ergebnisverwaltung zur 
Verfiigung: 

<n>: Ergebnisse neu eingeben. Sind in der aktueilen 
Runde al!e Ergebnisse eingetragen, erscheint ein Hinweis 
in der FuBzeiledes Bildschirms. Die Kennziffern alter mogli- 
chen Ergebnisse erscheinen in der FuBzeile, es ist nur die 
betreffende Ziffer zu driicken (<0> bis <7>). 



< L> : alle Ergebnisse loschen. Die Ergebnisse der aktuei- 
len Runde werden nach einer Sicherheitsabfrage komplett 
geloscht. 

<e> : offenstehende Ergebnisse der aktueilen Runde an- 
zeigen 

<l>: Liste aller offen stehenden Partien (noch nicht ge- 
spielte oder Hangepartien) ausgeben 
<f > : Spieler suchen (wie oben) 

Soweit zu den Funktionen im Ergebnismenu. 

Das Verwaltungsmenu besitzt weitere Funktionen. Mit 

< n > gelangen Sie in die nachstezu spielende Runde. Der 
Ablauf dort ist wieder wie oben beschrieben. Mit <r> 
wechseln Sie in eine beliebige andere Runde. Geben Sie 
einfach die Rundennummer ein. 

Im Untermenii »Tabellen« ist der Stand aller Spieler in der 
Gesamtwertung auszugeben. Sie konnen w§hlen: 
<f>: Fortschrittstabelle auf Drucker 
<t>: Rangtabelle ohne Buchholzwertung (siehe Kasten) 
<T>: Rangtabelle mit Buchholzwertung 

Bei Ausdrucken konnen Sie wahlen, ob die Datei auf den 
Drucker oder in eine sequentielle Dates ausgegeben wird. 
Haben Sie »Drucker« gewahlt, ist noch anzugeben, ob der 
Ausdruck in NLQ-Schrift erfolgen soil (Bild 3). 

Mit der Wahl von <s> im Verwaltungsmenu gelangen 
Sie in die Spielerverwaltung. Sie konnen Spieler loschen, 
Spieler suchen oder die Liste aller Teilnehmer sortiert nach 
Namen, Verein oder Kennzahlen ausgeben. Haben Sie alle 
Operationen abgeschlossen, wechseln Sie mit <t> in die 
Turnierverwaltung. 

Wie schon oben erwahnt sind die Funktionen der 
Schachverwaltung zum groBen Teil selbsterklarend. Sie 
werden dies beim Umgang mit dem Programm feststellen. 
Wirwunschen Ihnen beim Verwalten Ihrer Schachturniere 
viel Erfolg. (R.A. Schulz/rs) 






Buchholz-Wertung 



Die Wertung nach Buchholz(Bholz}verfeinert das Schweizer System. 
Es werden nicht nur die bisher errungenen Punkte im Turnierveriauf 
bei der Ansetzung der Paarungen der nachsten Runde berucksich- 
tigt, sondern glelchzeitig die Spielstarke der bisherigen Gegner. Zur 
Ermttttung der Spielstarke dienen dabei die bisher erreichten Punkte, 
die alle Gegner bis zur letzten Runde erreichten. Diese Punktsumme 
ist ein weiteres Kriterium zur Ermittlung der nachsten Gegner. Bei der 
Auswertung nach dem »mittleren Buchholzwert» (mBholz) fallen die 
Punkte des Gegners mit den meisten und die des Gegners mit den we- 
nigsten Punkten aus der Berechnung (Bild 4). 



So enflstond die Schachverwaltung 

Als die Dortmunder Schachtage immer groBer wurden, 
fragtesich derSchiedsrichter, wie er einen immer mehran- 
wachsenden Spielerberg beherrschen sollte. Da kam ein 
Schachfreund auf die rettende Idee: Reinhard Schulz vom 
ausrichtenden Club Schachfreunde Dortmund-Brackel 30. 
Er hatte die Vision, daB ein Turnierspielsystem wie das so- 
genannte »Schweizer System« fur die Auswertung mit ei- 
nem Computer wie geschaffen sein muBte. Reinhard 
Schulz besaB einen C 128 - sollte dieser Computer den An- 
forderungen genugen? Fast jeder Beobachter war skep- 
tisch. Waren doch die Versuche mit einem der »groBen« 
Computer, zum Beispiel einem IBM-PC, klaglich am Zeit- 
problem gescheitert. Eine Zeitersparnis von zirka 20 Minu- 
ten gegeniiber der Handauslosung, die ungefahr 45 Minu- 
ten in Anspruch nahm, ware nicht der verdiente Lohn des 
Programmieraufwandes gewesen. 



Eingabehinweise 



Die Schachverwaltung umfaBt insgesamt sechs Listings. Geben Sie 
bitte die Listings 1 und 2 mit dem Checksummer 128 (Seite 15B) ein. 
Die Listings 3 bis 6 sind im 64'er-Modus mit dem MSE einzugeben und 
zu speichern . Kopieren Sie anschl ieBend alle Listings auf eine Disket- 
te, diezweiseitig formatiert ist. So stent Ihnen fur die Tumiere reichlich 
Speicherpiatz zur Verfiigung. 
Starten Sie das Programm, indem Sie das Programm »LADER« mit 

RUN'LADER" 

aufrufen. Die folgenden Programmteils werden nach einem Tasten- 
druck automatised nachgeladen. 

Beachten Sie bitte, daB der Ausdruck der Listen nur Dber ein Verbin- 
dungskabel am User-Port des C 128 zum Drucker erfolgt. Der ange- 
schlossene Drucker muB also eine Centronics-Schnittstelle besitzen. 



Das Schweizer System 



Das Schweizer System ist eine bei Schachfreunden in aller Welt be- 
liebte Form der Ansetzung von Spielpaarungen in einem Turnier. Fur 
einen Sieg gibt es im Schachturnier einen Punkt, fur ein Remis oder 
Pan (Unentschieden) einen halben Punkt. Beim Schweizer System 
spielen immer die Spieler gegeneinander, die im bisherigen Turnier- 
veriauf die gleiche Anzahl von Punkten errungen haben. Die erste 
Runde wird nach den Vorleistungen (Rangliste) der Spieler an gesetzt. 
Nattirlich muB noch berucksichtigt werden, daB moglichst nicht Geg- 
ner wiederhoit gegeneinander antreten. Dieses Spielsystem fuhrt in 
den meisten Fallen dazu, daB nach schon einer geringen Anzahl von 
Paarungen der wirkliche Leistungsstand der Spieler ermittelt wird. 



Mit diesen Voraussetzungen ging es an die Arbeit. Drei 
Monate intensive Beschaftigung, Eindringen in die »Spha- 
ren« des Betriebssystems des C 128 und Einarbeiten in den 
notigen Algoritmus fuhrte zum ersten Entwurf. 
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Dann folgte die Umsetzung des Konzeptes in ein© dem 
Computer verstandliche Sprache. Eine Hochsprache, bei- 
spielsweise Pascal, fiel fur die Umsetzung aus - viel zu 
langsam. Also: Aufbruch in die Welt der Maschinenspra- 
che. Assembler laden, Programm eingeben, austesten 
und... Absturz. Unzahlige Tage und Nachte verfluchte der 
Autor sich und den Computer. Aber er gab nicht auf, so da8 
nach vielen Monaten kurz vor Weihnachten die erste lauffa- 
hige Version vorlag. 

Bei einem Blitzturnier im Heimatverein solite die Gene- 
ral probe erfoigen. Der erste Versuch scheiterte - Absturz. 
Doch man kam dem Fehter schnell auf die Spur: Eine Be- 
triebssystem-Erweiterung vertrug sich nicht mit den massi- 
ven Eingriffen in die Interpreter- und Kernel routinen. Bei 
den nSchsten Probefaufen wiirdigten Vereinskameraden 
schon fasziniert die blitzschnelle Arbeit des C128. 



Sternsfunde fur den C128 



Dem groBen Auftritt des C 128 stand nun nichts mehr im 
Weg. Die 15. Internationalen Dortmunder Schachtage nan- 
ten mit Riesenschritten. JCirgen Grastat, Vorsitzender des 
Schachclubs und Hauptorganisator, gab sein »O.K.«. Die 
folgenden Wochen wurden genutzt, urn der Bediener- 
freundlichkeit den letzten Schliff zu geben. 



Bei AnmeldeschluS staunten die Organisatoren uber die 
gro8e Teilnehmerzahl. 212 Schachfreunde aus aller Welt 
hatten sich angemeldet, um an dem zweitgroBten Turnier in 
der Bundesrepubiik teilzunehmen. 

Wieder gab es Zweifel an der Leistungsfahigkeit des Pro- 
gramms auf dem C128. Solltedie Verwaltung diese gewalti- 
ge Spieferzahl bewaltigen? Es gelang. Der anwesende in- 
ternationale Schiedsrichter harte fur die Festlegung der 
Paarungen zirka zwei Stunden benotigt. Mit Hilfe des Com- 
puters dauerte es genau zwei Sekunden! Zeitweise bildete 
sich eine groBe Zuschauertraube um den Computertisch, 
um die Auslosung »byte-frisch« zu erfahren. 

Die Leistungsfahigkeit wurde bei dem Hauptturniernoch 
nicht vollstandig klar. Hier wurde jeden Tag eine Partie mit 
insgesamt fiinf Stunden Bedenkzeit gespielt. Beim folgen- 
den Blitzturnier jedoch, bei dem jedem Spieler nur fiinf Mi- 
nuten Bedenkzeit pro Partie zur Verfugung stand, erhielt 
das Programm dann mehrfach Szenenapplaus. Das Blitz- 
turnier wurde nach dem beruhmten Schweizer System 
durchgefiihrt - ein Novum in der Geschichte eines wichti- 
gen Turniers. Nur mit Hilfe des C 128 war die Ansetzung der 
Paarungen und die Auswertung der Ergebnisse in dieser 
Kurze zu bewaltigen. 

Auf dem Atari ST lauft inzwischen ebenfalls eine Version, 
auch die Umsetzung auf andere Computer 1st geplant. Die 
Atari-Version vertreibt der Autor inzwischen. 

Into: Rolnhard Andreas Schuli. Lindeinannstr. 66. 4600 Dortmund I, Tel. 023W36952 



1 FAST i POKE 0,PEEK(0> OR 64: POKE 1,0: POKE 48, 
70: POKE 47,0: CLR : COLOR 6,1 : GRAPHIC CLR : B 
RAPKIC 5,l! PRINT " <6ftEEN,CTRL^-N,CTRL^-K)■ , ( : TRA 

p 1001 

16 BLOAD "CH.SYS1" ON 81: BLOAD "CENTRONICS" ON B 

0: BLOAD "SCREEN" ON B0: BLOAD M SPSORT" ON 60 
100 JN*-"lRVSONJ J (RVOFF) / CRVSON) N {RVOFF}"; 

Z A*- " 01 23456789 " 
1*2 BS*=" ABCDEFeHIJKLt1NQPBR3TUVWXYZ reWtfl(SWf3"L'Vlf 

JUMUl£fjsW]JiLrmapmaTuvHxTz*=-^ > ! txt./ « ) =?c TH+* 

J<#'-.": CL*-CHR*(27)+"e": CR*-CHR* C27) +"8" 
IBS DIM E*<3),EE#<9},SRX(254),NA*<254,3>,NAX(2S4, 

1) ,FA*<3> 
106 EB*te)-"tB3PACE>": FA*<0>-" •■: FA*U)=",tt": EG 

*!1>-"{2SPACEH:0<2SPAC£)": EG*<2)="(2SPACe>e 

: 1 {2SP ACE l"i ES* { 9 > « " <2BPAC£ ) C35PACE )KL " : FA 

*(2>»"a": EG* til-" REMISC2SPACE}": EB»14)-" H 

FNGT12SPACEJ" 
111 6B*(5)-" C2SPACE)li0 KL": EG*I6>=" (2SPACEJ0: 1 

KL"i EG*(7>="{2SPACE)0t0 KL": EG* (9) -" (2SPACE 

Jl <3SPAC£>KL" 
116 TAX=15I56| LTX-15974: LE7.-1S9B6: UPK=16eitl B 

TX=I601G 

120 KE*-" tflVSONJ 9 <RVOFF) - NOCH NICHT GESPIELT 
<2SFACE>*t2SPACE,RVSON) 1 {RVOFF) - 1:0{2SPAC 
EJ*t2SPACE,RVS0N> 2 (RVOFF) - 0; 1 £2SPACE)» t2S 
PACE,RVSDN> 3 «UOFF> - REHIS ■ 

121 YE*=" (RVSON) 4 {RVOFF} - HFNGT{2SPACe}»{2SPA 
CE.RVSON} 5 {RVOFFJ - 1:0 KL (2SPACE)*{2SPACE , 
RVEON) 6 (RVOFF, 2SPACE} 0:1 KL{2BPACE}»(2SPACE 
,RVSON} 7 (RVOFF, 2SP ACE)- 010 KL£2HOME>" 

122 DF*-"FrjRTSCHRlTT6TABELLE WIRD GEDRUCKT ' - JRU 
CKBTOPP MIT (RVSON) ESC CRVOFF)" 

124 SP*-""l FOR 11=1 TO 80: SP*-SP*+" "-. NEXT II 

125 BX*=" {RVSON) ♦ {RVOFF} / {RVSON) - {RVOFF} - 

EINZELN ... *{2SPACE, RVEON} p {RVOFF} / (RVS 
ON> £ {RVOFF} - SEITENWEISE S-FTTERN"l DL*-" 
SDLLEN SATEN BESICHERT NERDEN?(SHF. SPACE)" 

214 GOSUB 10001: GOTO 63901 

1001 IF ER»30 THEN RESUME 

1902 IF ER=2 THEN CLOSE 2: CLOSE 15: RESUME 

1003 BANK IS: SVS 5760: GOSUB 2066: PRINT '■ {2HOME 
}": CHAR ,0,23, CL*; PRINT ■ rEHL,E,ft - ":EftR*l 
ER) 

1004 PRINT " {RVSON) RTN (RVOFF) - fORTSETZUNS DE 
5 £ROGRAMMSf2SPACE>»t2SPACE, RWSON) ESC tRVOF 
F) - JIEUSTART") 

teea bet key xt*b if xt*-chr*(13) then 1014 

1006 IF XT*OCHR#<27> THEN 1005 

1007 CHAR ,0,23,CL* 

100Q PRINT " SIND SIE SICHEH? "JN*" VOtSICHT - ai 

TENVERLUST I " 
10«9 GET KEY XT*i XTK-INSTR< "JN- ,XT*> t ON XTX GOT 

O 1010,1004: GOTO 100? 
I Bin RUN 1011 

1011 BANK 15: SYS S76B: POKE 4B.70I POKE 47,0: CL 
R 

1012 TRAP 1001 

1013 GOTO 100 

1014 BANK 15: SYS 5763: RESUME 

2001 VOL 15: SOUND 1.6000,10 2l RETURN 



<03H> 
<NBD> 
<UHN> 

<SSB> 
<DCO> 



<7H2> 
<UM6> 



<ASV> 
CNVF> 



<2AA> 
<2S9> 
<2H1> 
<HI2> 



<0UU> 
<APH> 
<W4S> 
<H02> 

<JB'?> 

<7AJ? 
<9ND> 

< ^ 
<IAS> 

<TJS6> 

<6BM> 
<BR'?> 



2006 VOL 15i SOUND 1 , 1500,20, ,,, li RETURN 

3001 PRINT "{2H0ME1-I WINDOW EXX,£Y%,EXX*ELX,EYX, 

1: PRINT CHR*(27)"M";: BANK 15s SYS 52591 
3»«B PRINT CHR*<27) "J"E*(01 iCHR*(27! "O-J 
3010 BET KEY XT*: IF XT*=- M (CTRL+I J" THEM 3005 
3015 IF INSTR(E*(2>+CHR*(27) ,XT*>>0 THEN 3060 
3020 IF XT*=CHR*<13) THEN 3050 
3025 IF XT*=CHR*(20I AND POS<0)=0 THEN PRINT - "( 

: GOTO 3045 

3030 IF INSTR< "(LEFT, RIGHT, CLR>"+CHR*(20) ,XT*f>0 
THEN 3045 

3031 IF XT*-"UNST>" THEN PRINT » UNST> <LEFT)"j: 

GOTO 3010 

3032 IF XT*"" CHOMEJ" THEN PRINT CHR*(27) "J" j i EOT 
O 3010 

3035 IF POS(0(=EL% THEN 3010 

3040 IF INSTR(E*(3I ,XT*>=0 THEN BOSUB 2006: GOTO 

3010 
3045 PRINT XT*j : GOTO 3010 
3050 SYS 52639: PRINT CHR* (27) "K(LEFT>-| 

3055 E*(l)-»"i OPEN 3,3: FOR II-PQSI0) TO .STEP - 
1: BET 13, XT*: E* < 1 ) -XT*+E*<1 ) s PRINT " <2LEF 
T)"s: NEXT III CLOSE 3 

3056 IF E*U)=" " THEN E* ! 1 ) =" " 

3060 SYS 52639: PRINT CHR* C27) "Lt2HQME)"l RETURN 
4001 CHAR ,0,23,D-*i PP*-DS«: IF DB=0 THEN PP*-"6 

3, FILE EXISTS, 00, 0«" 
4005 GOSUB 2006: PRINT " HI 5KETT£Hr£HLE» - -pp*, 

CLOSE 2: CLOSE 15 
4 010 PRINT " (RVSON) ESC CRVOFF> - ZUIRSCK «M IRV 

SON) RTN tfiVOFF) - WETTER"! 
4020 GET KEY XT*: IF INSTR(CHR*<27) +CHR* 1 13] ,XT*> 

-0 THEN 4020 
4025 CHAR ,0,23,CL*I IF XT*=CHR*(27I THEN CRX-li 

RETURN 
4030 CRX = 0: RETURN 

4101 OPEN 15,S,15," 10" 

4102 IF 03=0 THEN 4104 

4103 GOSUB 4001: IF CRX-1 THEN RETURN i ELSE GOTO 

4101 

4104 OPEN 2,B,2, ,, #" 

4105 PRINT«15,-U3:2 IB 0" 

4106 PRINT#15, "B-P"s2j 144 

4107 YD*="": FOR 11=144 TO 163: BET «2,XD*: YD*-Y 
D*i-XO*i NEXT II 

4I0B XD*=RJGHT*(YD*,2>. YD*=LEFT* 1YD* , INHTR< YD*,C 
HR*(160) 1-1) 

4109 IF D3-0 THEN CLOSE 2: CLOSE 15: CRX=0: P.ETUR 
N 

4110 GOSUB 4001: IF Cft%-1 THEN RETURN ; ELSE GOTO 

4101 

4121 GOSUB 4101: IF CR7.-1 THEN RETURN 

4122 IDI-XD*: DN*-YD*: RETURN 

4131 GOSUB 4101: IF CRX-1 THEN RETURN 

4132 IF YD*=DN* AND XD*-ID* THEN CRX-0: RETURN 

4133 CHAR ,0,23,CL*: GOSUB 2006: PRINT " EALSCHE 

Listing 1. »CH-VERWALTUNG« 1st das Hauptprogramm. 
Dieses ladt die Maschinenroutinen (Listings 3 bis 6) nach. 

Bitte mit dem Checksummer 128 eingeben. 



<EP1> 

<J60> 
<EM6> 
<3BA> 
<FHP> 
<TRE> 

■:eb4> 

<FLB> 

<NOP> 

<NUB> 
<2LH> 

<ABT> 
<K7J> 
<SOl> 

<3R6> 
<IT1> 
<BSI> 

<475> 

<TOO> 

<6RR> 

<2T3> 

<M0R> 
<OAF> 
<NPE> 
<SBP> 

<6VU> 
<R06> 
<K6C> 
<AQ9> 

<07H> 



<UBL> 

<6RU> 
<IBA> 
CPHF> 
<BBA> 
<0H1> 
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flISKETTEr": GOSUB 49101 IF CRX-9 THEN 4131 
4234 RETURN 
5981 CRX-9i BONK 13: SYS DEC<"607D"> l IF PEEK < DEC 

("9DBA"H-9 THEN RETURN 
5992 CRX-U BOSUB 29961 CHAR .9.23.CL*! PRINT " a 

ROCKER EINSCHALTEN - £ftPIER EINLEGEN!"! SET 

KEY ST*s IF XT*-CHR*<27> THEN RETURN : ELSE 

SOTO 5991 

5911 PHX-9t CRJS-91 CHAR ,9,23,CL*: PRINT ■ 1JUSDRU 
CK IN JUJl-aCHRIFT'? -JN»s GET KEY XT*: IF XT* 
-"J- THEN PHX-16 

5912 IF XT*-CHR*<27> THEN CRX-1 
3913 RETURN 

5921 CRX-9: CHAR , 9,23,CLI: PRINT " CRVBDN) D <RV 
OFF} - HUSGABE AUF MUCKER (2BPACF ) » {2SPACE . R 

ySDNl B fRVDFFJ IN SEOUENTIELLE JlftTEI" 

5822 SET KEY XT*: XTZ-INSTR ("DS"+CHR*(27) ,XT*) 1 I 

F XTX-9 THEN 5922 
5923 RETURN 

5931 CRX-6: CHAR , 9,23,CL«: PRINT " tRVBDNl 9 <RV 
OFF> - EINFACHE .. . <2BPACE>*l2BPAC£,RVSON) 1 
<RVOFF> - DOPPELTE BUSBABE" 
3932 GET KEY XT*t XTX-INSTR("9i "+CHR*<271 ,XT«) : a 

N XTX GOTO 5934,3834,56331 GOTO 5932 
5933 CRX-1 
5034 RETURN 

19991 PRINT -fTHnHF^I H1 5CIIBt«TU»IIf»VEI IIMHm«i 
HF.BPflCE><£ia£~£m-JUtA£ai (SHF.SPACE)£12S »* 
(H> jSEINHARD 11. 3CHULZ BTHO 19B6": RETURN 
10995 PRINT CHR* 127) "H" I WINDOW 9, 1,79, H PRINT ■ 
(RVSON>"SP* 

19996 WINDOW 6,2,79,2,1! PRINT " {RVSON1-SP*: PRIN 
T CHR*(27J "Lf2H0«E>"l PRINT "(RV30N)" LEFT* 
(SP*.79> 

19919 CHflR 1,1,1,TU*,1: CHflR ,l,2l IF DfiK>9 THEN 
PRINT " CRVSO«> i aUNI)E: "+R1GHT* (STR* (DRX) ,2) " 
t " RIGHT*<STR*<RDX1 ,21" t " RIGHT* ESTR*(M 
RX) ,2) j 

1991 1 CHflR ,8,2: PRINT TAB (29) ■ UWSDN)" LEFT* IBP* 
,59-LEN(M9*+Hl*))"{RVOFF,CTRL+B>"H8*+Nl* 

19912 RETURN 

17991 CHflR ,9,23,CL*l PRINT ■ HATEINAHE FxTt JRUCK 

DflTEIi" 
17995 EXK-27t EVX-23I ELX-16: E*{9)="": E*(3)-ZA* 

+" .ABCDEFQHI JKLfTWPeRTSUVWXYZ " i E* (21 --" 
17918 GOSUB 39911 IF XT*-CHR*(Z7> THEN RETURN 
17915 DDPEN #2, IE* ( 1 l) ,Hi IF DB-9 THEN 17925 
17929 BOSUB 4991: IF CRX-1 THEN 17991: ELBE GOTO 

1791 S 
17923 CRX-9: CSX-! 1 11-11 P1-9I Hl-9l Bl-9: At-8= 

BANK 1 
17939 DO WHILE IK-HSX 

17935 GOSUB 3779*1 BOSUB 37899i BOBUB 1B999 
17949 PRINT*Z,XX* 
17945 II-IIH: LOOP 

17959 IF DB-9 THEN DCLOSE #2> RETURN 
17955 GOSUB 4991! GOTO 17991 
IS991 CHAR ,8.23,CL*: PRINT " flflTEINAME FxR URUCK 

DATE!:" 
1B905 EXX-27: EYX-23: ELX-16: E*(8)-""t E*(3)-ZA* 

+ *.ABCDEFBHIJKLHNaPQRTEUVWXYZ": E*(2J="" 
1B919 BOSUB 39911 IF XT*-CHR*<271 THEN RETURN 
1B815 DOPEN 82, (£*(1) 3 ,Wl IF DB-9 THEN 18925 
10820 BOBUB 4891: IF CRX-1 THEN 199911 ELSE SOTO 

18915 
IS82S PNX-lt CRX-9 
1B939 DO WHILE PNX<»PAX 
IB 935 BOBUB 28191: GOSUB 36B99 
1B949 XX*-LEFT*(XX*+SP*,33)+" ": XX*=LEFT*(XX*+XY 

*+SP*,68>+" "+XZ*1 BOBUB 1B998 
1B941 PRINT82.XX* 
1B945 PNX-PNX-H: LOUP 

1S959 IF DB-6 THEN DCLDSE 921 RETURN 
IB95S BOSUB 4991 ■ GOTO 1B991 
16999 XY*- ■ FEKi==VWH»m.V«U" 1 XZ*-" <CTRL+A,CTRL+B 

, CTRL+C , CTRL+D , HH 1 TE , CTRL+F , CTRL+B J AAEEE I OU 

U" 
1B991 FOR IX-1 TO LEN(XY*>: XT*-HID* IXY*,IX,1 > 

18992 DO 

18993 XTX-INSTRtXX*,XT*>i IF XTX-9 THEN EXIT 

18994 MID* (XX*. XTX., 1) -HID* (XZ*. IX, 11 

18995 LOOP 
IB994 NEXT IX 

1S997 XY*-"CCTRL+A,CTRL*B, CTRL+C, CTRL+D. WHITE, CTR 
L+F,CTOL+S>< , I XZ*-CHR*(165)+CHR*(1B2)+CHR*( 
IB4)+CHR*( Ie5)+CHR*<1&61+CHR4(18 7>+GHR*<1BS 
) 

18996 FOR IX-1 TO LEN(XY*>I XT*-NID*(XY*,IX, 11 
1S999 DO 

1B919 XT!!-1NSTR<XX*,XT*I : IF XTK-9 THEN EXIT 

18911 HID* CXX*,XTX,l]-niD*(X7*,lX,l> 

18912 LDOP 

1B913 NEXT IXl RETURN 

19991 BOSUB 3991: IF CRK=1 THEN RETURN 

19994 CHAR ,9,23,CL*i PRINT OF* 

19995 OPEN 5,3: OPEN 4,4 

19696 PRINT»5,CHR* (27) , CHR* ( 1 8SI ; CHR* (31 1 

19997 PriX-16: PP*-"> IflBLE OF PLAYED JOUNDS <": B 
□SUB 35999 

19919 II-ll BANK 1 

J9911 POKE DECC , 3369">,nsX: BYS GTX 

19912 PRINT*5,CHR*<27>"9" CHR*<27> " T" CHR*(291iCH 

R*(27)"Ul"lCHR*!271"t " CHR* (9) s CHR* (91 ; CHR* 

(91 J 

PRINT*5,CHR*<271"S:" CHR* (91 -, CHR* (252) 1 CHR* ( 

2521 ; CHR* ( 1391 j CHR* (255)1 CHR* < 8) j CHR* (1291 ; 

CHR* < 9) i CHR* < 129) I CHR* (91 : CHR* (129) : CHR* < 6) 

t CHR* < 129) f CHR* < 9) j CHR* (2551 1 

19914 PRINT«5,OK*(27! "fc" CHR* ( 6) i CHR* ( 254 ) 1 CHR* ( 
2541 : CHR* (139) t CHR* ( 255 ) s CHR* ( 9) 5 CHR* ( 235 1 t 
CHR* (9) 1 CHR* (255): CHR* (9) ; CHR* (255) j CHR* (9) 
1 CHR* ( 253 1 : CHR* ( 9) j CHR* ( 253 ) t 

19915 GOSUB 19199: Xfl*-CHH*(27)+"7.0;TRL+A)-tCHR*( 
9) +XA* 

19929 DO WHILE IK-HSX 

19921 GET XT*: IF XT*<>CHR*(27) THEN 19949 

19922 GUSUB 2991: CHAR ,9,23,CL*1 PRINT " BtUCK 1 
BT ANQEHALTEN! - SOU. JHUCK FORTSE5ETIT WER 
DEN? "JN* 

19923 BET KEY XT*! IF XT^'N" TIEN EXIT 

19924 CHAR ,9,23,C1_* 

19949 XX*--(5BPACE>-+LEFT*(NA*(I1,9)+SP*,141+- (■' 



19913 



flpL- 
<H39> 
<IL7> 



<237> 
<HJ7> 



<HD7> 
<VRF> 
<Ptl7> 



<LA&> 
<273> 



■ DBS ) 

<ac7> 



<KTB> 
<2PH> 
<477> 

<CUS> 

<NE9> 
<EFV> 
<4CF> 
<BJ2> 
<«LP> 

is-:. 

<B97> 
<7B1> 

<N54> 

■ UL:t 
<L53> 

<F7H> 

<AVn> 

<OR9> 
<ILN> 

<RVE> 
<2V3> 
<BB7> 
<0B3> 
<DER> 



<I4A> 
<CB7> 
<APF> 
<5SA> 
<6Na> 
<KUl> 
<RH5> 



<4«E> 
<UAF> 
<F9P> 
<SCS> 
<UJB> 
<UV9> 
<«F2> 
<F7V> 
<B66> 
<NTI> 



<W7B> 
<RSV> 
<BSW> 



<TVH> 
<THG> 



<TJN> 
<4U6> 

<9JN> 



+LEFT* <NA*{ 1 1 , 3) ♦BP*,3) +• ) " 

19941 XY*-RI0HT*<"(2SPACE)"*S'm*(Il) ,3)+" {2SPACE1 
-*NA*(lI.l): XY*-LEFT*(XY*4-SP*,25) 

19942 XZ*-="(5BpflCE>* , +LEFT*(l*)*(II,2)+BP*,261+CHR* 
<Z7> 

19951 XB*-CHR*(27>+-RICTRL+B> _ +CW»(27)+' , XtCTHL+A 
)-+CHR*<9)i XC*-XB*i XD*-XB* 

19952 P9-91 FDR IK-1 TO DRXl SPX-P€EK(4696*IK+II« 
1611 XXX-PE£K(B192i-IK*II»16) 

19953 XB*-XB*t" "*C«i*(23i) : XC*«XC*+" -+CHR* (251 
): XD*-XD*-*-" n +CHR*(251) 

1995* IF < XXX AND !92)-9 THEN XB*-XB*+" (2SPACE)" 

19955 IF (XXX AND 192)=12B THEN XB*= XB*+CHR* ( 252) + 

19956 IFIXXX AND 1921-192 TIEN XB*-XB**-CHR*(254S * 

19957 IF BPlt-9 THEN XBf"XB*+CHR*( 1221 +CHfi*( 122) +C 
HR*( 193)1 BOTO 19969 

199SB IF BPX-2S5 THEN XB*-XB*+CHR* ( 1 131 fCHR* ( 1 12) 

*CHR*<192): GOTO 19969 
19959 XB*-XB*+RIBHT*("t2SPflCe)-*BTR*(SPX) ,3) 
19969 PI- (XXX AND. 3) /2: XC*-XC*+RIGHT*(■ , C2SPACE) ,, 

+BTR*IP11,3): Pfr-P9*-Pl 

19962 IF (XXX AND B)-G THEN XC*°XC*+CHR* (1971+CHR* 
(l«8)l ELSE XC*-*C*+"I2SP0CE>" 

19963 XD*»XB*+RlBHT*t u <5SPACE)'+STR*<pe),51 

19964 NEXT IK 

19965 PR1NT95,XA*: PRINT#4,XX*i : PR1NT#5,XB*: PR! 
NT#3,"(CTRL+J)"lXA*t PRINT»4,XY*t t PRINT93, 
XC*I PRINT»5,-tCTRL+J)"XA*: PRINT94,XI*: : P 
RINTtS.XD*; 

19966 IF INT (II/221-I 1/22 THEN PR1NTH4: PR1NT«5,X 
ft* , 'CCTRL+^_) ,, CHR*(27)"2"]: BOSUB 339991 PRI 
NT93,CHR*(27)"!" CHR* (29) tCHfi*(27> -9": : GOT 
19971 

19967 IF II-NS7. THEN PRINTMl PR I NT*5 , XA* 1 1 EXIT 
1996B PRINT#3,CHR*<27)"J" CHR* ( 2 ) | OKI ( 27 ) -- (CTRL 

*A>" 
19969 PRINTII4,LEFT*(3P*,26):! PRIMTH4,LEFT*(SP*+S 

P*,7»DRX+1) 
19978 PRINTt3,CHR*(27)"JtCTRL+LI" CHR*(27)"-- cm 

*<«] 

19971 II-I1+I: LOOP 

19972 PRINT95,"«CTRL*L)"11 CLOSE 4l CLOSE 3: HETU 
RN 

19199 PRINT»5,CHR*1271 ■*• CHR* (91 : CHR* (251) : CHR* ( 
2311 t CHR* (139); CHR* (81: CHR* (8); CHR* (9) ; CHR* 
( 9) : CHR* (2531 s CHR* 1 91 1 CHR* ( 9) l CHR* 19) iCHR* ( 
9)1 CHR* (9) I CHR* (91 j 
XA*-CHR* (27) +CHR* ( 1 861 +CHR* (28) +LEFT* (SP», 2 



19192 

19193 

19194 
19195 
29691 
29992 
29993 
29994 

29995 

zaMe 

29997 

2999B 

29999 
29919 

29911 
29912 



29915 
29929 
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FOR IK-1 TO DR7.: XA*-XA*t" {2SPACE)"+CHR*<23 

l>+»t4BPACE>"! NEXT IK 

XA*-XA*+CHR*127)+ _ J" +CHR* (29) 

RETURN 

CXX-9: BANK It DUt-PEEK (DEC (" 1999" I ) 

RDX-ll DO 

IF PEEK (DEC(" 1991 ■1+RDX1-9 TIEN EXIT 

RDX-RDX.+ 1: LOOP : IF TUX-1 THEN TUX*2: B03U 

B 51991: IF CRX-1 THEN 63991 

FOR IJ-t TO MSXl XIX-NAX(IJ,9)l IF X2X-9 TH 

EN XIX- 1999 

XXK-rNT(XZX/236)l XYX-XZX-XXX»256: POKE DEC 

("8499 _ 1+IJ,XYX: POKE DECC8S89" 1 +IJ,XXX 
XZX-NflX(IJ,l) t IF XIX-9 AND NAXtlJ, 9X139 T 
HEN XZ7.-SSN (NAT, ( I J , 9) J • (2S39-B«NA7. < I J , 91 > 
XXX-INT(XZX/256) : XYX=XZX-XXX»256s POKE DEC 

("9fl96")*IJ,XYX: POKE DEC("9B99") +IJ.XXX 
NEXT IJ 

POKE DEC ("94FF") ,2551 POKE DECC93FF") ,233: 
POKE DECC9AFF") ,9: POKE DEC ( "fflFF"! ,9: PO 
KE DEC( H 96FF") ,9: POKE DEC("67FF" 1 ,9 

IF TUX-2 THEN POKE DEC (" 3399" 1 , MSX.1 BYS DEC 

C42A9") 

BANK I: PAX-PEEK ( DEC (" 3989" 1): GPX-PEEK (DEC 

('■3199"))i SEX-PEEK ( DEC (" 3299" I > : HOX-PEEK ( 

DEC("1996"!+DR7.) 

HHX-Si »9*."IURNIERveRWflLTUNB _ l HI*-""! GDS 

UB 19893 

CHAR ,8,3,CL* 

PRINT "{RUBON} MR-TSPIELER t <23EPACE >iaP I EL 

ER 2C23BPACE>T£RBEBNIS " 

CHAR 1 , 9 , Z2 , " r+V+VVV+VVVV+VVVVVV+VlAPVVlVVitV 



29939 
29935 
281 91 
29192 
29193 
29111 
29112 

29113 
29114 
28115 

29116 
29121 

29122 

29123 

29124 
29125 

29(26 
29128 

29129 

29136 

29131 
29133 
29135 

2»?W1 



IF PAX>9 THEN BOSUB 29291 

GOTO 21991 

BANK li SPX-PEEK < DEC (" 3999" IfPNX) 

SOX-PEEK ( DEC ( "31 99" 1 +PNX) 

EGX = PEE K< DEC (" 3299" )*PNX)l RETURN 

BANK It POKE DEC! "3999" >+PNX.5PI: BPX-BPX+1 

POKE DEC ( "3199" )+PNX, SOX: IF S0XO255 AND S 

OX>9 THEN GPX-GP7.+ I 

PAX-PAX+i: P01,E DEC ("3896") , PAX 

POKE DEC("3199"I ,BPX 

POKE DEC! "3299" )+PNX,EGX: IF EBX>6 THEN SEX 

-SEX+1 

POKE DEC ( "3289" ), SEX: RETURN 

IF PNXJ9 THEN PRINT RIBHT*(" t4SPACE>"+BTR* I 

PNX> ,4) i 

PRINT TAB(31 R I BUT* ( " 12SPACE J " +BTR* I BPX ) , 3 1 

1 

XB*-NA*(SPX,1) t IP NA*(SPX.21<>"" THEN XB*- 

XB*+" , "+NA* (BPX,2) 

PRINT TflB(9) LEFT*(XB*,2B) I 

IF GOI-8 THEN XB*-"ZURSCKGEZDGEN": GOTO 291 

31 

IF SOX-2S5 THEN XB*-"SPIELFREI "l BOTO 29131 

IF SOX-256 THEN XB*-»NOCH NICHT GEPflART": B 

DTO 28131 

PRINT TAB(3B! RISHT*<" {2SPACEl"+STR*(SOX) ,3 

)l 

XBI-Nfl*(SOX,ll : IF NA* ISinS,2)<> > ' THEN IB*- 

XB*+", "+NA*(S0X,21 

PRINT TAB (42) LEFT*(XB*,2B) 5 

PRINT TAB(71)EG*<EBX>1 

BANK 13l SYS 2B4G: RETURN 

Ml*-" / £AARUNGS-/ERG£BNISLISTE": GOSUB 199 

111 BR7.(8)-PAXt FOR IJ-1 TO PAX: SRX(IJ)-IJ 

5 NEXT IJt IJ-ll IF CXX-1 AND PNX-7>9 THEN 

IJ-PNX-7 

WINDOW 9,5,79,29,1! IK-IJ 



<SIA> 
CSRJ> 
<A1B> 

<SHC> 

(.290 i 
<RM1> 

i5DH> 

<RUM> 

<NSC> 

<6RV> 
fOOL> 



<72R> 
<SVC> 



■ am 
<pi«> 



< IKB> 
<R9R> 



tJD4> 
•!E9I1> 



<6I4> 
<NDT> 



<H2I> 
<B57> 
tJNO> 
<R7ft> 



<2K6> 

<HF1> 

<1HLJ 

<COB> 
<32C> 

■!30I» 
<SH9> 



<eju> 

<0H9> 



<I9J> 
<BOB) 
<QLE> 
<UUA> 
<73A> 
<34B> 
<LEV> 

<HUS> 



<73B> 
<UR4> 

<29I> 

■■cm,, 

<JDI> 

<5S6> 

'CB6> 
<4VG> 

<K39> 

<OCJ> 

<HIP> 
tOPK) 
<V9B> 
«FB9> 



<KTE> 
(W9T> 
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SONDERHEFT 36 



Q3ta? 

















C128 




J 


aNWENDUh 


IGEN 


































20293 DO WHILE IJ<=ERX (0) 


<L37> 


20604 CHAR 1,0,21 ,CR*: GET KEY XT* 


<JLD> 






20204 PNX=5RX(IJJ: GDSUB 20101 


,<NPK> 


20603 IF XT*-CHR*(Z7J THEN RETURN 


<BPO> 






20295 GOSUB 20121: PRINT ! IF IJ-IK+14 THEN EXIT 


<VGH> 


20696 IF XT*-"H H THEN 20616 


<N3V> 






29206 IJ-IJ+1 


.QBB. 


29697 IF XTJO-C" OR DRX< >RDX OR BPXW1S);-2 THEM 








20207 LOOP i IJ-IK+14 


<3F9> 


BOSUB 20961 GOTO 20604 


<B0J> 






29299 MHK-PEEK(2I3!t PRINT "{2HOMEV; IF SR5S(9>-9 




2069S IJ-li BANK 1: DO WHILE 1J',DR7. 


<3CU> 






THEN RETURN 


<GAL> 


29699 IF PEEK(DEC("1909"» + IJK3 THEN SDSUB 2906. 








20209 CHAR ,9,23,CL* 


<5FB> 


EXIT 


<93AJ 






20210 PRINT " IRVSPN} D (HVOFFJ - USTE AUF JRUCK 




29619 IJ-IJ+1: LOOP 


<57P> 






ER". PRINT BX*I 


<DR2> 


2961 1 IF IJ<RDX THEN 20694 


<TU3> 






20220 PRINT -^HQMEJ-t CHAR 1,9,21,C«*. BET KEY X 




29612 CHAR ,0,23,CL*1 PRINT " JASRUNGEN WERDEN ER 








T* 


<HH5> 


STEU_T!"| BANK 1: POKE DEC (" 3000" >, PAStl POK 








2022S IF INSTRCD+— P£CHO«E,CLR>" ,XT*>-0 THEN RETU 




E DEC < "31 00"! ,GPI: POKE DEC ("3209"! .BEX: PO 








RN 


<K53> 


KE BEC ( " 3S20" > , HSX-EPI 


<S4D> 






20230 IF XT*."D" THEN BOSUB 36001. EOTD 28209 


<N73> 


20613 POKE DEC i "3390" 1 ,HSX: IF PA7->0 THEN SYS DEE 








20235 IF XT*-"+" AND IJ<SRX(0) THtEN IJ-IJ+1; IK-I 




("4429")! ELBE SYB DEC i ■ 3B2E " 1 


<DHL> 






K+l. PNX-SRX(IJ): GOSUB 29191. WINDOW 9,3,7 




20614 IF PEEK (DEC t"3B20"> 1-9 THEN PAX-PEEK I DEC ("3 








9,20. CHAR ,9,13,CR*; GOSUB 20121. PRINT 1 




0S0") 1: GPI-PEEK<DEC("3100"I 1: SEX-PEEK (DEC 








EOTD 20220 


<0EC> 


("3200" !>: ODSUB 2991: BOTD 29201 


<QSK> 






20240 IF XT*."-" AND IK>1 THEN IJ-IJ-Is IK-IK-ll 




29615 CHAR ,0,23,CL*. GOBUB 20061 PRINT " JSAARUNG 








PNX=5RX(IK) : GOSUB 20101. WINDUW 0,5,79,201 




EN NACH BH-aYSTEM WESEN VQRGEBENER ICHSTELL 


** 






CHAR ,9,0.CHR*(27>+"t"; GOSUB 20121: HDTO 




ATION NICHT MEGLICH! ". GET KEY XT*. GOTO 2 








20220 


<ZA4> 


0602 


<D1T> 






20241 IF XT»-"(HOME>" THEN IJ-1: BDTD 20202 


<VS3> 


20616 DO 


<FTR> 






20242 IF XT*- H ICLR1 H AND SRX(0)M4 THEN IJ-SRX<0) 




20617 GOSUB 20701 


•:bqi > 






-14. BOTD 20202 


<2RB> 


Z061B IF CRX-1 THEN EXIT 


<1B1) 






20243 IF XT*-"P" AND 1J<SRX(0> THEN IJ-U+l; EOTD 




29619 PNX-PAX+l: GOSUB 29111 


<I3R> 






20242 


<DHL5 


29620 WINDOW 0,3,79,20: CHAR ,0, (HHX-5J ,CR* J GOSU 








20244 IF XT*=",£" AND 1K-15>0 THEN IJ-IK-13: GOTO 




B 29121 1 PRINT : HHX«PEEK(23S) 


<3XH> 






20202 


<027> 


20621 PRINT "<2HOMEl" 


<K2E> 






20245 GOTO 20229 


C9HC> 


20620 IF GPX-HB7. THEN EXIT 


.< 1 7DJ 






20240 Hit-- / SPIELER BUCHEN". GOSUB 10011: NINBO 




29629 LOOP 


<SFl> 






W 0,5,79,20,1: PRINT "(2HDHE}": HMX-5: BANK 




29630 IF GPXCNSX THEN 29692 


<37D> 






1 


<AGP> 


20631 RETURN 


<937> 






20265 CHAR ,0,23,CL*l PRINT " MBEN £IE DEN HATCH 




20791 ERS-1: EYX-211 EL7,-J: CHAR ,9,21,CR*t CHAR 








DES GE5UCHTEN JPIELER9 EIN ,H 


<LFH> 


,0,23,CL* 


<IIR> 
<EN4> 






20270 CRX-0; BOSUB 20379 


BAR 


20792 EXK-Sl E*(9)-"": E*(31-2A»: £*(21="- 






2027S IF CRX-t THEN RETURN 


<7GD> 


29793 BOSUB 3901. IF XT*-CHR*(27> THEN 29B17 


<HU7> 






202B0 PNX-1: IJ-l 


<6PH> 


20705 59X-UAL(E*(1>1 I IF S0X>HSX THEN BOSUB 2996. 








202H3 SO WHILE PWK-PAX 


<EFJ> 


SOTO 29703 


<6BU> 






Z0Z90 GOSUB 20191 


■ BAU- 


29706 IF S0X>0 THEN 20740 


<1EP> 






20293 XX*-LEFT*(NA*tBPX,l)+", "+NA*ISPX,2> ,LENIF* 




20707 GOSUB 20370. IF CRX-t OR E*<I)-«" THEN 2070 








till) 
20300 XY*="t-": IF BO7>0 AND SDX<255 THEN XY4-LEFT 


•CCJ3> 


1 
20710 IJ-1 


<D94> 
<TB5> 
<ABO> 






*(NA*(SaX,ll+", "«-NA*(S0X,2> ,LENCE*I1) >> 


CAAB> 


29715 DO WHILE IJi-HSX 






20305 IF XX*-E*(1> OR XY*-E*(1) THEN 5RX( IJ1-PN7.: 




20716 IF L£FT*<NA#(IJ.1)+" , "+NA*(IJ,2> ,LEN(E*( 1 ) 








IJ-IJ+1 


•canto 


>><>E*(1I THEN 29730 


<LC4> 






20310 PNX-PNX+1. LOOP 


<J«9> 


20729 GOSUB 20B20. IF CAX-9 THEN S07.-IJ: EXIT 


<PSM> 






20313 SRX(0>-1J-1| IJ-li EOTD 20202 


<HBH> 


20730 CAX-0. IJ-IJ+1 t LOOP 


<NIJ> 






20370 EYX-21; EXX-9; ELX-2B: E*(91=""= £*(2l-""= 




29731 IF S9X-9 THEN GOSUB 2006; GOTO 20701 


<N43> 






E* ( 3 > -BS*+Z A*+ " , ■ 


<RF3> 


20749 IJ-S9X. BOSUB 20B20. IF GAX-1 THEN CA7.-9: B 








20375 BOSUB 3001; IF XT*«CHR*(27I THEN CRX-lt ELS 




0SU8 2006. GOTO 20701 


<N3D> 






E CRX-9 


<NJK> 


20774 XBt-NAtCSeX.ll. IF NA»(S0JC,2)<>"- THEN XB*- 








20390 RETURN 


<H97> 


XB*+", "+NA*(S07.,2I 


<LVZ> 






20395 EYX-21. EXX-42. ELX-28; E*<01-""| E*I2(-""l 




20775 CHAR ,9,21,CR*. PRINT TAB (5) RIGHT*!" "+BTR 








E*<3>-BS*+ZA*+"," 


<BP5> 


*(S97.) ,3>lTAB(9) LEFT* ( XB* , 2S 1 j 


<4BO> 






20409 OOSUB 3001; IF XT*-CHR*(27> THEN CRX-1; ELS 




29776 CRX-U EXX-3G1 ELZ-3: E*(91-""l E*(3}-ZA*. 








E CRX-9 


<IJK> 


E*(21-" (SYNTH. :145)SZ H t CHAR ,30,21 ,CR* 


<BG2> 






20405 RETURN 


<P97> 


29777 CHAR ,0,Z3,CL*: PRINT " {RWEONJ Z CRVOFFJ - 








20420 Ml*-" /425FACEJNQCH NIGHT GEPAARTE SPIELER" 




IURSCKeEZ06ENC2SPACej»<3SPACE,RVSONJ S IRU 








: GOSUB 10011 


■;6IV> 


OFF> - BPIELFREI 


<7UE> 






2042S CHAR ,0,23,CL*: WINDOW 0,5,79,20,1: PRINT " 




2077B GOSUB 3901. IF XT*-CHR*(27> THEN 29S17 


<NPI2> 






(2HOME>": HHX-5 


<BHL> 


29779 IF XT*-" ISYNTH. : 145>" THEN 20791 


<PBK> 






20430 SPX-l; SOX-236; EGX-91 IJ-1 


<DSK> 


297B9 IF IT*-"S" THEN S1X-255. GOTO 29G12 


<3AW> 






20435 DO WHILE SPX<-MSX 


<4AO> 


29799 IF XT*-"Z" THEN B1X-9. EGI-9: GOTO 20B16 


<F63> 






20440 BANK II POKE DEC ("3820"} ,SP7.t BVB UP7.: PNX- 




20B90 S1X-VAL(E(I1)>; IF S1I5HBX THEN GOSUB 2906; 








PEEK (DEC ("3B20"W: IF PNX>0 THEN 20442 


<6RT> 


SOTO 29776 


< IKL> 






20441 SRX<IJ>-SPX; IJ-IJ+1 


<V1F> 


20B01 IF S1V.>0 THEN 2931 1 


.' VUJ 






20442 SPX-SPK+ll LOOP 1 IF IJ-1 THEN RETURN 


<F6G> 


20002 GOSUB 293951 IF CRX-1 OR EltllB"" THEN 2077 








20443 CHAR ,0,23,CL*. PRINT " (RVSON) D (RVOFFJ - 




6 


<tMB> 






iJSTE AUF SMJCKER"; PRINT BX*t : SHX(9>-IJ- 




29003 I J- I 


<74D> 






1. IJ-1 


<ASE> 


29894 DO WHILE IJ<-MSX 


<J6A> 






20444 WINDOW 9,5,79,20,11 IK-IJ 


4USTJ 


29B95 IF IJ-S0X THEN 29B99 


<DV1> 






20445 DD WHILE I3<-5RX(9> 


<EOH> 


20006 IF LEFT*fNA*(IJ,l»+", "+NA*( I J ,2> ,LEN(ES U 1 








20446 SPX-SRXdJ); GOSUB 20122. PRINT 


<2A4> 


1 1 < >E* ( 1 ) THEN 20S09 


<FCS> 






20447 IF IJ-IK+14 THEN EXIT 


<7IS> 


20S97 GOSUB 29B20: IF CAX-1 THEN 29B99 


<A6H> 






29449 U-lJ+ll LOOP 1 IJ-IK+14 


<HHJ> 


29B9B OOSUB 29B21 : IF CA%-9 THEN 917.= I J. EXIT 


<3N6> 






29449 HMX-PEEK(235>: PRINT "(ZHOttEl". IF SRXI01-9 




20G09 CAI-.9. IJ-IJ+l. LOOP 


<F1L> 






THEN RETURN 


<IEL> 


20B10 IF S15C-9 THEN OOSUB 2006. EOTD 20776 


<VB0> 






20450 PRINT "C2HOKE1": GET KEY XT*; XTX-INSTH<"D+ 




29B11 IF S9X-S1I THEN GOBUB 2906: GOTO 20776 


<2SI> 






-tHaHE,CLR>P£",XT*)l IF XTX-O THEN RETURN 


<I5C> 


29B12 IJ-SIX: GOSUB 20829. IF CAX-1 THEN CA7.-9: S 








20451 ON XTX GOTO 20452,20453,20454,20456,20457,2 




□SUB 2996. GOTO 29776 


<NR9> 






9459,20461 


C1U6> 


2 'Mi 3 IF TJRX-CRBX OR DRX<2 THEN 293 IS 


<JBS> 






29452 GOSUB 29593 1 BOTD 20449 


<L»F> 


20B14 tF DRX-RDX AND DRX>1 THEN (J-S1X. BOSUB 209 








29453 IF IJ<SRX<0) THEN IJ-IJ+1: IK-IK+1; SPX-SRX 




21. IF CAX-1 THEN CAX-8: GOSUB 2006; GOTO 2 








<1J>: WINDOW 0,5,79,20: CHAR ,9,15,CR4: GOS 




0776 


<4UH> 






UB 29122: PRINT : SOTO 20450: ELSE GOTO 204 




29315 EOX-0: IF S1X-255 THEN EQX-B 


<869> 






50 


<62B» 


29S16 BPX-90X: SOX-SIX; CRX-0 


<09H> 






29454 IF IKJI THEN IJ-iJ-ll IK-1K-1: SPX-SRX(IK»= 




29917 CHAR ,0,2!,CR*i RETURN 


<ASL> 






WINDOW 0,5,79,20: CHAR ,0,0,CHRSC27)+T"l 




29920 BANK 1; POKE DEC ("3920"! , IJ. SYB UPX; CAX-S 








BOSUB 20122 


<A7C> 


GN ( PEEK ( DEC ( " 3B20" > > ) ; RETURN 


<F6B> 






29455 GOTO 20450 


<DP7> 


29921 BANK 1: POKE 16949,B9X; POKE 16941, IJ: SYS 








29456 IJ-1: SOTO 29444 


<DN5> 


16942; CAX-PEEK ( DEC ( "3920" 1) ; RETURN 


<000> 






20457 IF SR7.(0)>14 THEN IJ-SRXC01 -Ml GOTO 20444 


<G4I> 


29839 H1I-" / £AARUNG AUFHEBEN"! BOSUB 10911 


<HH1> 






2943B GOTO 29450 


<£H7> 


29831 CHAR ,0,23,CL* 


<TUI> 






20459 IF SRX(9)>IJ THEN U-IJ+ll SOTO 20444 


<CIP> 


29S32 PRINT " EEBEN £IE DIE MJfinER DER AUFZUHEBEN 








20460 GOTO 20430 


<D17> 


DEN £AARUNG EIN!"s PRINT " tRVSONT A CRVOFF 








29461 IF IK>t3 THEN IJ-IK-lSl GOTO 20444 


<HB0> 


> - ALLE EAARUNBEN'" ; 


<SBF> 






20462 GOTO 29459 " 


<DH7> 


29833 CHAR ,0,21 ,CR*: EYX-21; EXX-1 1 ELX-3: E*(0) 








20503 BOSUB 5001: IF CRX-1 THEN RETURN 


<IBU> 


="": E*(21--A"; E*<3>-2A* 


<TTR> 






29506 PHX-0S OPEN 3,5l OPEN 4,4 


<H2K> 


20634 GOSUB 3901. IF XT*-CHR*(27) THEN RETURN 


<MR6> 






29507 PRINT#5,CHR*(27);XHR*{|0B>]CHR*(7U 


<764> 


20935 IF XT*— "A" THEN PNX-256; EOTQ 20837 


<BB4> 






20508 PP*-"> NOCH N1CHT GEPAARTE .&PIELER / fiUNDE" 




29336 PNX-VAL(E*(1>>= IF PNX-9 OR PNXJPAX THEN GO 








+STR*eDRXH" <" 


<3J3J 


BUB 2906; GOTO 29834 


<GVC> 






20509 GOBUB 35990. GOSUB 36900: IX- 1 


<A7I> 


29937 GOSUB 29191; CHAR ,9,21,CR*. IF PNX<256 THE 








20511 DO WHILE IX-'=SRVL(0) 


COBR> 


N BOSUB 20121 


<UT1> 






20512 BPJ.-SR7. ( 1 X i 


<AOU> 


20939 CHAR ,0,23,0.*= PRINT ■ £AARUNS(EN) AUFHEBE 








29513 XX*-RIBHT*(" "+STR» (BF7.) ,3I+" (2SPACEJ"+NA*( 




M? "JN* 


<DF7t> 
<TEA> 






5PX,1>. IF NA*(SPZ,2K>"' V THEN XX*-XX*+", " 




29939 BET KEY XT*. IF XT*<>"J" THEN 29931 






+NAt(SPX,2l 


<PR4> 


29949 BANK 1. IF PNX-256 THEN PAX-0. GPX-0; BEX-0 








20314 XX*-LEFT*<XX*+BP*,49> 


<BDI> 


I SOTO 20B47 


<RTR> 






20515 PRINT#4, XX*: : IF IX/2-INT tIX/21 THENPRINT# 




29942 PAX-PAX-l; IF EEX>0 THEN SEX-SEX-1 


<HJ7> 






4: PPX-PP5U-1 


CJ1F> 


20943 GPX-GPX-ll IF SOXO0 AND E0X^>255 THEN GPX- 








20516 IF PPX-60 THEN PRINTtS, " ICTRL+D"! 1 BOSUB 3 




QPX-1 


<KCft> 






590O. GOSUB 36990 


<NR9> 


29B44 FOR IJ-PN7. TO PAX: POKE DEC ("3900") + ! J, PEEK 








29517 IX-IX+ll LOOP 


<R3P> 


(DECC'3001"I+IJ1 


<9VE> 






2051 B PRINT«5,-(CTRL+Ll"n CLOSE 4j CLOSE St RETU 




20B43 POKE DEC 1 "3190" 1 +1 J, PEEK (DEC t "3101 H )+IJ> 


<LTH> 






RN 


!IEV> 


29846 POKE DEC ( "3290") +IJ,PEEK(DECt "3291"1+ Ul : N 








29691 Ml*-" / £AAftUNGSNEUElNGABE"s GOSUB 10011 


<3H7> 


EXT IJ 


<0OKJ 






29602 CHAR ,0,23,CL*. PRINT " (RVSON1 H IRWOFFJ - 












£AARUNGSEINBABE VON HAND {2SPAGE ) • C2SPACE , R 
VSONJ C (RVOFF> fiB-aVSTEH" 


<V5S> 


Listing 1. »CH-VERWALTUNG- (Fortsetzung) 








13& 


SONDERHEFT 36 




25 

















ANWENDUNGEN 



C128 



26647 

23649 

29961 
29992 
20983 

2WM 

29986 

20907 



29911 
2391"? 
20926 
29921 
29922 
29929 
29939 



29931 

29951 
29932 
29933 
29934 

2993B 
21981 
21992 
Z1603 



21919 
21914 



21918 
21919 

21929 
21 927 

2102G 
21929 
21639 

21931 

21932 
21933 
21934 
21935 
21936 
21937 
21938 
21939 

21949 
21942 
21943 



s i aw 

21946 
21947 

2194B 
21949 
21959 




21969 

21961 
21963 
21967 
21979 

219B1 
21962 
21983 
21984 

21965 

21986 
21668 



POKE DEC ("3999") ,PAX: POKE DEC ("31 69" ) ,6PX, 

POKE DEC ("3299" I ,SEX 
CXX-1: BOSUB 29261: CXX»8: BANK Is HYS DTK: 

IF PAX>8 THEN 26B31I ELBE RETURN 
IF PAX-8 THEN RETURN 

HI**" t SRGEBNISNEUE1NGABE": BOSUB 19911 
CHAR ,0,23,CL*: PRINT XE*: PRINT VE* 
PNX-8: CAX-9: DR14-0 
DO 

BANK 1: POKE DEC ( "3821") ,CA 7.1 POKE DEC ("4+3 
2">,PNX: BVS EEC("443D"> 

CRXoPEEK (DEC ("3820")): IF CR7.-1 THEN EXIT 
PN7>FEEK( DEC (" 4452") > : GDSUB 29191 
CAX-8: CHAR ,0,21 ,GR*: BOSUB 29121: PRINT C 
HR*(27I"J":TRB(7I>(1 BANK IS: SYS 52591: BE 
T KEY XT*I SYS 32639a CHAR ,9,21 ,CR*: IF XT 
*-CHR*(27> THEN EXIT 
IF XT**="-" THEN CA7.-1: GOTO 29929 
IF INSTR<"0i234567",XT*>-9 THEN 29929 
IF EG7.-4 THEN SEX-SEX-1 
EG7.-VAL(XT*>: BANK 1 1 BOSUB 29113 
BOSUB 21233: SOTO 29929 
LOOP 

CAX-8: IF CR»I THEN CHAR ,9,23,CL*: PRINT 
" S-LE ftROEBNlSSE ETNGETRAGEN ! ": BOSUB 2991 
1 OET KEY XT* 
RETURN 

NUX-lt IF BPXIMSX THEN RETURN 
MUX-21 IF SEX<PAX THEN RETURN 
HCK-3 

BANK 1: SYS DEC("43D3">t IF PEEK ( DEC (" 3620" 
11-1 THEN H0X-4 
RETURN 
BOSUB 29951 
Ml*-"| BOSUB 19911 

CAI-flj CHAR ,9,23, CUl PRINT " CRVBDN) P (R 
VOFFJ - £AARUNBEN<2SPACE)»(2EPACE, RVSON) E 
(RVOFF) - ERGEBNI5SE(2SPACE>»(2SPACE.RVSON> 

N tRVOFF } - NFCKBTE IUNDE (2SPACE ) K2SPACE , 
RVSON) R (RVOFF) - ANDERE" 

PRINT " zUINDE(2SPACE)»(2SPACE, RVSON) T (RVD 
FF> - IABELLEN(2SPAC£)»(2SPACE, RVSON) S CRV 
OFF! - gpIELERVERWALTUNG(2SPACE>-(2SPACE,RV 
SON! 4 (RVOFF J - .LEGENDS FNDERN";: SOTO 219 
16 
CHAR ,0,23,CL*3 PRINT ■ (RVSON) L (RVOFF) - 

kISTE(2SPACE>4<2SPACE,RVBON> & (RVOFF) - A 
BSPEICHERN(2SPACE)«K29PACE,RVSDN) Z (RVOFF) 

- SPIELER FUR KDmENDE SUNDEN" 
PRINT " ZUR n >TCKZIEHEN(2SPAC£)*C2SPACE^RVSON} 

t (RVOFF) - IAARUNBSET1KETT£N(2SPACE)»{2SP 
ACE, RVSON) i (RVOFF) - iEBENBE FNDERN" :: BO 
TO 21916 
CHAR ,0,23, CL*-. PRINT " (RVSONI C (RVOFF) - 

£tt-6YSTEH-iARTE(2SPACEl*(2SPACE,flVS0N) t ( 
RVOFF} - EUNKTIDNSTASTEN BELE8EN [2SPACE > • C2 
SPACE, RVSON) i. (RVOFF) - 1EGENDE" 
PRINT " TODERN-t 

YT»-"£TSPEa_aiE"i IF DfiX-RDX AND RD3KHRX TH 
EN YT*-YT*+"Z" 

IF MOI>2 AND RDX=DRX AND RDXAHRX THEN YT*-Y 
T*+"N" 

IF RD7.>1 THEN YT*=YT*+"R" 

BET KEY XT*1 IF XT*-"C" THEN BOSUB 23991: Q 
□TO 29915 

IF XTI-CHRK27) THEN CXX-O: GOTO 21969 
IF INBTR(YT*,XT*)-9 THEN EQSUB 2996: SOTO 2 
1919 

IF XT*-"£- THEN BOSUB 21961: GOTO 21991 
IF XT*-*Z" THEN GOSUB 21561: SOTO 21991 
IF XT*-"1." THEN CAX-CAX+l: DN CAX GOTO 2199 
3,21997: BOTH 21693 

IF XT*="P" THEN BOSUB 21191: GDTD 21991 
IF XT*»"E" THEN GDSUB 21291: SOTO 21991 
IF XT*»"T" THEN BOSUB 22991: GOTO 29913 
IF XT*-"S- THEN CXK-1: GOTO 21969 
IF XT*-"£" THEN BOSUB 53691: GOTO 29913 
IF XT*-"R- THEN 21949 
IF XT*-"N" THEN 21953 

IF XT*-"L" THEN BOSUB 29291: GDTD 21992 
IF XT*-"S" THEN BOSUB 21979: GDSUB 51*111 B 
DTO 21993 
OOSUB 21979 
CHAR ,9,23,0.* 

PRINT " JiEBEN HE DIE EEWWISCHTE SUN0ENNUHP1 
ER EIN:"i PRINT " (RVSON) A (RVOFF) - &UNDE 
, IN DER NDCH JRBERNlSyt [1DER EAARUNGEN OFF 
ENSTEHEN" J 
EYX-23t ELX-2: EX7.-44, E*(9>-""| E*t2)="A": 

E*<31-2A* 
GDSUB 3991: IF XT*-CHR*<27) THEN 21993 
IF XT*-"A" THEN BEGIN 

BANK 1 1 ORX-1: DO WHILE DK3KRDKI IF PEEK (BE 
C("1090")+DPX)<4 THEN EXIT 
DRX-DR7.+ 1: LOOP 
BEND : BOTO 21932 

IF VBL(E*<I)>-9 OR VAL(EKl) 1 >RD7. THEN SOSU 
B 2996t BOTO 21945 
DRX=VAL(E*1!1 ) 

BANK 1; POKE DEC ( " 1 999" I , DR7. : GDTD 29911 
BOSUB 21979 

RDX-RD7.+ 1; BANK 1: POKE DEC I - 1 999" ) +RD7. , 1 . 
DRX-RD7.I BYS LEX, POKE DEC ( "1990" 1 ,DRX: TUX 
-2: GDTO 26911 
GOSUB 21979b CHAR ,9,23,CL*: PRINT DL*lJN*1 

BET KEV XT*: IF XT*— "N" THEN 21967 
IF XT*-CHR*(27) THEN CX7>8| GOTO 21991 
GOSUB 319111 IF CRX-1 THEN 21991 
ON CXX SOTO 49991: GOTO 63991 
BANK 11 SYS GTX: POKE DEC I " 1999" 1+DRX, 1*07,1 
POKE DEC (" 1999" ) ,DRX: RETURN 
GOSUB 59911 IF CR7>1 THEN RETURN 
OPEN 4,4l OPEN 5,5 
PN^"I: DC WHILE PNX<=PAX 
EOBUB 29191t IF ESX)9 THEN 21994 
PRINT#S,CHR*<27) "«"i : PRINT95,CHR*(271 " i (DO 
NN)"l 
PtUMTM 
XX*-"(3SPACE)atETT"*STR*(PNX) i GDSUB 21896 



<OE6> 

<£V3J 
<05B> 
<9N6> 
CD6N> 
<03I> 
<KE1> 

<59CJ 
<6SC> 
<LE1> 



<3DF> 
<DCH> 
<28F> 
<IK3> 
<UI9> 
<CE3> 
<491J 



<VCB> 
<BV7) 
<VHI> 
<2L5> 
<13A> 

<7E1> 
<9Q7J 
<GIB> 
<KIN> 



<BKH> 
/nc:i , 



<FD7> 
<L.9B> 

'-EU4,- 
■ OUD.. 

<KVK> 
<9RD1 
<CFC) 

<917> 
<4F6> 
<7V3> 
<A73> 
<A3N> 
<J73> 
<IIT> 
<56V> 
<3BE> 

<BtC> 

•:h6v> 

<9FB> 



<N32> 

<3LT> 

<9PJ> 
<D38> 
<TT=a> 

<92V> 
<T6F> 
<TTF> 

<HHV> 



i LI 

<4C6? 
<P22> 
<VSU> 
<RCF> 

<FBU> 
tlHW 

<EBH> 
<AFB> 

<IHC> 
<HH1) 

■;vjs> 



21669 PRINTtWl XX*-" (3SP ACE ) HE 1 V: (4SPACE)"+RIGHT* 
<" "tSTR*(SPX1 ,3)+" C2SPACE)"+NA*(SP7:,1>1 IF 



NA*(SPX,210"" THEN XX*=XX*+'- 



"+NA*(SPX,2 



21696 
21991 



21992 
21993 

2199* 
21993 
21996 
21997 
21191 
21192 
21193 



21193 
21166 
21197 

211961 
21169 

21119 
21111 
21112 
21291 
21292 



21293 
21296 
21297 
21299 
21219 
21211 

21212 

21229 

21239 

21231 

21232 
21233 
21234 

21233 
21236 



21236 
21239 
21249 



21239 
21251 
21232 
21269 

21261 

21309 
21381 

21393 

21394 

21393 

21396 

21397 
21311 

t. i s i r 

21496 

21491 

21492 
21493 

21494 
21495 
21496 
21591 
21318 

21515 

21328 
21325 
21539 
21333 

21549 

21543 
21358 
21995 



SOSUB 21696 

XX*-"(39PACE)aCH>WRIl "■miGHT*(" "+STR*<SOX 

1 ,31*"(2SPACE>"+«A*(S0X,l>t IF NA«tB0X,21<> 

"" THEN XX*-XX*f", "fNA*(S0X,21 

BOSUB 21996 

PR1NT»4: X X*»" ( 3SPACE ) EJ5&USU: I5SPACE) 1 " r 

BOSUB 21996: PRINT94I PSINT94 

PNX-PNK>lt LOOP 

CL09E 4: CLOSE 5: RETURN 

XX*-LEFTi IIIltSF't , 46 > 

PRlNT*4,XX*tXX*l RETURN 

HI**" / £AARUNGEN": GDSUB 19911 

CHAR ,9,23,CL* 

PRINT " (RVSON) N (RVQFFI - £AARUWGSNEUE1NB 

A8E(2SPACE)>(2SPACE,RVSCN) A (RVQFTJ - £AAR 

UNGEN AUFHEBEN<2SPACE, RVSON) L (RVOFF) - LI 

STE" 

PRINT ■ (RVSON) F (RVOFFI - 4PIELER SUCHENI 

ZGP ACE >*(2SP ACE, RVSON) P (RVOFF) - NOCH NIC 

HT BEPAARTE SPIELER"? 

YT*=CHR* (271 +CHR* (271 +"LFP" 

IF SPX<HSX THEN YT*-"N"+KTD*CVT*,2,29I 

IF PAX>9 THEN YT*-LEFT*(YT*, 1) *"A-+M1D*1YT* 

,3,291 

CHAR 1,9,2I,CR*! BET KEY XT* 

XT7>INSTR<YT*,XT*): IF XT*»CHR*(271 OR XTX» 

9 THEN RETURN 

DN XTX BOSUB 26681,26639,29291,29269,29429 

IF BPX-HSX THEN RETURN 

[5(1111 21101 

Kl*-" f £RGEBNISS£": GOSUB 1691 I 

CHAR ,9,23,CL*: PRINT « (RVSON) N (RVOFF) - 

£RGEBNISNEUeiNGABE (2SPRCE J * (2SP ACE , RVSON I 
L (RVOFF) - ALLE SRSEBNISSE LrSCHENtZSPACE) 
■(2SPACE, RVSON) E (RVOFF) - DFFEN-" 
PRINT - STEHENDE EKGEBN ! SSE ( 2SPBCE 1 • ( 2SPACE 
, RVSON > L (RVOFF) - LI STE (2SPACE } * (2SPACE , R 
VSON) F (RVOFF) - a»IELER SUCHEN", 
CHAR ,9,2l,CR*: EYH-21: EXX=-1: ELK-3: E*(8) 
-— : E*(2)-"LFNEi.» 1 E*(3)-IA*1 SOSUB 3991: 
IF XT*-CHR*(27) THEN RETURN 
IF XT*="i." THEN GOSUB 21269: BOTD 21291 
IF XT*-"E" THEN BOSUB 212391 BOTO 21291 
IF XT*-»N- THEN SOSUB 299911 BOTO 21281 
IF XT*-"L" THEN SOSUB 29291 1 GOTO 21291 
IF XT*-"F" THEN GDSUB 29269: BOTD 21291 
PNX=VAL1E*(I) >: IF PNX>PAX THEN GDSUB 2696: 

GOTO 21294 
IF PNX-8 THEN BOSUB 21399: IF CR7.-1 THEN 21 
292 
GOSUB 28191: IF U]t>7 THEN GDSUB 2996: GDTD 

21264 
CHAR ,9,23,CL*1 PRINT XE*| PRINT YE*: CHAR 

.i!.::i,csi: Gosue 29121 

PRINT CHR*(27)"J"sTABE7l): BANK 15: SYS 525 
91: GET KEY XT*: SYS 32639 
IF INSTR<-ei2345SV7",XT*)-9 THEN 21282 
IF ES*>» THEN sex-aex-i 

EGX-VALtXTfll BANK 1: SOSUB 29115: GDSUB 21 
235: GOTO 21282 
IX=5= DO WHILE IX<29 

OPEN 3,3l CHAR ,1,IX: YT*-""| FOR IK-1 TD 3 
: SET H3.XT*: YT*-YT**XT*| NEXT IKl CLOSE 3 
IF VAL<YT*1-PNX THEN CHAR ,0,(1X1, CR*: GOSU 
B 29121: EXIT 
IX-IX+1: LOOP 
IF IX<20 THEN RETURN 

WINDOW 9,5,79,20: CHAR ,8, (HMX-51 ,CR*: GOSU 
B 28121: PRINT : HHX-PEEK ( 233 ) 1 PRINT " (2H0 
HE)" I RETURN 
Ml*-* I OFFENSTEHENDE tRGEBNISSE" : GOSUB 19 

811 

BANK I: SYS DEC("4498")l SR7.(«>-PEEKCDEC("8 

B99"lll IF SR7.(9i-9 THEN CR5i-l: BOTD 29939 

FOR IJ-1 TO SRXC9): BRX( 1J1 =PEEK (DEC ("9699" 

1 + 1J1: NEXT IJ: IJ=-I: GDTO 26282 

CHAR ,9,23,CL*: PRINT " 8LLE ERQEBNISSE LBS 

CHEN7 "JNti BET KEY XT*! IF XT*<>»J" THEN R 

ETURN 

BANK 1: SYS DEC ( "4477" > : SEX-PEEK ( DEC (" 3299 

" ) 1 : GDTD 29261 

CHAR ,9,23,CL» 

CHAR ,9,2I,CR*: CRX-9: EYX-21: EXX-S: ELX-3 

: E*(3>°ZAi: E*(21="" 

GOSUB 3991 J IF XT*-CKR*<27) THEN CRX-ll RET 

URN 

IJ-VAL(E*1111: IF U H1S7. THEN GDSUB 2996: G 

DTO 21383 

IF IJ-9 THEN SOSUB 214991 IF CR7.-1 THEN 213 

91 

BANK 1: POKE DEC ("3829" J , I J: SYS DECC43EC" 

) 

PNX-PEEK ( DEC T " 3829" 1 1 

IF PNX-9 THEN SOSUB 29061 GOTO 21301 

RETURN 

CHAR ,9,21,CR*i CRX-0J EYX-211 EXX-9t ELX-2 

St E*(3>-ZA*+BS**","1 E*I21-"" 

BOSUB 39911 IF XT*«CHR*(271 THEN CR7.-1: RET 

URN 

IJ-HSX: DD WHILE IJ>9 

IF E*(l>-LEFT*<NA*tIJ,ll+", "+NA* ( IJ,2I ,LEN 

(E»<I)l 1 THEN EXIT 

I J- 1 J- 1: LDDP 

IF IJ-0 THEN GDSUB 2966: GDTD 21461 

RETURN 

CHAR ,0,23,0.* 

PRINT " EEBEN SIE DEN SPIELER EIN, DER ZUftS 

CKGEZDGEN WERDEN SOLL ' " 

CHAR ,9,21,CR*[ EYX-21: ELX-31 EXX«3: E*<6> 

»""! E*t2)-""l E*<3)-IA* 

GOSUB 3891: IF XT*-CHR*(27) THEN RETURN 

EPX-VAL(E*(1) 1: IF SP7.-0 THEN 21540 

IF SPX>HSX THEN BOSUB 2696t BOTO 21329 

GOTO 21379 

GDSUB 20379: IF CRX-1 THEN CRX-6: GDTD 2151 

S 

SPX-HS7, 

OD WHILE SPX>9 

IF E*(11-LEFT*(NA*(SPX, 11+", "+NA* tSPK,2) ,L 

EN(E*(1M3 THEN EXIT 



<DAL> 
(VE1> 



<UF2> 

<UE1> 

<NHP> 
<JBS> 
BCD. 
<HAO> 
<745> 
<D73> 
<PBB> 



<R16> 
<7N4> 



<7HV> 
<SLD> 

<t7T> 

•: 1F2> 
<P4S> 
<BTC> 
<SFE> 



<N00i 
<0B8> 
<1V8> 
<KVA> 
<1V4> 
<77F> 

<OSH> 



■;KHM> 
<IEC> 
<GTB> 

<V3H> 
<B7F> 



<16B> 
<57P> 
<149> 



<KA9> 
<NS6> 
<LTI> 
<35H> 

<FJS5> 

<LIA> 
<HFB> 

<ODS> 

<F6B^ 

<093> 

<UBK> 

<676> 
<SK3> 
<8SC> 
<HD7> 

<ME4> 

::CUB; 
<934> 

<NT2> 
<P1P> 
<B32> 

<L3H> 

<OTS> 

<7E3> 
<BOI) 
<9AG> 
<ED8> 
<CP3> 

<3BO> 
<897> 
<PDK> 
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ii^Hj* 



C128 



ANWENDUNGEN 



21360 SPX«SPX-1: LOOP <65A> 

21545 IF EPX-« THEN BOSUB 2666: GOTO 21340 <HB6> 

21376 SOX- 6: EGXa0s CHAR ,0,21,CR*: GOSUB 29122 <707J 

21575 CHflR ,9,23,CL* <T7K> 

2133* PRINT ■' ZURV7CKZ1EHEN? "JN* <A3EV 

21393 SET KEY XT*i XTX- 1 NSTR ( " .JN " ,XT*> i IF XTX-9 

THEN 213B5 <29J> 

21595 BANK It FOR 11-RDX+l TO HRX <II2> 

21596 ON XTX GOSUB 21600,21492 <BNP> 

21597 NEXT III GOTO 21561 <5D7> 
21609 POKE DEC r , 2090">*t6«BPX+T 1,16: RETURN <2KB> 
21602 POKE DEC("20ee"> + 16»SPXftI,6 : RETURN <DHS> 
22691 US*-"**H,#"! nit-" / IBBELLEN"! BOSUB 19611 <F77> 
2290* CHAR ,9,3,CL*i PRINT "(RVSON) £LZ SSPIELER 

(BR./IITEL/UBME! (23SPACE JK.£UNK:TE{4BPACE)r»< 
ULZ WISOLZ (2SPACEJ" <AR7> 

22695 CHflR , 9 , 22 , '■ ysS^Wjy+yvY y.t r .Vff t Vmm -- fl-V 
++*+++ + »*+■-»++ + -«- + -n-n-* + » Wt'^Yt'AVtf^VJT 
*****V- <EB3> 

22019 PRINT '■ (RVSON1 F (RVOFF) - SDRTSCHRITTSTAB 
ELLE ftUF aRUCK6R(2SPACE)«<2SPACE,RV5DN) T ( 
RVOFFJ - SANGTABELLE OHNE ..." VCN2) 

22913 PRINT " (RVSON J I (RVOFF) - JJANGTABELLE HIT 

SJCHOLZWERTUNG"! <RD3> 

22626 YT*«»FTI" <BBN> 

22623 BET KEY IT*: IF INSTRI YT», XT*) -6 THEN RETUR 

N <SOF> 

22639 ON INSTR(YT*,XT*> GOSUB 19901,22166,22266 <S6T> 

22635 GOTO 22691 <FL2> 

22166 BANK Is SYB STX: POKE DEC t ■ 3366" ), MSX . POKE 
D£C<"1000"> ,DRX+1: SYS 17617! POKE D£C<"10 
60"),DRXl IJ-i <MJQ> 

22116 WINDOW 9,3,79.26,11 IK-IJ <UHT> 

22115 DO WHILE IJ<-HSX <A1C> 

23129 IL-IJs BOSUB 22396 <BUT> 

22123 PRINT i IF IJ-IK-M4 THEN EXIT <IBJ> 

22136 IJ-jg*It LOOP i IJ-IK*14 <PGJ> 

22135 PRINT "<2HOMEJ"= CHflR ,0,23, CL*: PRINT " (R 
VSON) D [RVOFFJ - XABELLE AUF SRUCKER-j PRI 
NT BX*: VC1 

22149 PRINT H t2HQf1E)": BET KEY XT*! IF INSTR("+-0 

(HOHE,CLR)P£",XT*)-0 THEN RETURN <F6U} 

221*2 IF ST*-" (CLR)" AND MS7.J14 THEN IJ-«BX-14i 8 

□TO 22119 <331J 

22145 IF XT*-"D" THEN GOSUB 379911 SOTO 22135 <L7V> 

22146 IF XT*--(HGHE1" THEN IJ-1: GOTO 22116 <7CD> 
22159 IF XT*-"+" AND I.KHBX THEN IJ-IJ*lt IK-IK+1 

■ IL-IJt WINDOW 6,5,79,26: CHflR ,9,15,CR*: 

60SUB 22366i PRINT ] GOTO 22146 <nus> 

22133 IF XT*-"-" AND IK>I THEN IJ-IJ-1.- IK-IK-lt 

IL-IK: WINDOW 9,5,79,26: CHflR ,0,0,CHR*(27> 

+ "I"+CR*I GOSUB 22369: GOTO 22149 <NV8> 

22156 IF XT*-"P" AND IKMSX THEN IJ-I3+1 : BOTQ 22 

116 <GG3J 

2213? IF XT*-"£" AND IK-I5J6 THEN IJ-IK-15t GOTO 

22119 <4Q9> 

22166 GOTO 22149 <CP4> 

22266 BANK 1: SYS GTXi POKE DEC (" 3399" ), MSXi POKE 
DEE("T966"l,DRX+ll SYS TAX: POKE DEC!"1999 

">,DRX1 IJ-1 <FEB> 

22293 GOTO 22116 <CP1> 

22366 BANK il SPX-PEEK ( DEC (" 3300" ><■ IL S BOQ 

22395 Pl-P£EK(DEC("3460"l+SPX>/2 <AEG> 

22319 Mt-F£EK<DEC("3399"1»BPX1 <ORP> 

22313 Bl- (PEEK (DEC ( "3690" I +SFX) +PEEK (DEC < -9699" > * 

SPXI 42561/2 <WN> 

22329 A I- (PEEK (DEC < "3769" 1 *SPX> f PEEK (DEC ( "6799" » ♦ 

SPX)»256)/2 <3aT> 

22325 PRINT " " RIBHT*(" t2SpflCE ) " +STR» I IL! ,31 ". " ; <SIL> 

22336 PRINT TAB(6I"(" RIGHT* (" <2SPACE1"+3TR*(BP)[1 

,3)") "Nfl*(GPX,9l| <N1R> 

22333 PRINT TABtli] NA*(SFX, 1) ; : IF NA* (SPI,2><>-" 

TTEN PRINT ", "Nfl*<BPX,2»j <UES> 

22346 PRINT TflBtS4>i: PRINT USING US*(Plt <HTV> 

22342 IF H1J9 THEN PRINT " *"+R I BHTH9TR* (HI ) ,2t » 

H"t C8HL> 

22345 IF BI>9 AND DRX>1 THEN PRINT TAB(66);: PRIN 

T USING USxsBli CDAP> 

22359 IF Al>9 AND DRX>2 THEN PRINT TBB(73» 1 i PRIM 

T USING US*)fllt <03CJ 

22355 BANK 13| SYS 2S4G: RETURN <V19> 

22496 CHAR ,9,3,CR*: PRINT " <RVSON> £LI TSPIELER 

(aR./T.ITEL/Bfl«EJ (23SPACE } TEUNKTE C4SPACE >'TJK 

O-Z TFQH0LZ{2SPACE>"] : RETURN <NJM> 

23691 Ml*-" / £fi-aYSTEJ1-iLARTE(N>"l SCSUB 16911 <N1Q> 

23692 CHflR ,9,3,C1_*: BANK li POKE DEC ( "3366" I , HS% 

J BYS GTX C3UP> 

23993 PRINT "SRVSONJ MS.TtXITEL) WU1E, JiDRNAME£18 

BPflCEJIHERElN (JWTION/STflDTl <3SPftCE >T1»£ET£ 

tftt2SPACE)" <5U5> 

23*65 CHflR ,9,7,CL* <4K9> 

23996 PRINT " IRVBON) ij>. ^^BNER; (iflNGNR. /JWHE/MA 

TION) (13SPACEXiNGO/tL0)'Kfl.1ilfiSEBNISIE iUN 

Kte ■ <rmr> 

23967 CHAR ,9,22, 



23616 CHAR ,9,23,CL*I PRINT " EEBEN £IE DIE £ANGN 
UWHFR ODER DEN HAPIEN DES GEWVNSCMTEN SPIELE 
P- N! " <EPO> 

23911 I " IRVSONJ D (RVOFFl - £B-£YSTET1-£ARTE 

(Nl AUF 1»!UCKER"| <PB6> 

23912 CHflR T 9,5,CR*t WINDOW 9,9,79,21,11 PRINT "C 
2H0ME>"! Eri-5: EXX»ii ELX-3t E*(9>-"": E* ( 

2I-"D": E*(31-7A* {Tfl4) 

23913 GOSUB 3961: IF XT*-CHR*(27> THEN RETURN <BaB> 
23614 IF XT*-"D" THEN GOSUB 39661: GOTO 23919 <DFU> 

23915 SPX«UAL (E* ( 1 > ) 1 IF SPWMHX THEN GOSUB 2966: 

BOTD 23613 <7KP> 

23916 IF SPX>6 THEN 23923 <6CV> 

23917 CHAR ,9,24,CR*1 CHAR ,6,5,CR* <UHK> 
2361Q EXK-9: ELX-3S: E*l9)-""r E*(2|." (SYNTH. : 145 

1": E*(3I="," + ZA*1-BS* <2RT> 

23619 GOSUB 3991: IF XT*=CHR*I27) THEN RETURN VEB4S 

23626 IF XT*." (SYNTH. tl4S>" THEN 23610 <B7P> 

23921 CRX-01 3P7.= 1: DO WHILE SP5K-HSX <SB1> 

23922 IF E*(ll=LEFT*!Nfl*(SPX,l)+", "+Nfl* (SPX,2) ,L 
EN(E*(lt)) THEN EXIT <91N> 

23923 SPH-SPX+li LOOP <8FB> 

23924 IF SPX>MSX THEN GOSUB 2996 * GOTO 23617 <E4B? 

23925 CHAR ,9,5,CR*i CAX-ll BOSUB 46191: WINDON 6 
,9,79,21,11 BOGUS 2362t: GOTO 23966 <62H> 



23926 BANK 1: P1=9| Hl-01 FOR IJ-1 TO RDX 

2362B BOX-PEEK(DEC<-1969")+SPX«16*IJJ 

23^9 IK-PEEK (DEC ( -2966" >*SPX»16*I 3) i P9-(IK AND 
31. H6-(IK AND 4)/4t FA7.-IK AND 192: IL-IK 
AND IS: GSX-IK AND 16: EGX-6: IF GSX-9 THEN 
23943 

23634 IF IL-9 THEN EBX-2: BOTD 23943 

23935 IF 1L-1 THEN EGX-31 BOTD 23643 

23936 IF IL-2 THEN EE7.*li GOTD 23643 

23937 IF IL-4 THEN EG7.-4: GOTO 23943 
2393B IF IL-19 THEN BEGIN 

23939 IF SD7.=255 THEN EGX-Sl ELSE EQX-5 

23949 BEND t BOTD 23943 

23941 EGX-6: IF<PEEK (DEC("2996") +S0X«16*IJ) AND 3 

>-• THEN EBX-7 
23943 P1-P1+P6: H1-HI+H9 
23952 IF SOX-6 AND GSX-9 THEN SOX-256 
23653 IF SOX-9 AND GSX>6 THEN EGX-9 
23957 SRX(15+IJl-SGNtFAX-12Bl+l 
23959 SRXCIJ1-SOX: SR7.(36+ia>-EGX: SRX<45+IJ>-P1 : 

SRX(69+IJ1-HI I NEXT Ui RETURN 
23969 WINDOW 6,9,79,21,1 
23661 IK-lt IJ-lt DO WHILE IJ<-RDX 

23962 IL-IJ: GOSUB 23979: PRINT i IF IJ-IK+11 THE 
N EXIT 

23664 IJ-IJ+I, LOOP 

23963 PRINT "(2HOHE)": CHAR ,9,23,Cl_»: PRINT ' <R 
VSONJ + (RVOFFJ / CRUSONI - (RVOFFJ - *.fTT 
ERN": PRINT * C^VSONJ D (RVOFFJ - fiH-SySTEM 
-iAfiTE AUF JJiUCKER-ii BET KEY XT*: IF INSTR 
CD-*— ",XT*>-9 THEN 23919 

23964 IF XT*-"D" THEN IX-SPX: lY-SPXt GOSUB 39999 
: GOTO 23919 

23967 IF XT*-"*" ANJJ IJ<RBX THEN IJ-IJ*II 1K-IK*1 
■ IL-IJl WINDOW 0,9,79,21! CHflR ,6,12,CR*: 
GOSUB 23670: PRINT 1 GOTO 23665 
2396B IF XT*-"-" AND IK>1 THEN IK-IK-ll IJ-IJ-ll 
IL-]Kl WINDOW 6,9,79,21! CHAR ,6,6,CHR* (27) 
+ "I"*CR*: GOSUB 230791 BOTD 23665 
23969 GOTO 23665 

23976 PRINT USING "###» t IL!: GOSUB 23999 
23671 IF SGX-9 THEN XX*-"IURSCKGEZOBEN"l SOTO 239 

76 
23972 IF BOX-256 THEN XX*-"NOCH NICHT SEPAflRT"! B 

DTD 23976 

23673 IF SOX-235 THEN XX*- "SF 1 ELFRE I '" : GOTO 23A76 

23074 XX*-*("+RIGHT*(" " +BTR* ISOK ) , 3 I +" J "+LEFT*( 

Nn*(SaX,0)+EF'*,41 ■NOKSUX, U : IF NA*tS0X,2J 

<>■" THEN XX*-XX*+", "*Nfl*(SDX,2) 

23975 XX*-LEFT*(XX*+BP*,3ai*" "*LEFT*(NA*(S0X,3) , 

31 
25976 PRINT TBB(5(XX*li IF SOX-0 OR SGX>2S4 THEN 

23079 
23077 IF NAX(SOX,0>>0 THEN PRINT TAB(49)i: PRINT 

USING "tt#tt";NAX<S0X,9)I 
2397S IF NflX(SDX,l>>9 THEN PRINT TAB<331)1 PRINT 

USINB "»»»»"!MAX(SDX,1,), 
23679 PRINT TAB<59>FA*<FAX> t 
239G1 PRINT TAB(62>EG*(EGX> ! Tnp (71 ) : : PRINT USING 

-•«,9"lP9( 
239B2 IF H9J9 THEN PRINT " +",| PRINT USINH "»•", 

HO:: PRINT "Jl** | 
239B3 RETURN 
23699 SOX-BRX(lL)i FAX-BRX< IL+131 1 EGX=SRXIIL*39) 

I P9-SRX(IL*45)/2! H9-BRX(IL+661 : RETURN 
39991 f19*-".aiENST": Mi*-"-: GOSUB 19011 
39995 CHAR ,9,3,CL* 
36919 PRINT ■ (DOWNJ (RVSON , 2SPACE 1 1 C2SPACE , RVOFF 

J - EUNKTIONSTASTEN BELEGEN 
36915 PRINT " (DOWN) (RVSON , 2SP ACE > 2 (29FACE , RVOFF 

J - INHALT5VERZEICHNIS DEfi »TEIDIGKETTE 
39929 PRINT " (DOWN! (RVSON, 2SPACEJ3(2SPACE, RVOFF 

} - DISKETTE FORMAT I EREN 
39923 PRINT " (DOWN) (RVSON, 2SPACEJ4(2EFACE, RVOFF 

' J - TURNIERDflTEl LESCHEN 
30939 PRINT " (DOWN) (RVSON , 2SPACE J 5 (2SP ACE , RVOFF 

) - IURNIERDATE1 UMBENENNEN 
36635 PRINT " (DOWN) (RVSON , 2SPACE J6 C2SPACE , RWOFF 

J - 30NSTIGE BISKETTENBEFEHLE 
30049 PRINT " (DOWN) (RVSON , 3SPACE , RVOFF J - IUHT7C 

K INS HAUPTMENUE 
36645 YT*-" 123456 '■ 

39658 BET KEY XT*l IF XT*-CHR*(27> THEN 63?9I 
36955 XTX-INSTR(YT*,XT*)i IF XTX-0 THEN 63961 
30069 ON XTX GOSUB 53901,31991,32061,33661,34601, 

39199 
39965 GOTO 36001 

39199 CHAR ,6,23,CLlj PRINT - JJISKETTENBEFEHLj - 
36161 EXX-lSl EYX-23i ELX-40! E*(01-"": E*(2)-"*e 

"i E*(3>-Sa*"*-ZA*+"i,i" 
3010S GOSUB 3991i IF XT*-CHR* [271 THEN RETURN 
39196 IF XT*-"*" THEN WINDOW 1,4,79,21,1: D1RECTO 

RY J PRINT "(2H0HE1-J BOTD 39115 
36107 IF XT*-"«" THEN 30115 
3019S IF E*(l)-"" THEN RETURN 
39109 IF LEFT*(E*(ll,2)-"Ni" THEN 32991 
301 16 OPEN 15,B,I5l PRINT»15,E*(1) 
39115 CHflR ,9,23,CL*! PRINT - "DS*i CLOSE I3l GET 

KEY XT*i GOTO 39166 
31991 BOSUB 410U IF CRX-1 THEN RETURN 
31695 NA*(9,0J-YD*: NA«(0, D-XD* 
31920 OPEN 13,B,15,"UJ"! SLEEP li OPEN 2,8,2, "»"t 

IJ-1: IL-1 
31925 DO 
31939 PRINT* 13, "111: 2 9 lB"]IJt IK-9! IF BS>0 THEN 

CRX-1 1 EXIT 
31933 DO 

31946 PRINTtlS, "B-P 2"iIK«32*2 

31645 GET »2,XD*1 IF XD*OCHR*(129) THEN 31696 
31656 PRINT#13, H B-P 2"? IK432+5 
31933 BET »2,XD*i IF XD*<>"1." THEN 31099 
31960 YD*-"" 
31665 DO 

31670 BET «2,XD*l IF XD*-CHR*(166! THEN EXIT 
31673 YD*-YD*+XD* 
310S9 LOOP 

316B5 NA*(IL,9>-YD*: IL-ILtl 
31990 1K-IK+1: IF IK-S THEN EXIT 
31095 LOOP 

Listing 1. »CH-VERWALTUNG« (Fortset2ung) 



SBU4> 
(S99> 



<R7J> 
<1DN> 
<JLJ> 
<HDV> 
■XL7> 
<IPB> 
<20R> 
<NR2> 

<E16J 
<A3M> 
<7LC> 

<FTL) 
<K9E> 

<t16N> 
<94T> 
<S3T> 

<3BF> 

■ H7P ' 



<47B> 
<OD0> 



<JJC> 
<C52> 
<B2I> 



<KVfl> 
<VKP> 



<661> 
<BLE> 
<7Bfl> 
<N17J 

<JHA> 

-, 165 > 



<1IK> 
<9N7i 

<2DMJ 

<MGO!- 
<SL9J 



<RIP> 
<16B> 
iCLVFJ 

<f1R7J 



<EDE> 
<1SL> 
<NNC> 



<N7K> 
<D32> 

<BNO> 

<JJQ> 
<FB0> 

<DCB> 
<KF2> 
<VBN> 
<UCT> 
<VT9> 

<CF4> 
<9B6> 
<FVJ> 

<JB2> 
CDDH> 

<aei> 

<CIJL> 
<BCD> 
<B3V> 
<BOE> 
<D60> 
<AN9> 
<T9D1> 
<HL3> 
CAD3> 
<6B9> 
<23J> 
CCBRJ 
tB9H> 
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ANWENDUNGEN 



311*9 IF CRX-i THEN EXIT 
311*5 PRINTII15,"B-P 2 9" 
31119 GET H2,XD*: GET 42,YD*s 



IF XD*=" 



THEN EXIT 



31115 
31129 
31123 
JI139 
31135 
31149 
31143 
31156 
31153 

31 16* 

31165 
3117* 
31173 

r-t IB* 

31 IBS 

31 19* 



IJ=ASC<YD*> 

LOOP 

IF DS>9 THEN 31175 

CLOSE 2t CLOSE I3> 1L-IL-I: 1J=1: IK-1 

IF IL-e THEN 31 IBS 

DO WHILE IJ<-=IL 

YD*-"&"+NA*{ IJ,*) 

DOPEN *2,<YD*)I IF DS>9 THEN CRX-li EXIT 

INPUTi2,YD*l IF MA* ( IJ,9K>YD* THEN IJ-1J-M 

I GOTO 31165 

INPUT*2,NAf ( IJ, 1 I : NA* ( IK, *>=Nftt ( IJ ,*> : Nfl* 

<ik,i!-n(w(ij,ii i ne-iK+ia ij-ijh 

DCLOSE »2t LOOP 

IF CRJ>* THEN 31 IB* 

GOBUB 4*91: IF CR*=°9 THEN 319*1: ELSE RETUR 

N 

1L- Its- 1 

IF CXX-* THEN mt=" / iNHALTSuEMEICHWia DE 

R »1TE1DISKETTE": GOSUB 19*11 

CHAR ,»,3,CL* 

CHAR 1 , 9, 21 , CL** " +^V+<h^+++ WV+".«Wrt^jq=PF 



312*9 if cxx-e then print ■ crvsonj D (rvdffj - i 

NHALTSVERZETCHNIS AUF a^UCKER" 
31261 PRINT H CRVSUN1 + CRVDFF1 / IRySONJ - tRVOF 

F> - JLFTTERN(2HOHE}" 
31293 WINDOW 9,4,79,21,1 
3121» IK. li IJ-1 
31215 IF 1L=* THEN BEGIN 
31229 PRINT " SEINE XURN I ERMVTE I AUF DIESER JUSKE 

TTE ftBSESPE 1 CHERT!" 
31225 PRINT "{2HOME1": SET KEY XT* 
31239 BEND i RETURN 
31235 DO WHILE IJC-tL 
3124* IM=IJ: GOSUB 312B*: PRINT 
31245 IF PEEK(233>-21 THEN EXIT 
31258 IJ-1J*I| LOOP 
31253 PRINT "<2HOHE>'-s GET KEY XT*: IF INSTRC-+D 

",jfT*t=* then return 

3126* IF XT*-"D" AND EXX-9 THEN SOSUB 3B991 
31265 IF XT*^"+" AND IJ<IL THEN IJ=1K+1: IK-IK+i: 
IW=IJ: WINDDW 9,4,79,21: CHAR ,9,17,CR*t G 

OSUB 3126*5 PRINT i GOTO 31255 
3127* IF XT*---" AND IK>1 THEN IK-1K-1! 1J-IJ-1: 

IH-IKi WINDOW 9,4,79,2li PRINT CHR*C27> "< I"l 

I GOSUB 312a*: GOTO 31235 
31275 GOTO 31253 
31286 PRINT "{2SPACEJ" RIGHT* ISTRtlini ,31 ITABI31N 

A*(IN 1: 9> JTABI1B1 ,, -"NA*<IH, t)| I BANK ISt SVS 
2B4B: RETURN 
32*91 CHAR ,9,23,CL*S PRINT " AEBEN 4IE HAP1EN UND 

UJ DER ZU F0RMAT1ERENDEN SISKETTE EIN'" 
32*92 PRINT " (RVBON3 HAME: <RYDFF>*3TAB<391 " <RVS 

ON} AS: CGHF.SPACE,RVOFF)"jj XD*-""« YD*«"" 
32*93 EYX-24: EX*=9i EL7.-16* E*<21-* H * E*I9)-YD*1 

E*(3)="BBCOEF6HiaKLMN0PQRBTUVWXYI "*ZA* 
32*94 60HUB 3991 1 IF XT*-CHR*(27> THEN RETURN 
32*93 YD*-E*tl)s IF YD*=»"" THEN GOSUB 29*6: GOTD 

32*93 
32*96 EXX-37: EL3t=2: EX91-XD*: E*(21"» (SYNTH, 1 14 

5»" 
32997 GOSUB 3*91: IF XT*=" CSYNTH. : 145>" THEN 3299 

3 
32*90 IF XT*=CHR*£27) THEN RETURN 
32999 XD*-E*(1> 
32919 CHAR ,9,23,CL*. PRINT " XDRSICHT - SIE AUF 

DER E1NGELEGTEN flISXETTE ABGE3PEICHERTEN BPi 

TEN GEHEN" 

32911 PRINT " VERLOREN 1 <2SPACE>«{2SPAC£5NE1TER HI 

T CRVSON} RTN 1RV0FFJ":: GET KEY XT*: IF XT - 
*<»CHR*U3> THEN RETURN 

32912 OPEN 15,B,15 

32913 PRINT#15,"Nl"+YD*+",-->XD* 

32914 IF US- 9 THEN CLOSE IS: RETURN 

32*15 GOSUB 49*1: IF CRX=* THEN 32*12: ELSE RETUR 
N 

33991 Ml*-" f BJRNIERDATEI LT2SCHEN": GOSUB 19*11 

33992 EXX-1: GOSUB 31*91: CXX=* 
339*5 IF CRX-l OR IL-9 THEN RETURN 
33915 CHAR ,9,23,CL* 

33929 PRINT " £EBEN HE DIE LFD. BUHNER DER ZU LE 

SCHENDEN 3ATEI EIN!" 
33925 EY7.-24: EXX^li ELX-3: E* <*!-"" I E*C2>"""| E 

*t3)-ZA* 
33939 SOSUB 39911 IF XT*«CHR*<27) THEN RETURN 
33935 m-VAL(E*(l) I : IF IH-* OR IH>IL THEN GOSUB 

2996: GOTO 33939 
33*49 CHAR ,*,23,CR*: GOSUB 3!2B9« PRINT 
33945 PRINT " i-ESCHEN'? "JN»: 
33939 BET KEY XT*: IF XTtO-J" THEN 33915 
33933 YD*= ,, £"-HMA*(IH,91 : SCRATCHtYD*) I IF B9>2 TH 

EN 33*95 
33969 YD*.-4"+NA*tIM,9>l SCRATCHIYD*) t IF DB>2 TH 

EN 33995 
33965 YD*="I"+NA*IIH,9>: SCRATCH ( Y D* \ 1 IF DB<2 TH 

EN 33*91 
33995 GOSUB 49911 IF CRX-9 THEN 33*55: ELBE : GOT 

33991 
34991 HI*-* / IURNIERDATEI UHBNENNEN": GOSUB 1901 

1 
34*16 CX5!=1: SOSUB 319911 CXX-9: IF CRX-1 OR IL=* 

THEN RETURN 
34915 CHAR ,9,23,CL* 
34929 PRINT " SEBEN S1E DIE LFD. 1JUHHER DER UHZUB 

ENNENDEN SVTEI EIN!" 
34*23 EY7.-24: EX)!-Il ELX-31 E*t9J-"": E*<2)-"": E 

*(3)-ZA* 
34939 GOSUB 3*91: IF XT*»CHR*<27) THEN RETURN 
34635 IH=UAL(E*(l)lt IF In-« OR IH>IL THEN GOSUB 

29961 SOTO 33936 
34649 CHAR ,*,23,CR*: GOSUB 312391 PRINT 
34943 PRINT " aiBENENNENTtSHF.BPACEl-JN*! 
3493* GET KEY XT*l IF XTSO-J" THEN 34913 
34955 CHAR ,9,24,CL* 

Listing 1. »CH-VERWALTUNG« (Fortsetzung) 



<1N2> 
<DTT> 

<DP2> 
<S44> 
<6C9i 
<GOH> 
<TT6J 
■imp) 
<9T4> 
<TI5> 
<OUR> 

<6VH> 

<JAE) 
<BID> 

<6EJ> 

<7*I> 
<3CF> 

<LPE> 

<AH6> 



<9PN> 
<9L3> 

CCBR> 
<FG3> 
<GEFV 
<LT4> 
<V69> 
<DI3> 
<37P> 



<NJH> 
<CD3> 



<SR6> 

<9A9> 

<5AJ> 

<PVS> 
<3PA> 

<B6H> 

<IFl> 

<BRD> 
<IBO> 
<7BV> 



CC9B> 
<9DH> 
<E03> 

<UBI> 
<KOC> 
<JRR> 
<SS7> 
CTBG> 

<UD4> 

CKJT> 
<9PU> 

<J9R> 
<N26> 
<8CN> 
<COS> 

^6M2> 

<RH2> 

<GM9> 

<WR> 



<9EK> 

<TNJ> 



<LBO> 

<SOE> 

<FAB> 
<HQ7> 
<KBU> 
<B63> 

JIB'- 



GEOS, Version 1.3 fiir den 

C 64/C128 (deutsch) 

Bestell-Nr. 50320 

DM 59,-* (sFr 52.-7oS 590 r *) 

GEOS fiir den C128 

Bestell-Nr. 50327 

DM 119,-* {sFr 110,- 76S 1190,-*) 

Das Buch zur Software: 

Alles Liber GEOS 1 .3 

Bestell-Nr. 90570 

ISBN 3-89090-570-6, 

DM 59,- (sFr 5430/oS 460,20) 

Schriftenpaket: 

Fontpack international 

Bestell-Nr. 50321 

DM 49-* (sFr 45.-76S 490,-') 

Textve rarbeitu ng : 

GeoWrite Workshop fiir den 

C64/C128(deu1sch) 

Bestell-Nr 50323 

DM 89,-* (sFr 81,-*/6S 890,-*) 

GeoWrite Workshop fiir den 

C 128 (deutsch) 

Bestell-Nr. 50329 

DM 119,-* (SFr 110.-75S 1190,-*) 

Datei ve rwaltung: 

GeoFile fur den C64/C128 

(deutsch) 

Bestell-Nr. 50324 

DM 89,-* (SFr 70.-76S 890,-*) 

GeoFile fur den C128 (deutsch) 

Bestell-Nr. 50330 

DM 119,-* (sFr 110.-76S 1190,-*) 

Desktop Publishing: 

GeoPubiish fur den C64/C128 

(deutsch) 

Bestell-Nr. 50326 

DM 99,-* (sFr 89,-76S 990,-"} 

Programmiersprache: 

GeoProgrammer fur den C64 

(englisch) 

Bestell-Nr. 50332 

DM 119,-* (SFr 110-76S 1190.-*) 

Tabellenkalkulation: 

GeoCalc fur den C64/C 128 

Bestell-Nr. 50325 

DM 89,-* (SFr 79r*/6S 890,-*) 

GeoCalc fur den C128 

Bestell-Nr. 50331 

DM 119,-* (sFr 110.-76S 1190,-*) 

Hilfsprogramme: 

Deskpack/GeoDex fur den 

C64/C 128 (deutsch) 

Bestell-Nr. 50322 

DM 69,-* (sFr 62,-7oS 690,-*) 

Updates: 

- Update GEOS 1.2 englisch auf 

GEOS 1.3 deutsch fiir den 

C64/C128 

Bestell-Nr. 50320U 

DM 39,-* (sFr 35.-76S 390,-*) 

-Update GEOS 1.2, GEOS 1.3 

und GEOS 128 englisch auf 

GEOS 128 deutsch 

Bestell-Nr. 50327U 

DM 79,-* (sFr 72.-76S 790,-*) 

Die Updates erhalten Sie gegen 

Einsendung der Original diskette 

und gegen toauskasse mit 

Verrech nungsscheck. 

' Unverbindliehe Preisempfehlung 



Markt&Technik-Support: 

Bei User-Registrierung rechtzei- 

tige Update-ZUpgrade-lnforma- 

tion und Support-Unterstuteung: 

Tetefon 089/46 13-646 Oder -205. 

Senden Sie uns bitte Ihre 

Reg istrie ru n gskarte. 



m 







*■ 






«^*4 



**n 






*/*,; 



S***« 



^^t>^>* 










Markt&Technik- Produkte 

erhatlen Sie in den Fachabteilungen 

der Warenhauser, im Versandhandei, 

in Computer-Fachgeschaften odef 

bei Ihrem Buchhandier 



Markt&Technik 

Zeitschriften ■ Bucher 
Software ■ Schulung 



Fragen Sie Itiren Fachhandler 

nach unserem kostenlosen Gesamtverzeichnis 

mi! uber 500 aktuellen ComputerbuchBm 
und Software, Oder fordern Sie as direkt 
beim Verlag an! 



Markt&Technik Verlag AG, Buchverlag. Hans-Pinsel-StraGe 2, 8013 Haar bei Munchen. Telefon (069) 4613-0 

Bestellungen im Ausland bitte an: SCHWEIZ; Markt&Technik Vsrtnebs AG, Kollerslrasse 3, CH-6300 Zug, Telefon (042) 415656. OSTERREICH: Markt&Technik Verlag 

Gesellschaft m b.H., Grote Neugasse 28, A-1040 Wien, Telefon (0222) 5871393-0: Rudolf Lechner&Sohn, Heizwerkstrafla 10, A-1232 Wien, Telelon (0222) 677526: 

Ueberreuter Media Verlagsges.mbH (Groflhandel), Laudongasse 29, A -1082 Wien. Telefon (0222) 48 1543-0. 



ANWENDUNGEN 



C128 



3*969 


PRINT '■ (RUSONj HEUER EAHE: (RVOFF)"i 


<F3H? 


36S19 


XX*=XX*+ " < "+RI GHT* ( " I2BPACE 1 "+STR* tSPX) , 3) + 




34963 


EXX-151 ELX-13t EflSMIfltllB.O): EI(!)»"-| 






") ■ 


<3PN> 




E* (3) -" . ABCDEFGHI JKLHNOPHRSTUUNXYZ "+ZA* 


<DD6> 


36S15 


IF EQXO THEN XY*-XY*f" {"*R1BHT*I" I2SPBCE}" 




3*979 


GOSUB 39911 IF XTt=CHR*(27> THEN 34913 


<SVF> 




♦STR*<B0X>,3)»") <6HF. SPACE!" 


<AB9> 


34 975 


IF E*(l)-"' " THEN GOSUB 2996i GOTO 34979 


<SFS> 


36S29 


IF EGT.^O THEN XY*=XY*+"SPIELFREI ,i 


tNl»> 


34909 


TUX-9i TU*--"i DRX-9I YB»»"A"*NA*( 1M,9> 


<G9J> 


36B25 


IF EGX-9 THEN XY*=XY*■^"IUR^!CKSE^OBEN• l 


(C6i.> 


349B1 


DOPEN »2,<YD*> 


<F7U> 


36S39 


XX*-X**+»A*<SPX,11 t IF NA*tSPX„ 2 !<>'■- THEN 




■■'•.< L 


INPUT#2,XX*,XY*,XXX,XYX: IF DS>e THEN 34135 


<4H2> 




XX*-XX*+", "+NA*[SPX,21 


(SJD> 


349B3 


DOLOSE 42 


<CL3> 


36033 


IF EGX<Q THEN XY*»XY*+NA*<SOX, 1) J IF NA*<SD 




349B4 


SCRATCH (YD*) 


•:R3D> 




X,2)<>"' THEN XY*-XY*+", "-H<A*<S0X,2) 


<VT3> 


14935 


XX*-E*(I>1 YD*-*&"--XX* 


<BUV> 


36043 


Igl COHEBJI 


<1BR> 


349S6 


DOPEN #2, (YQ*> ,U 


<D7V> 


36B59 


RETURN 


<1M7> 


349S7 


PRI NT 42, X lt*i CHR* 1 13) » XY*)CHR* 1 1 3) t XXX) CHR* ( 




36999 


PfitNT*5,CHR*l27) ■■" CHR*1I«PMX>: 


<MUE> 




13>iXYXt IF DS>9 THEN 34135 


<9P4> 


36993 


PPX-Sl RETURN 


<3SM> 


3A9S8 


DCLOSE »2 


<DP5> 


37991 


BOSUB 5921b ON XTX. GOTD 37994,17991: RETURN 




■*W 


YD*- "A" +NA* ( IM , 91 : XD*-"£" +E* 1 1 1 


<SP7> 






<GBE> 


34995 


RENAME (YD* > TO(XD*»I IF DSJ9 AND DS062 THE 




37994 


GOSUB 59311 IF CRX=1 THEN RETURN 


(PFI> 


i 


N 34! 35 


<LA1> 


37993 


PPX-XTX-Il CS51-9 


<SF1> 


34 J 99 


YD*."T."+NA*<IM,9>i XD*="I"+E*(1> 


<L32> 


3799S 


BOSUB 59111 IF CRX-1 THEN RETURN 


<NFO> 


•■•11 95 


RENAME (YD*> TD(XD*)i IF D5>9 AND DS062 THE 




37915 


GOSUB 5991 : IF CRX*=1 THEN RETURN 


<PFU> 




N 34135 


<3A1> 


37939 


CRX=PPX: OPEN 3,3] OPEN 4,4 


<TOH> 


34139 


GOTD 34991 


<3T1> 


37935 


PRINT*5,CHR* < 271 1 CHR* 1 1 «S) g CHR* (7) i 


(V14> 


3*135 


SCSUS 4991 1 IF CRX-9 THEN 349B9: ELSE GOTO 




37949 


PP*-"> MANKIND LIST AFTER THE "+STR*(DRX> *■ ". 






34991 


«.ev> 




■DUND <": IF DfiX-HRX AND MOX-4 THEN PP*-»> 




35991 


GOSUB 5911: IF CRX-1 THEN RETURN 


<EFQ> 




EINAL AANKING LIST <" 


<BNB> 


35913 


GOSUB 59«li IF CRX-l THEN RETURN 


<FFU> 


37945 


GOSUB 339991 BOSUB 37999 


<JEG> 


35919 


OPEN 5,5< OPEN 4,4 


<011> 


37959 


II-1I Pl-9: Hl=9: Bl-9: Al=9: BANK 1 


<P5C> 


35929 


PR1NT#5,CHF<*(27) ;CHR* ( 19B) :CHR*(7) J 


<B30> 


37935 


DO WHILE I1<°MBX 


<770> 


35925 


PP*-"> A.IST DF B.ATERS <"» GOSUB 33999 


<T90> 


37956 


GOSUB 377991 BOSUB 37399 


<V02> 


35929 


BOSUB 35919 


<3MJ> 


37129 


PR1NT»4,XX* 


CVM1> 


33939 


IK-1 


<K21> 


37139 


II-II+lr PPX-PPX+1 


<«*> 


35935 


DO WHILE IX<-SRX(9>! BANK 9t II-SRXtIX> 


<JRQ> 


37135 


IF PPX.-69 THEN PRINT»5,"fCTRL*LJ-s : BOBUB 3 




35949 


PRINT**, RIGHT* ( " <2SPAOE J"+BTR» 1 1 1 ) ,3) " CCTRL 






59991 BOSUB 37999 


IF7A> 




tI>"i 


<aLF> 


37149 


LOOP 


<U39> 


35945 


PR INT44 ,NA* 1 1 1 , »> " (CTRL* I ] "Nftt ( 1 1 , 1 ) s i IF N 




37145 


PRINT45," <CTRL+O m ii IF CRX-L THEN CRX-9: B 






A*(It,2>0"" THEN PRINT**,", "NA*(II,2>> 


<IIN> 




DTO 379431 ELSE CLOSE 4l CLOSE 5l RETURN 


(BPF> 


35959 


PR3NT*4, " <CTRL+I > "Nfl* ( 1 I , 3) " (CTRLtl >" i 


<FB9> 


3779* 


SOX-PEEKIBECI "3391 ")+!!>: SPX-FEEKIDECC339 




35955 


IF NAX(I1*9>>9 THEN PRINT44 , RIGHT* (" C2SPACE 






9" ) + 1 1 1 


<JJO> 




)"*0TR*(NAX(II,9>) ,3)| 


<B6U> 


37795 


Pe-Pli H9^tll B9-B11 A9-AI 


<1BH> 


35969 


PRINT**," (CTRL*I>"tl IF NAX(II,1>>9 THEN PR 




37719 


PI-PEEK IDEC I "3499" > +SPX) /2 


<TUBJ 




INT*4,R1GHT*(»(3SPACE)"+STR*(NAX(1I,1>) ,41 ; 


<3BF> 


37713 


P2-PEEK I DEC < " 3499" ) *SQX > /2 


<1SB> 


35963 


PRINT44, PPX-PPX+1: JF PPX-69 THEN PRINT43, 




37729 


H 1 -PEEK t DEC I ■' 3399- I +SPX ) 


<T3P> 




CKR*(12)ji Queue 359991 BOBUB 35919 


<1VJ> 


37725 


H2=PEEK (DEC { "3599" ) +S0X1 


CA57> 


35979 


IX-IX+li LOOP I PR1NT»S, CHR* < 12)1 CLOSE *■ 




37739 


Bl- (PEEK (DEC ( "3699" ) +SPX) *PEEK (DEC I "9699" J + 






CLOSE 5 


<7PI> 




SPX) -2561 /2 


<HMN> 


35975 


RETURN 


<SF7> 


S773B 


B2- (PEEK (DEC ( "3699" ) +SDX) +PEEK (DEC ( "9699" ) + 




35199 


CHAR ,9,23,CL*i CRX-9 


<3II> 




SOX) #256) /2 


<ENB> 


35195 


PRINT " aORTIERKRITERIUH: 


<P9T> 


37749 


A 1 = (PEEK (DEC ( "3799" ) *SPX) *PEEK (DEC t "9799" > » 




35119 


PRINT " (RVSDNJ N IRVOFFl - SAME ( 2SPACE 5 » f 2 






SPX) *256) /2 


<2S7> 




SPACE, RVSONJ V CRYOFF) - JSEREIN t2SPBCE>» t2S 




3774S 


A2- (PEEK (DEC( "3799" ) +SDX) +PEEK (DEC ( "9799" > + 






PACE„RV£DN) 2 CRVOFFJ - MERTUNGSZAHLEN" i 


<9MI> 




SOX)*256)/2 


<OTD> 


351 IS 


GET KEY XT*= IF X T*-CHR* 1 27 ! THEN CRX-li RE 




37759 


RETURN 


<.«Z?> 




TURN 


<D4V> 


37099 


XX*-"C6SPACE)"l IF(PPX-19 AND CS)S-9) OR Pl< 




35129 


YTX- 1 NSTR t -NV Z " , XT* I 


<KMI> 




>P9 OR HK>H9 OR S1OB0 OR AK>A9 THEN XX*- 




35125 


CHAR ,9,Z3,CL**" JJPIELERLISTE WIRD S0RT16RT 






RIBHT* 1 " C3SPACE J"+STR* (11)+".", 4)+" C2SPACE> 






\ " 


<K65> 




" 


tBONJ 


35139 


BANK 9i POKE 5I29,HSX| SYS 5414 


<CNL> 


37B95 


IF CRX-1 THEN XX*-XX*<-" ("*RIGHT*("{2GPACE1" 




33135 


ON YTX BOBUB 35139,33139,35139 


<3S0> 




+OTR*(SPX) ,3>+"'J " 


<FBH> 


33149 


FOR IX-1 TD HSXl SRX(IX> -PEEK (SI 29*1 X> : NEX 




37019 


XX*-XX*#LEFT*(NA*(BPX,91■i■"C3SPACEl",3)■*-■ , " 


<H1H> 




T IXl SRX(9>-MBXt RETURN 


<J2H> 


37015 


XX*-XX**NA*(SPX,1)J IF NA*ISPX,2K>"" THEN 




33159 


FOR IX-1 TO MSX, ON YTX GOSUB 35163,33179 


<LFV> 




XX*-KX*<", " h *NA*(5PX,21 


<KRC> 


35155 


FOR IY-1 TD LEN(IB*)i POKE 332*3+ ( I X-l) »37+ 




37SZ9 


XX*-LEFT*(XX*+SP*,49>f' " 


<3FB> 




IY-1,ASC(HII>*(XB*,IY,1) >i NEXT 1Y 


<61U> 


37B2S 


XY-Pll BOSUB 37S91 


<ROL> 


35169 


NEXT IXi SYS 33921 RETURN 


<ORK> 


37839 


XX*=XX*+R I GHT* ( " (4SPACE1 "+XY* , 3 ) -t-LEFT* ( X Z *+ 




35165 


XB*»NA*(IX, ll+CHR*(9)+NA*(IX,2)+CHR*(13j I R 






* 123PACE1" ,2) 


<VRN> 




ETURN 


<EAT> 


37H35 


IF Hl>9 THEN XX*-XX*+"*"+R10HT* I" "+STR* 1HI 




35179 


XB*=NA*(IX,3)+CHR*(13>1 RETURN 


<IPN> 




»,2>*"U" 


(IPO 


35109 


FDR IX-1 TD HSXl FDR IY<-8 TO 1 


<L7CJ 


37S49 


XX*-LEFT*(XX*+SP*,61) 


<2CN> 


351 B5 


XXX»NAX(IX,IY>1 IF IY-9 AND XXX-9 THEN XXX- 




37B41 


IF Bl-9 OR DRX-l OR IP9<>P1 OR H90H1! AND(P 






999 


<929> 




K>P2 OR Hl<>«2) THEN RETURN 


<C»4> 


331B6 


IF IY-1 AND XXX-9 AND MAX (IX, 9X139 THEN XX 




37BS9 


KY-BU BOBUB 37B91 


<UIS> 




X-EGN (NAX 1 1 X , 9) > » ( 2S39-BWIAX t IX , 91 ] 


<445J 


37SSS 


XX*=XX*+RI GHT* t" I4EPACE > "+XY*, 4 ! +XZ* 


<436> 


35199 


XY7.= 1NTIXXX/'236>I XZX-XXX-XYX«256 


<NL3> 


37B69 


X X4-LEFT* ( X X *+BP* , 6B ) 


<B6U> 


35195 


POKE 52992-IY#S12+IX,XZX: POKE 32736-IY#312 




37S63 


IF Al-9 OR DRX-2 0R1P9OPI DR H9C>H1 OR B9< 






+IX,XYX 


<JKE> 




>B1! AND(PK>P2 DR HK>H2 OR B10B2) THEM R 




35299 


NEXT IV. IX! SYS 5493 


<LM6> 




ETURN 


<TI5> 


35295 


RETURN 


<D97> 


37B79 


XY-Ali BOSUB 37B91 


<02I> 


35999 


PRINT*5,CHR*(27>" ! " CHR* (33+PMK] • 


<KBV> 


37S73 


XX*-XX**RIBHT* < " <4SPACE> " + XY*,4 1 *XZ* 


C4J4> 


35991 


XTX=INSTR(TU*," ",39)1 IF XTX-9 THEN XTX-LE 




37B99 


RETURN 


<167> 




N(TU*>+t 


..!<.«■ 


37B91 


XY*-i_EFT* (STR* tXY J , I NSTR (STR* ( XY) + ".",".") - 




33992 


*X*-LEFT*(TU*,XTX-t>i XY*-HID*(TU*,XTX*1 ,69 






1)1 XI*-MID*(STR*(XY) ,I»STR(BTR*(XY)-f",",", 






) 


<3CT> 




"),19)l RETURN 


<407> 


35993 


PRINT*4,XX*i PRINT**, XY*1 PR I NT45 , CHR* ( 27 > ■ 




37999 


PRINT*S,CHR*(27)"! (CTRLh-A)" CHR* (27) "D {CTRL 






J" CHR*(1B>|1 PRINT»4,PP* 


<ESB> 




+FJ25E" CHR*(9) ; 


<93E> 


S5994 


PKINT#5,CHR*(27) "-1-, 


<710> 


37995 


PRINT«S,CHB*(27)'"" CHB*(4+P«X> i 


<E3D> 


35995 


FDR IL=1 TQ 43: PR1NT44," « t l NEXT IL: PRIN 




37919 


PR1NT*4 , "iANK (CTRL* I 5£LAYER (CTRL* 1 5MINTBIC 






T#5,CHR*<27) N -9"l 


<3DL> 




TRL + I >^1Z (CTRL+I jn^lj" 


<EDH> 


35996 


PRINTt4t PRINTM41 RETURN 


< 176> 


3791S 


PRINT44 


<«S1> 


35919 


PRINTK3,CHR*(2"7) " ! 1CTRL+A>" CHR*<27> "D<WHIT 




37929 


PR1NT45,CHR*(27) "!■' CHR* ( 1+PMX i I : PPX-19: R 






E,CTRL+I1-FK- CHR* 19)1 


<cct> 




ETURN 


<SPK> 


33911 


PR1NT»3,CHR*<27) "!" CHR*l4*PH5;>t 


<FFS> 


3B991 


BOSUB 5991 1 IF CRX-1 THEN RETURN 


<73V> 


35912 


PRINT*4,"HR. CCTRL+1XXJTLE) SAHE, EORENAME< 




30929 


PHX-9: OPEN 4,4: OPEN 3,3 


<FIM> 




Cim • ! 'j:j Db/.IJIUN/Oal UHarrSt.4 1 UNBOCCTRL* I ! 




3B939 


PR TNT 43, CHR* (27) (CHR* I 19S1 1 " CCTRL+J>"| 


<GFD> 




B-D" 


<BT9> 


3B949 


FRINT*5,CHR*(27>"! !"| 


<21B> 


35913 


PRINT #4 


<1G!> 


3B943 


PRINT**, "JWHALTBUERIEICHNIS DER J1ATE1DISKET 




35914 


PRINT»5,EHB*t27>" >" CHR* 1 1 +PMX ) 1 I PP3L-191 R 






TE"l PRINT** 


<CMC> 




ETURN 


CKHL> 


3B959 


PR1NT«5,CHR*(27) "■ tCTRL+A>"i 


CQ2G> 


36991 


BOBUB 3921! ON KTX GOTO 36992, 1B991: RETURN 




3B951 


PRINT«»,"aAMEi "NA*19,9) 


<GKU> 






<50E> 


taooa 


PRINT**, "iSl I3SPACE)"NA*19, 1) 


(04K> 


36992 


GOSUB 3931 > IF CRX-1 THEN RETURN 


<NFI> 


3B9S3 


PRINT 44 i PR1NT44 


(L2N> 


36925 


PPX-XTX-1 


,<D8fI> 


3B935 


II-l 


<UBB> 


36926 


GOSUB 591 1 : IF CRX- 1 THEN RETURN 


<LFO> 


30969 


DO WHILE IK-IL 


<EPO> 


36927 


GOSUB 5991t IF CRX-1 THEN RETURN 


<LFU> 


3B979 


PR1NT#4,RIGHT*("(2SPACE>"*STR*(I]> ,3>+"{2SP 




36945 


CRX-PPXl OPEN 5,Sl OPEN 4,4 


<OSH> 




ACE)"+LEFT*(NA*(II,9) + "(13SPACE>■ , ,13) + " - " 




36959 


PRINT45, EHR* ( 27 ( ; CHR* ( 1 99) iCHR* (7) ] 


<U19> 




+NAI (11,1) 


<9Jl> 


36935 


PP*- 11 ; SAIRINBG l> SESULTS / .SOUND H +STR*<DRX 




3B9B9 


II-II+ll LOOP 


<95R> 




)+■ <• 


<66L> 


3B999 


PRINT*5,"CCTRL+L)"lt CLOSE 4l CLOSE Si RETU 




36969 


GOSUB 359991 GOSUB 36999 


<MA4> 




RN 


<SC3> 


36963 


IX=1: BANK 1 


<BCV> 


39991 


CHAR ,9,23,CL*i PRINT " flUSGABE VDN SPIELER , 




36979 


DO WHILE IX<"SRX(9) 


<U22> 




MP. I {5BPACE1BIS BR. 1 * 


<JAJ> 


36973 


PNX.SRX(IX)i BOBUB 29191 


<AOK> 


39992 


EX1S-261 EYX-231 ELX-31 E*(9)-*"l E*I2)-""t 




369B9 


GOSUB 36S99 


<9US> 




E*(3)-ZA* 


<EU2> 


369BS 


XX*=LEFT*fXX*+GP*,39>+" H i XX*-LEFT*1XX*+XY 




39993 


GOSUB 3991: IF XT*-CHR*(27) THEN RETURN 


<ACK> 




*+SP*,76)+'' "+X7* 


<U96> 


39994 


IX-UAL(E*(D) I IF IX-9 OR IX1MSX THEN BOSUB 




36999 


PRINT«4,XX* 


<5MI> 




2996: SOTO 39992 


<BSO> 


36139 


PPX-PPX-^li IF PP7.=69 THEN PR I NT*5 , " CCTRL+L > 




39993 


EXX-39: E*!21=" (SYNTH. il451" 


<9JN> 




"It BOSUB 359991 BOSUB 36999 


<R6F> 


39996 


GOSUB 3991! IF XT*»CHR*(27> THEN RETURN 


<BSU> 


36133 


IX-IX*lt LOOP 


<NFO> 


39997 


IF XT*-" (SYNTH. 1 145>" THEN 39991 


<JUU> 


36149 


PR1NT95, " ICTRL+D" ; 


<SRE> 


3999G 


IY-VAL<E*ill >i IF IX-9 OH 1Y>HSX DR IY<IX T 




36145 


IF CRX-1 THEN CRX-9i GOTO 36969: ELSE CLOSE 






HEN GOSUB 29961 SOTO 39996 


<P98> 




4l CLOSE Si RETURN 


<LAA-> 


39999 


GOSUB 59111 IF CRX-1 THEN RETURN 


<63R> 


36899 


XX*-RIGHT*<"12SPACE>"+STR*IPNX> ,3)*" I2SPACE 




39919 


BOSUB 59911 IP CRX-1 THEN RETURN 


CC3W1 




l"i XY*=" - " 


<PFJ> 


3991 1 


OPEN 5,3i OPEN 4.4 


<LHR> 


36895 


IF CRX-9 THEN 36B29 


<S!S> 


39912 


PR1NT*5, CHR* (27) i CHR* 1 1 9S) ] CHR* (7) | 


•:cfb> 
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39913 

39614 

39913 
39*1 4 
39623 
39824 



39626 
39627 



39*29 

39636 
3963 1 
39032 

i'llK- 
39631 
39835 

39836 
39837 

3993S 



39939 

39848 

39841 

39842 

39843 

39944 

39943 
39*44 
39847 
48881 

48862 
48885 



48815 
48828 
40181 

48182 
48185 

48118 
46115 



48121 
461 23 
46136 



46131 
48132 
49133 
49134 

48135 
48148 
46145 
48158 
46155 
46169 
49165 
49179 
46175 

48iae 



M1B 



46196 
49191 



46193 
♦8194 



46262 
46285 
46226 
49222 

46225 

49239 
48235 

49249 
48245 
49258 

49255 
46275 
48276 



PP*»"> £11- SYSTEM- AARTE <" 
DO WHILE IXC-IY 

BET XT*i IF XT*-CHR*I27> THEN EXIT 
EPX" 1 X 

GOBUB 339991 GOSUB 35919 

PRINT94, RIGHT* (- "+STR* fSPX! ,3) "(CTRL>I)"NA 
*(SPX,9)-(CTRI_+I)"NA*(BPX,I>st IF NA*(5PX,2 
l<>" THEM PR1NTK4,-. "NA* <SPX,2) -, 
PRINT«4,"{CTRL+I)"NA*(5PX,3>"{CTRL+I>"M IF 
NAX<SPX,6)>6 THEN PR I NT»4 , US I NO "IMI»"iNAX( 

;.■'■■■'.,--» ; 

PRINT94,-(CTRL*l>"n IF KAX< SPX , 1 ) >9 THEN P 
RINT*4, USING "IMMI4" t NAX(BPX,l> J 
PRINT»4| PRINT«5,CHR*(27)"-l"tl PR1NT»4,LEF 
T*(SP*+GP*,B7) i PRINT#S,CHR*(27>"-8"ii PRIN 

TM 

PRINT#3,CHR*CZ7> " I [CTRL+AJ" CHR*(27> "DCCTRL 

*D)94i-H- CHR*(6>!CHR*(27>"'" CHR* ( 4 +PNX I I 

PR I NT#4 , ■ JSD . (CTRL+I ) SEGNER (C TRL ■► 1 1 ( INGO /B-0 

1 (CTRL+1JEA. (CTRl_*]>BRGEBNIS{CTRL+I>,eDNKTE" 

PRINTH5,CHR*(27>" !" CHR*<1+PHX> i I PRINT** 

IJ-IXl GOSUB 238(26 

FOR 1L-1 TO RDX 

GD5UB 23999 

PRINT** , RIGHT* <STR* 1 ID , 21 ■■ (CTRL*I >" [ 

IF BOX- 9 THEN XX*="ZURTO<GEZOGEN" i GOTO 396 

49 

IF SOX-233 THEN XX*-"SPIELFREI"| GOTO 39946 

IF SOX-234 THEN XX*-"N0CH NICHT GEPAART": G 

OTD 39648 

XX*-R1SHT*(" "-i-BTR*[SDX> ,3)+" (2BPACE>"+LEFT 

*CNA*(BQ7.,6)->"C4SPACe>",4)+NA*(S0X,l)t IF N 

A*(SQX»2><>" M THEN XX*-XX*+", " *NA* < SOX , 2 1 

XX*«LEFT*(XXS+SP*,3e>+" "+LEFT* (NA*(S0X,3> , 

31 

PRINT»4,XX*lt IF SOX-6 OR 50X>254 THEN PRIN 

T**,"(CTRL+I) (CTRL*I>"[i GOTO 39643 

PRINT#4," (CTRL-MI" n IF NAX(S0X,6>>6 THEN P 

RINT94, USING "##*"( NAX (BOX, 8) [ 

PRINT»*,"(CTRLM)"i: IF NAX(S0X,I}}» THEN P 

RINTtt*, USING " #«## " 1 NAX C BOX * 1 > ; 

PRINT** , " (CTRL+ I ) "FA* (FAX! " (CTRL+I }"EG* (EGX 

) "(CTRL+I>";i PRINT**, USING "••■•"JP6; 

IF H8>8 THEN PRINT**,- ♦ " RIGHT* (STR*(H91 ,2 

>"J!"t 

PR1NT44; NEXT IL 

PRINT*5,"(CTRL*LJ"n 1X-IXM: LOOP 

CLOSE 41 CLOSE 5l RETURN 

CXX-91 M9*»"SPIE1_ERVERWALTUNG-' 1 Ml*-""! DRX 

-9! SOSUS 16885 

CHAR ,*,3,CL* 

PRINT "(RVSONJ IR.nilTEL) »MME, ypRNAHE (IB 

SPACE > KSERE I N t BAT I ON /STBDT 1 (3SP ACE ITIAHaTE 

.La(2BPACE)" 

CHAR 1 ,8. 22 . ■ T W4. T *V*r-»VVV^4-»-H-«-n-*VW4. ' >i|Mi 

v+v%v*^-.-.-.>-*^rivv + vvvv+v+-+++iM.+v , +i , i , + , +'*VT+ : i 1 *-' 

'4TV4VW" 

HNX-5: IF HSX>9 THEN GOSUB 48134 

GOTO 41991 

IF SPX>6 THEN PRINT " " RIGHT* <" [2SPAC£)"+S 

TR*(SPX),3) J 

PRINT TAB<5>NA*(5PX,9I I TAG (9INA* (SP7..I > I 

IF NA#<BPX,2K>"" THEN PRINT «, "NA*<SPX,2> 

I 

PRINT TAB^SINA^SPX.Sl! 

IF NAX(SPX,*)>* THEN PRINT TAB 1 79) RIBHT*'!" 

(2BPACE>"*STR*CNAX(SFX,9)) ,3) j 

IF NAX(SPX,1>>9 THEN PRINT TAB<73) RIGHT*1" 

(3SPACE>"+STR*(NAX<SPX,11 >,4>) 

IF CAX-1 THEN CRX-91 RETURN 

BANK 15: S¥S 28481 RETURN 

CHAR ,6,23,CL*l PRINT " SDLL fclSTE SORTIERT 

fiUSGEGEBEN NERDEN7 "JN*: GET KEY XT*t IF K 
T*-CHR*(27I THEN RETURN 
IF XT*<>"J" THEN 49134 
GOSUB 331991 IF CRX-1 THEN RETURN 
GOTO 49133 

SRX(*)-HSX: FOR IJ-1 TO MSX: SRX(IJ>-IJ: NE 
XT IJ 

HI*-" / iPlELERLISTE-i GOSUB 19911 
IJ-l 

WINDOW 6,5,79,29,11 IK-IJ 
DO WHILE IJ<-SRXf9» 
BPX-SRXIIJ1: GOSUB 48161: PRINT 
IF IJ-IK-M4 THEN EXIT 
IJ-IJ+l: LOOP : XJ-IK+14 
[WIX-PEEK (23311 PRINT " C2HWE)" 
CHAR ,9,23,CL* 

PRINT " OWBON) D (RVOFFJ - USTE flUF aJUCK 
ER"t PRINT BX*l 

PRINT "{2HOMEl"l CHAR I T 8,21,CR*: BET KEY X 
T* 

IF XT*- H D" THEN GOBUB 359911 BOTO 46175 
IF XT*--P- AND IJ<SRX(9> THEN IJ=IJ+li BOTD 

49145 
IF XT*»"&" AND 1K-I5>6 THEN IJ-IK-lSl GOTO 
46145 

IF XT*-" (HOME)" THEN U-li GDTD 46145 
IF XT*-"CCLR)" AND SRX(8)>14 THEN IJ-SRX(8) 
-14: GOTO 48145 

IF KT*f-*+* AHD IJ<SRX16) THEN 10 = 1 J+t : IK-I 
K+it SPX-SRX(IJ): UINDOU 6,5,79,291 CHAR ,6 
, 15,CR»: GOSUB 48161: PRINT % GOTO 461B5 
IF XT*="-" AND IK>1 THEN 1K-IK-1: U-lJ-1: 
BPX.SRX<IKSr WINDOW 6,5,79,26: CHAR ,6,8,CH 
R*I271+"I "1 GOSUB 49161: GOTO 49183 
IF INBTR("+-P£"»XT*>>9 THEN 49183 
RETURN 

Ml*-' / SPIELER SUCHEN": GDSUB 19911 
NA*t9,6)-""» NA*^,!)."": NA* 19,21 - M *t NA* C 
6,3)-"": NAX (8, 6) -9a MAX (9, 11-6 
CHAR ,9,23,CL*I PRINT " SEBEH SJE DIE »>TEW 

DES BEBUCHTEN SPIELERS EIN!" 
GOSUB 46295: IF CRX-1 THEN RETURN 
CHAR ,9,23,CL*l XB*-NA*(6,6> <-NA* t6, 1 >*Nfl*(8 
,21 +NA* 19,3) 
IJ»1: GPX-1 
DO WHILE BPX<-MSX 

YB*-*"1 FOR IK-9 TO 3| YB*«YB*+LEFT*(NA*(SP 
X,IK) ,LEN(NA*16, 1KD11 NEXT IK 
IF XB*-YB# THEN SRX(IJ).SPXi 1J-IJ+I 
BPX=GPX+1: LOOP 
IF IJ-1 THEN RETURN 



<3AJ> 
<69Q> 
<VMD? 
<SDR> 
<QRP> 



<91N> 
<2VU) 



<7I6> 
<3IK> 
<3VP> 
<I2C> 
<U2P> 
<KJ3> 

<NTF> 
<TOP> 

<B6P> 



<CJK> 

■TOLA J 

<KDB> 

<L74> 

<P9E> 

<BA9> 

<HUM> 
<9B5> 
<F2K> 
<DUQ> 

<9AT> 
<193> 



<LV2> 
<205> 
<DH7> 
<FI7> 

<FA6> 

<:KPR> 
<1B9> 

<5E3J 
<DJJ> 

<365> 

<GflL> 
«SDD> 
<BJ4> 
C2LJ> 



<FET> 




<H06J 




<TCU> 


16568 


<HL1> 


46595 


<RAS> 






46518 


<DOC> 


46515 


<BPH> 






49S29 


<0K2> 


46525 


<JC9> 


49539 


<BDF1 


49531 


■409. 


48532 




49535 


■ 1 TH 


46548 


CVIO 


46545 


<B4F> 




<TSP> 




<L6V1> 


49539 


•!7EL> 




<PNL> 




<9FT> 


49555 


<CB2> 


46579 


<JH7> 


49575 


<856> 


46586 


<4F3> 


465B5 


<NPI> 


49599 


<BRM> 






49393 


<6N3> 


46696 




48483 


<F6V> 


46619 


<9TC> 


49615 




49629 


<RV4> 


48425 


CBFM> 


49639 


<7TJ> 


49635 



49277 SRXT61-IJ-1: BOTO 49146 

49289 RETURN 

49295 CHAR l,8,21,CR*r SPX-61 BOSLIB 49191 

46366 EYX-21: CRX-1 

48385 EXX-Si ELX-3: E*<6)-NA* (9,9) 1 E*(2I-"": E*( 

3)-"iJ£i£ir 
46318 GOSUB 3861 

48315 IF XT*-CHR*(271 THEN RETURN 
49326 NA*i8,6)-E*(ll 
48325 EXX-9: ELX-35: E* (2)-" tSYNTH. : 14S>"| E*(31- 

BS**IB*+"," 
46336 E*{6)-NA*(6 t l)i IF NA*<9,2)<>"' , THEN E*(6> = 

E*(9>+ ,> , ,, +NA*(8,21 
49335 GOSUB 3681 

49349 IF XT*-CHR*(27) THEN RETURN 
49343 IF XT*-"<SYNTH. «145)" THEN 49368 
46356 XTX-INBTR(E*(1>V, ",",") 
48355 NA*(6, 1 1-LEFT*(E*< 1> ,XTX-1) 
49369 NA*ie,21-WID*<E*!l) ,XTX+I,35) 
49365 IF NA*(9,21-"" THEN 493B9 
46376 IF ABC(NA*(8,21 K *32 OR INSTR(NA*(9,2I ,","> 

>9 THEN GOSUB 2966: GOTO 49339 
49373 NA*<6,2>-MIEt*(NA* (6,2) ,2,331 
46308 EXX-431 ELX»Z4i E*<3>-BS*-i-7R*: E*(6)-Nft«(9, 

3>i E* (2) -"(SYNTH. 11451" 
49383 GOSUB 3681 

49396 IF XT*-CHR*(27) THEN RETURN 
49395 IF XT*-"<SYNTH. : 145}" THEN 49325 
49489 NA*C9,31-E*(I> 
49495 CRX-91 RETURN 
46428 EYX-2[t CRX-1 
46425 CHAR ,8,23,CL*: EXX-791 ELX-3: E*(2)-"tSYNT 

H,l 145}" a E*(3)-7A* 
48439 E*(ei-""s IF NAX(9,6)>6 THEN E*I9)-MID* (GTR 

*(NAI(9,9>) ,2,3) 
46433 GOSUB 3691: IF XT*-CHR*(27) THEN RETURN 
49449 IF XT*-" (SYNTH. H451" THEN CRX-21 RETURN 
4944S NflX(8,9)-UAL(E*(l)l: CXX-9 
49459 EXX-TSl ELX-41 CHAR ,6,23,CL* 
46451 PRINT • (RVSQNJ I (RVOFF) - EIN-/AUSSCHW.TE 

N INFORMELLE 5^S-IAWL" 
49432 IF CXX-1 THEN PRINT " INFORMELLE tl^-iAHL ( 

WIRD IN lliafl UHGERECHNET) '"1 
46435 E*(9l-""i E*(2) -■ I (SYNTH. : 1451": IF NAXI9.1 

)J9 THEN E*(9I-HID*(STR*(NAX(9, 111 ,2,41 
46469 SDSUB 3891: IF XT*-CHR*(27) THEN RETURN 
46463 IF XT*-"(SYNTH. 1 1451" THEN 49423 
46466 IF XT*.- I" THEN CXX-ABS ( CX5t- 1 ) : BOTD 49439 
49476 NAX(9,1)-VAL(E*<1))1 IF CXX-1 THEN NAX(9,6) 

•INT(<2B46-NAX(9, 1)+.5J/H)i NAX(9,l)-6: NAX 
( 6, 8) -NAX (9,9) »SGN (GGN (NAX (9, 9) ) +1 1 
46473 CRX-8: CHAR ,6,23,CL*I RETURN 
46499 CHAR ,8,21,CR*i Ml*-" / SPIELER LEECHEN"! B 

OSUB 1991 1 
46495 CHAR ,9.23,CL«: PRINT " SEBEN &IE DIE »»IEL 

ERNUMHER DEB ZU LeBCHENDEN 5PIELERS EIN!"t 

PRINT " (RVSON) A (RVOFF 1 - AU-E APIELER Lt 

ECHEN ! " 1 

EYX-2U EXX-lt E*(*)-""i e*«2)-"A-l E*<3)-X 

A* 

GOSUB 3691: IF XT*-"A" THEN SPX-256: SOTO 4 

9525 

IF XT*-CHR*(271 THEN RETURN 

SPX-UBL(E*<l>lj IF SPX-9 OR BPX>MSX THEN BU 

SUB 29661 BOTD 49395 

CHAR ,9,21,CR*: GOSUB 46161 

CHAR ,9,23,CL*i PRINT " SPIELER LtBCHEN? ": 

JN* 

BET KEY XT*: IF XT*<>"J" THEN 49498 

IF SPX-254 THEN MSX-91 GOTO 46535 

RSX-MBX-1 

IF HSX-9 THEN WINDOW 6,3,79,29,11 PRINT "(2 

HOME}": RETURN 

FDR IJ-SPX TO MSX 

NA*(IJ 1 9)-NA*(Ij*l,61t NA*<IJ,1)^)A*(IJ*1,1 

)t NA*(IJ,2)-Nfl*(IJ+l,2) 1 NA*(IJ,3)=NB*(IJ* 

1,31: NAX 1 1 J, 9) -NAX CIJ+ 1,91-. NAX ( I J, 1 1 -NAX ( 

IJ+1,11 

NEXT IJ: BRX<8)-HSXl FOR IJ.l TO MSXi SRXIJ 

J)-IJi NEXT IJ: IF BPX-7>6 THEN IJ-SPX-7: E 

LGE IJ=1 

BOSUB 491431 GOTO 46496 

Ml*«" / JPIELERNEUEINBABE*! BOSUB 18911 

CHAR ,6,23,CL* 

IJ-MSX1-1 

DO 

NA*(6,9)-""i NA*(6,1)-""1 NA*(8,2)-""i NA*( 

9,3)-"" 

NAX (6, 8) -9: NAX (9, I ) -9 

GdBUB 49295 

IF CRX-1 THEN EXIT 

GOSUB 46426 

IF CRX-2 THEN GOSUB 46386: SOTO 49695 

IF CRX-1 THEN EXIT 

NR*!IJ,9>-NA*(6,8)i NA* ( 1 J , 1 )«NA» 19, 1) : NA* 

<IJ,2)-NA*(6,2)i NA*(IJ,3)-NA*(8,3) 

NAX I IJ , 8) -NAX (9, 9) 1 NAX ( IJ , 1 ) -NAX 19, 1 ) 

WINDOW 9,3,79,29: CHAR ,6, (HHX-5) ,CR*l SPX" 

IJ: GOBUB 46191: PRINT : HKX-PEEK 1 235 ) 1 PR1 

NT "(2HOME)" 
49649 IJ-1J-H 
49445 LOOP UNTIL I J -■134 
48646 IF TUX-2 THEN SMX-MSX 
-'-.'^ HSX-IJ-1 

46451 IF TU7.-2 AND MSX>SMX THEN GOSUB 43991 
46455 RETURN 
41861 Ml*." / ipIELERDATEN KORR 1 B I EREN " 1 BOSUB 19 

911 
41616 CHAR ,8,23,CL* 
41826 PRINT ■ (RVSON) K (RV0FF> - iOMHANDO ( 2EPACE 

>»(2SPACE,RVSDN) T (RVOFF , 2BPAEE ) - IURNIERU 

ERWALTUNGC2SPACE1-(2BPACE, RVSON) t (RVOFF) 

- EUNKTIDNBTASTEN BELEGEN" 
41621 PRINT " (RVSON) S (RVDFF) - ABBPE I CHERN " t 
41636 CHAR ,9,21, Eft* 

41949 EYX-21: EXX-1: E*I9)-""s ELX-3 
41656 E*(31-""i IF MSX?9 THEN E*(3)-ZA* 
41666 E*(2)-"K£S"i IF MSX>fRX-l THEN E*<2>-"KLTfi" 
41679 GOBUB 3991t IF XT*-cm*<27l THEN 44651 
416G9 IF XT*-*K" THEN BOSUB 429911 GOTO 41681 
41983 IF XT*--£" THEN GOBUB 33661: BOTO 49991 

Listing 1. »CH-VERWALTUNG« (Fortsetzung) 



(UHF> 
<14T> 

CHEA> 
<HPC> 

■1QS 
<1B4> 
<U10> 
<TNB> 

<J«L> 

■ A64- 

C136> 

<VT0> 

(H90> 

<VOA> 

C2V3>- 

C909> 

<PF7> 

<U4U> 

:jjj ■ 

<D4B> 
(4J6> 
<SL0> 
<7CC> 
(D9J> 
<OHK> 
<6TCJ 

<HLJ> 

CNTT> 
<UE4> 
<SGE> 
<TEBJ 
<"FEP> 



<CN9> 

■ Iifih 
<PUO> 
<5S6> 
<J5R> 



<V3H> 
<KS9> 



<IGC> 
<3BL> 

<cati> 

<TLD> 

<T65> 
<8A1=. 

<2V9> 

<9NDJ 
<8JC> 
<7V9> 

(sm> 

<44P> 



<KUJ> 
(2HE> 
<MM6y 
<SJN> 
<F8C> 
<HA1> 

<2MV> 
<AD3> 
<273> 

■■NNI) 

<2B6> 
<V44> 
<7NS> 

<3E7> 

465U> 



<KU4> 
<TNE> 
<TTC> 
<HUE» 
<9KS> 
<hCA> 
<AB7> 

<USS> 

<BRM) 



<oic> 

■ UN". 
<RB0> 

■ J IE - 
<S7U> 
<IDU> 
<3C9> 
<D91> 
<2D»> 
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41999 IF XT*--T" THEN 44091 

41*95 IF XT*-"3" THEN GOSUB Sl*31t GOTO 41091 

41196 IJ-VAL<6*(1))I IF IJWSX THEN GOBUB 2996t B 

□TO 41970 
41191 IF IJ-0 THEN BOSUB 41399: IF CRX-1 THEN 419 

10 
41120 SFX-IJi NA*(0,0>-NA*(BPX,9>: NA* ( 0, 1 ) -NA* (S 

PX,1>: NA*(8,2J-NA*I5PX,Z) : NA* (8,3)-NA*<SP 

X,3> 
41138 NAX16,9)-NAX<SPX,0>: NAX{9, 1>-NAX(SPX.1I 
411*9 BOGUS 49295 
41159 IF Cm-I THEM 41 81 6 
41168 GOSUB 4842* 

41179 IF CRX-2 THEM EOBUB 48368a DOTS 41150 
411B8 IF CR7.-1 THEN 41918 

41198 SF7.-IJ: NA* < 9PX , 01 -MA* 1 8, 8) ■ NB*(SPX, 1 >-NA* 
(8,1)! NA*<SPX,2J-NA*(9,2) 1 NA* (SPX,3)=NA* ( 

8,3! 
41299 NAX(SPX.0)«PIAX19,0) I NAXISPX. 1 >-NA7.(9,l > 

41291 IJ-5: DO WHILE IJ<29 

41292 CX7.-6: OPEN 3,3t CHAR ,1,<JJ); YT*--": FOR 
IK-1 TD 3s GET «3.XTJft VT*-YT*+XT*i NEXT IK 
I CLOSE 3 

41283 IF VflHYT*)-Spy. THEN CXX-li CHAR ,9.(IJ),CR 

*: BOSUB 401811 EXIT 
41294 IJ-IJ+li LOOP 

41285 IF CXX-1 THEN CXX-9: BOTD 41019 
41218 UIND0H 6,5,79,291 CHAR ,9, 1W1X-5) ,CR*: GOSU 

B 49101: PRINT i PPrtX-PEEK 1 233 ) i PRINT ■■ CZHD 

HE*" 
41229 BOTD 41819 
41389 CHAR ,9,23,CL*! CRX-9 

41391 EYX-21: EXX-91 ELX-351 E*(9!-""i E*t31-ZA*» 
BS*+","l E*IZ)-"" 

41392 GOSUB 3991l IF XT*-CHR*(27> THEN CRSt-II RET 
URN 

41383 U-ll DO WHILE IJOHSX 

41394 IF E*(i)-LEFT*(NA*(IJ,1)+", "+NA*(1J ,21 ,LEN 

IEJI1III THEN EXIT 
41385 IJ-IJ+1: LOOP 

41396 IF IJ>nsx THEN SOSUB 2996! GOTO 41382 
41387 RETURN 
42891 CHAR ,9,23,CL* 

42019 PRINT ■ (RVSDN) L tRVOFF) - SPIELERLI5TE(2S 
PACE)»(2SPACE,RVSON» F (RVOFF1 - SPIELER BU 
CHEN {2SPAC£>»(2BP ACE, RVSON} i. (RVDFF) - Sf>l 
ELER LBBCHEN" 
42828 PRINT " (RVSONI N (RVOFF) - SEUE 1 NGAB6 (2SPA 
CE}«(2SPACE, RVSDN) Jl (RVOFF) - SATE I VBERNAH 
ME<2SPACE>»t2BPACE,RVSON> 9 (RVOFF , 2SPACE >.£ 
PIELERLIETE BORTIEREN" : 
42939 CHAR ,9,21,CR* 
42849 OET KEY XT* 
42844 XTX»IN9TR<-LFNi£»",XT*>: IF XTX-9 THEM RETU 

RN 
42045 IF XTX-2 AND HSX-23* THEN BOSUB 2996: SOTO 

42949 
42846 IF TUX-2 AND XTX>3 THEN BOSUB 29861 GOTO 42 

849 
42947 If HBX-8 AND XT7.03 AND XiTKJi THEN GOSUB 2 

996 1 GOTO 42949 
4294 E IF HSX>9 AND XTX-6 THEN GOSUB 2896: GOTO 42 

948 
42958 ON XT! GOTO 40138,48228,48579,49499,43081,4 

2199 
42189 CHAR ,9,23, CL*: PRINT " SATE I NAME : "l EXX-13 
: EYX-231 ELX-lSl E*(8>-"": E*<2>-""1 E*I31 
= '■ ABCDEFGHIJKLHNOPDRSTUVWXYZ.*-/'"*ZA* 
42185 GDSUB 3891 ! IF XT*-CHR*(27> THEN 42991 
42197 VD*-"6.-+LEFT*<e*(l)-+---,l5) 
42119 DOPEN «2, (YD*> 
42115 IF DS-6 THEN 42123 
42129 BOSUB 4981. IF CR7.-0 THEN 42119: ELSE GOTO 

42199 
42125 INPUT»2,ftSX: IF MSX-9 THEN 42135 
42139 FOR II-l TO HBX? FOR IJ-9 TO 3l INPUT*I2,YD* 
: NA*(lI,IJ)-LEFT*(YD*,LEN(YD*)~l)l NEXT IJ 
1 INPUT»2,NAX(I] ,911 ]NPUT*2,NAX(1I , 11 : NEX 
T II 
42135 IF DS?9 THEM 42128 
42148 DCLOSE »2l GOTO 48915 

43991 CHAR ,9,23, CL*t PRINT " SPIELERLIBTE NIRD S 
ORTIERT!" 

43992 BANK 0: POKE DEC (" 1499-1 ,MBX 
43093 FDR IJ-1 TO USX 

43819 FOR IK-9 TO I 

43828 XX7.-NAXdJ.IKli IF IK-0 AND XXX-6 THEN XXX- 

999 
43921 IF IK-1 AND XXZ-9 AND NAX 1 1 J, 9X1 39 THEN XX 

X-SSN(NAXCIJ,B>)i-C2B39-B«NAX<IJ,01> 
43839 XYX-INT(XXX/236): XZ7.-XXX-XYT.4236 
43949 POKE E€C(-CF89">-IK»312*IJ,XZ7.l POKE DECCC 

E80'1-IK»512+IJ,XYX 
43959 NEXT IK 
43969 XB*-NA*(lJ,l>tCHR*l0)*WA*CIJ,2)+CHR*ll3>: F 

OR IL-1 TO LEN(XBf) 
43979 POKE DEC I "D898") +< 1J-1 >»37*1L-1 ,ABC(HID*<XB 

*,IL,1! 1 
439B9 NEXT 1L 
43999 NEXT [J 
43189 SYS 5376 
43185 FDR IJ-1 TO HSX: SR7. ( I J ) -PEEK < DEC l H 1499 ,, l +1 

J)l NEXT 10 
43119 OOBUS 51131! IF CRX-9 THEN 49134! ELBE RETU 

RN 

44901 IF TUX-2 THEN CXX-1: GOTO 44851 
44010 Ml*-* >> TjURNIERVERWALTUNE J ': GDSUB 19911 
44928 CHAR ,9,23,CL( 
44639 PRINT - SIND SIE SICHER7 "JN»" - J1IE aPIELE 

RL15TE KANN NUR BEDINGT VERTNDERT": PRINT " 
UERDEN ! " t 
44949 BET KEY XT*I IF XT*<>"J" THEN 41991 
44841 CHAR ,8,23,CL*i PRINT " SDU_ SPIELERLIBTE S 

ORTIERT HERDEN ? "JM* 
44942 GET KEY XT*I IF XT*-CHR*<27! THEM 41991 

44843 IF XT*=- H J" THEM 44846 

44844 GDSUB 519311 IF CRX^l THEN 41891 

44845 GOTO 44859 

44946 QOSUB *399l« IF CRX»1 THEN 41091 
44959 BANK 1-. SYS LEXi SYS LTXl POKE DECC1999"1, 
I : POKE DEC I u 1 891 "1,1: SOTO 28981 



<B0L> 
<PRO> 
<UFO> 



<2HV> 
<T9V> 
<RPI> 



t328> 
■:5QP> 

<A92> 
<JRD> 
<4T6> 
<tlV7> 
<4NN> 



<01C> 
<03M> 

■, K7 1 - 

<3U2> 
<ID4> 
<3BB> 
<3FK> 



■ 01 IB 
<97B> 

CCBN> 
<15HJ 
<MVS> 
<PLB> 
<J8FJ 



■;IK.6> 






44852 


<7C«_> 


44966 




44879 


<T3V> 


45981 




45985 




45616 


<09B> 


45929 


<RHU> 


45838 


<C73> 


4504O 


<4E0> 


45959 


<FB6> 




<DIE> 


45960 


<76N> 


45976 




59991 




59985 


<mj> 


59618 


<86L» 




<0I1> 





56931 



59932 
59933 



58841 
39646 



50956 
30O60 



39979 

59871 
59675 





399B3 




S8990 


<OHP> 
<R7P> 
<FDS> 


58169 
59118 
51861 
51692 


<V5K> 


31093 
51004 


<3PJ> 


31985 


<HBH> 




<9LT> 


51911 
51812 


<BBO> 


51813 


<CFU> 


51914 

51915 


<6f»> 
<7B3> 
<ll-9> 


51931 
51932 
51933 


<IFR> 
<RVS> 


51934 


<7TN> 
<FB6> 


51635 
51636 




51937 


<6NA> 
<OJW> 


5163a 
51131 


<QNR> 


52981 


<619> 
<DCCS 
<HF4> 


52902 
32993 
52984 


■<BI3> 


52093 


<9FB> 


52996 


<46K> 




<TKB> 


52607 




S299B 


<BIF> 


52811 


<OTC> 


52812 



CHAR ,e,23,CL*I PRINT DL*1 JKtl GET KEY XT*: 

IF XT*-"N- THEN 44079 <A«J> 

IF XT*-CHR*(27> THEN CXX-9! GOTO 41691 <6W> 

GOSUB 516311 IF CRX»1 THEN 41991 <PL6> 

ON CKX BOTD 29881! GOTO 63991 <2BF> 

BANK 1: RDX»1 <D16> 

DO <™p> 

FOR IJ=STIX*1 TO HSX <TIK> 

POKE DEC!"1999")*IJ»16+RDX,8 <B9B> 

POKE DEC<"2989")+1J*16+RDX,16 <L9A> 

NEXT IJ «BC> 

IF PEEK<DEC(-1991")*RDX)-8 DR RDX-13 THEN E 
XIT <E6C> 

RDX-RDXH: LOOP <SD9> 

RETURN <3H7> 

CHAR ,9,23,0L* <4NN> 

PRINT " SEBEN SJE DEN »4TEINAHEN EINl " <ZBT> 

EXX-311 ELX-13: EYX-23: E*t91"FIt: E*l21-~" 
: E* 1 3 ) *Z A** " -+ / . ABCDEFGH 1 JKLHNOPORTBUVW X Y Z 

"1 IF CAX-1 THEN E*t3l-E*(3}*-?" CB9K> 

BOSUB 3991! IF XT*-CHR*1271 THEN CRX-1I GOT 
O 56917: ELSE CRX=0 <7TD> 

FI*-E*I1) <BdW> 

CHAR ,6,23, CL*: RETURN <BSL> 

YD«-"7"+FI*i DOPEN »2,(YD*ll IF DS-62 THEN 
CRX-9! DOLOSE «2: RETURN <9Q9> 

DCLOSE «2 <69S> 

GOSUB 4891: IF CRX-0 THEN 589311 ELBE RETUR 
N <9TJJ 

CHAR ,0,23,CL* <4JN> 

PRINT " SEBEN 41 E DEN TURN IERNAHEN UND OBF. 

DIE ZU SPIELEND6 5UNDENIAHL EIN: " <BRD> 

PRINT " [RUSON1HAME: CRWOFF > ■ ] TAB 1 691 - tRWSON 
1M5.1 <RVOFF>"i <P9C> 

EYX-24 • 4EU - 

EXX-7i ELX-661 E*(91-TU*l E*f21-"": E*!31-B 
S*+ZA**CHFt*(1661 <EID> 

BOSUB 39911 IF XT**CHR*<271 THEN ORX-lt GOT 
56116 <F39> 

TU*-E*(11: IF TU*»-' THEN 59963 <7BQ> 

IF TUX-2 THEN 39196 <«20> 

EX7.= 74: ELX-21 E*I21-' IBYNTH. : 145}"! E*<3I- 
,'fii <H3C> 

E*<9)-""1 IF MRX>8 THEN E* ( 9) -M I D* ( ETR* < HRX 
1,2,21 <59L> 

BDSUB 39911 IF XT*- * CSYNTH . 1 1 45 1 " THEN 5096 
8 <AUH> 

IF XT*=CHR*C271 THEN CRX-11 GOTO 50118 <6BT> 

HRX-WAL<E*!111 ! IF HRX<3 OR MRX>1S THEN 596 
B0 <R6P> 

CRX=9 <H3W> 

CHAR ,9,23,CL*: RETURN <DSD> 

GOSUB 4131 1 IF CRX-1 THEN RETURN <A7B? 

YD*-"i"+FI»l SCRATCH(YD*1 <3H*> 

DOPEN #2,!YD*l,Wl IF DS-0 THEN 51995 <LKE> 

GOSUB 4991: IF CRX-9 THEN 51691: ELSE RETUR 
N <AP3> 

PRINT*2.FI*: PRINT*2,TU*1 PRINT»2,TUX! PSIN 
T#2,HRy.i IF DS>6 THEN 31 B«4t ELSE DCLOSE #2 
: CRX-9: RETURN <E7H> 

GOSUB 41311 IF CRX-1 THEN RETURN <B7D> 

YD*-"I' i +FI*l SCRATCH (YD*) <C60> 

BSAVEtYB*) ON Bl ,P (DEC {"1998") > TO P (DEC i "3 
986-11 <UF7> 

IF DS-0 THEN CRX=-8: RETURN <NPF> 

GOSUB 49911 IF CRX=0 THEN GOTO 51911: ELSE 
RETURN <SI5> 

FOR II-l TD HBX: SRX( Ill-Ill MEXT II <7NV5 

GOSUB 4131: IF CRX-I THEN RETURN <F7B? 

YD*-"A H +FI*: BCRATOKYD*) : BOPEN #2, (YD*1 ,H 
: IF DB-8 THEN 51935 <D47> 

GOSUB 4961: IF CRX-9 THEN 5193ZI ELBE RETUR 
N <NQ3> 

PRINT#2,BBXl IF NBX-8 THEN 51937 <9N1> 

FOR 11-1 TO MSXl FOR 13-8 TO 3: PR1NT»2.MA* 
(SRX1II1 ,IJ)"*-"1 NEXT IJ: PRINT#2,NAX(BRX(I 
11,0)1 PR1NT#Z,NAX(SRX(II) ,l!l NEXT II C21D> 

IF DS>6 THEN 51034 <R7P> 

DCLOSE »2l CRX-0! RETURN <2J3> 

GDSUB 51832: If CRX-1 THEN RETURN I ELSE BO 
TO 52901 <LNR> 

BOSUB 4131c IF CRX-1 THEN RETURN <I7B> 

YJ»-"£"*» r I*l DDPEN »2, (YD*1 <K98> 

IF DS-9 THEN 52995 COWOJ 

BOSUB 49011 IF CRX-9 THEN 52991: ELSE RETUR 
N -,IL3I 

INPUT#2,HSX: IF HEX- 9 THEN 52997 <DFE> 

FC« II-l TD NSXi FDR IJ-9 TO 3t INPUT«2,YD* 
i MA*<II,IJI-LEFT*(YD*,LEN(YD*l-l): NEXT IJ 
: INPUT»2,MA7.<II,0)i INPUT»2,MAX< 1 1 , 1) : NEX 
Til 

IF DS>6 THEN 32904 
DCLOSE »2: CRX-01 RETURN 
GOSUB 4131: IF CRX-1 THEN RETURN 
YD*-"X"*FI*: OPEN 2,B,2,YD**" ,P,R": IF DS-9 
THEN CLOSE 2l SOTO 5Z014 

52813 GOSUB 48811 IF CRX-8 THEN 32911: ELSE RETUR 

N 
32014 BLDAD<YD*) DN Bl ,P<DEC ("1969" ) ) 1 RETURN 
53991 HI*-" I QJNKTIONSTASTEN BELEBEN"! SOSUB 190 

53895 CHAR ,9,3,CL*i HINDDW 1,4,79,22,1: KEV I PR 

INT -<2HDHE1" 
53010 CHAR ,6,23! PRINT " JiEHKNSCHTE JELEGUNGl (< 

RUSONJ COH-E {RUDFF) - (RVSDN> EEC 0WDFF,2 

SPACE J »(2SPACE, RVSDN > CDH-R iRUDFFJ - (RUSO 

N) RTN (RVOFF))" 
53913 IJ-li EXX-71 ELX-30! EYX-24 
53820 DO 
53625 e*(3)-ZA*+BS**","*"£T": E*(2)-" tSYNTH. : 145, 

DOWN) "I E* (»)-"" 

33939 CHAR ,6,24,CR*: PRINT " tRVSDN) t" RIGHT* (S 
TR*(IJ),D" IRUOFF):"; 

33835 GOSUB 3091: IF XT*-CHR*(27) THEN EXIT 

33940 IF XT*-* (SYNTH. 1 143J" THEN IJ-IJ-li BOTD 33 
0B5 

53843 IF XT*-" 10OHN1" THEN 53966 
53959 DO 

Listing 1. »CH-VERWALTUNG« (Fortsetzung) 



<63A> 
<P3H> 
<QS3> 
<B7B> 

<5SV> 

<4NJ> 
?AFR> 

<G29> 

<94E> 



<OSG> 
<AV6> 
<NQR> 



<1B!> 
<L4«> 

<KHB> 
<AHR> 
<BH7> 
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HQGRAMM- 
SERVICE 

Direkt bestellen statt abtippen! 

Die aktuelle Diskette zum Heft: 



64'er Sonderheft 36: 
Programme fur a fie C 128-Besitzer 

Haushaltsbuch: die Finanzen im Griff 

Bringen Sie Ordnurrg in Ihre Finanzen mitdem Haus- 
haltsbuch fur den C 1 28, Durch die Kontrolle uber Ihre 
Ausgaben und gezieltes Wirtschaften, bleibt Ihnen 
sicher noch etwas uber fur »die kleinen Annehmlich- 
keiten des lebens«. 

Professionelle Schachturnier- 
verwaltung 

Yofi-Programm, das schon bei mancher Schacr 
meisterschaft, so zum Beispiel den 15. Dortmunder 
Schachtagen, eingesetzt wurde. Bis zu 254 Spieler 
konnen nach dem »Schweizer System « verwaltet 
werden. 

Power 128 S) 

Ein universelles Dtsketten-Toal, das den Eigenheiten 
der Floppy 1571 angepautist. Sie konnen das Direc- 
tory beliebig manipulteren, sortieren und sich als 
Zugabe eine Sicherheifskopie des Directorys anle- 
gen, die dem »Read Error 18 01« seine fatalen FoSgen 
nimmf. 



A ****^ 
^■^U*" 



N/ 



Spiel-SpaB total: Super-Vectors 

Vectors, dem Motorrad-Rennen aus dem Film »Tron« 
nachempfunden, erleben Sie hier in vollkommen 
neuen Grafik-Dimensionen. Die Bildschirmauflosung 
betragt nun 736x354 Punkte. Dies ist mehr als pro- 
fessionelle PCs mit einer Hercules-Grafikkarte dar- 
stellen konnen. Speziell fur den C128D im Blech- 
gehause mit 64 KByte Video-RAM und alle nach- 
traglich aufgerusteten CI 28 wurde dieses Spiel 
umgeschrieben. 

Weiterhin befinden sich auf der Diskette alle Pro- 
gramme, die im Inhaltsverzeichnis des 64 er- 
Sonderhefts 36 mit einem Diskettensymbol ge- 
kennzetchnet sind. 

5 , /4"-DiskettefurC64/C128 
Besteil-Nr. 15836 

Mflfl JbjfjrW (sFr 24,90 */6S 299^*) 

* Unverbindliche Preisempfehlung 

Wenn Sie Fragen zu diesen Progfammen oder zu anderen 
Angeboten aus unserem Programm-Service haben, rufen Sie 
uns an: 
Telefon (089) 46 13-640 





SDO^P 




^S$^ M arkt&Te chnik 

^"^ Zeitechriften ■ Bucher 

Software ■ Schulung 

Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-Stra6e 2, 8012 Haar bei Munchen, Telefon (089) 4613-0 





PROCRAMMSERVICE 




Sis suchen packende 
Spiels, hilfreiche Utilities 
und professionelle An- 
wendungen fur Ihren 
Computer? Sie wunschen 
sich gute Software zg 
vernunftigen Preisen? 
Hier finden Sis beides! 
Unser stetig wadhsendes 
Sortiment enthalt interes- 
sante Listing-Software 
fur a He gangigen 
Computertypen. Jeden 
Mo not erweitert sich 
unser aktuelles Angebot 
urn eine weitere interes- 
sgnte Programmsamm- 
lung fur jeweils einen 
Computertyp. 
Wenn Sie Frogen zu den 
Programmen in unserem 
Angebot hoben, rufen 
Sie uns an: 
Telefon (089)4613-640 

Bfli'ollungfln bifte nur gegen 
Vorouikatie an: Morkt&Teehnik 
Vorlag AG, Unternahmens- 
bersicfi Buchverlaq, Hans-Pinsfll- 
S1ro8s2, D-8013Hanr, 
Tnlrfon(0B9) 4613-0. 
Sdtwaiz: 

Moikt&Teclinit Verlriebs AG. 
Koll«(itrasDd 3, CH-6300 Zug. 
Tolefon (04 2)41 5656. 
OsTerroich: 

Mrcrocompui-iquo, E. Schrllor, 
Fasongosse 24, A- 1030 Wien, 
Wnfon |0222) 785661; 
BueherzvnTrum Maidling, 
Schdrib runner Strafe 261, 
A-U20Wrun, 
Melon (0222) 833196. 
Bene I !un gen am onderen 
Landern biha nur vchriftltch an: 
Markr&TiKhnik Vurlag AG, 
Ab1. Huchverrriob, Ham-Pinsel- 
SlroBe 2, D-8013 Haor, und 
gegen Bezahlung der Re^hnung 
!m voraui. 

Bitte verwenden Sie fur 
Ihre Bestellung und 
Uberweisung die abge- 
druckte Postgiro- 
Zahlkarte, oaer send en 
Sie uns einen 
Verrechnungs-Scheck mit 
Ihrer Bestellung. Sie 
erleichtern uns die 
Auftragsabwicklung, und 
dafiir berechnen wir 
Ihnen keine Versand- 
kosten. 




64'er Sonderheft 35: 
Assembler 

Hypra-Ass: Ein Makro-Assembter der Spitzenklasse. Er erloubt es, 
Maschinensproche-Progiamme ahnlich komfortobel wie in Bosfc zu 
schreiben. Durch Makros - dies sind immer wieder benotigle Unterpro- 
gromme, die Cibar ihren Namen aufgerufen werden - und bedingte 
Assemblienjng rst gro&e Obersichtlichkeit auch bei tangen Progiammen 
gewahrfeistet. Ein weiterer \rorteil 1st der Editor des Hypra-Ass, dossen far- 
motierende UST-Routine gro&tmoglicbe Gbersicht am Bildschirm gewahr- 
ieistet. Reass: Quasi die Umkehrung des HypraAss und mircdestens 
genauso wichlig ist dteser Reossembbr. Sie haberf beispiefeweise ein 
Maschinenprograrnm bekommen, das Ihnen gu* gefallt, bis eben auf 
einige Kleinigkeiten, die Sie ondem wolbn, Dom wie? Im Dickfchtdes rel- 
nen Moschinencodes Jindet sich niemand zurecht und ein Gueilcode ist 
nicht uomanden. Hier hiKt der Reass: Erjmachl aus dem Maschinenpro- 
grarnm wieder gut lesbanen, strukturiaMen Quellcode, der mit labels und 
Zeibnnummem versehen diiekt mffdem Hypra-Ass beaibeitet weiden 
kann. SMON: Dieser feishjngstehige Speichermonitor erbubt Ihnen, bis 
in die tiefsten Tiebn thfes Computers vorzudringen. Wit dem SMON 
lassen sich die PrazessorieCjister atueigen und beeinflussen, "Speicherbe- 
reiche anzeigen, wrgWchen, verschieben und. . . und... und. Integra 
Disossemblieren erffltibt dos Enlschlusseln von Maschinencode. Mit dem 
Miniassembler konnen Sie »mal ebem ein kteines Progjamm eingeben, 
Der Tnjmpt des SMON ist der ebenfalls inlegrierte Diskettenmonitor, der 
Ihnen zusatzlich vow.Kontrolle Ober die Fbppystation gjbt. Kura: Zwei 
komplette und leichtyerslandliche Kurse bringen soibst Assemblar- 
Einsteiger auf das Profi-Niyeau. Alle Progrnmm-Eoutinen, die in den rCjr- 
sen ausfuhrlich erlauterl ' werden, finden Sie ebenfalls auf dieser 
Progmmmservice-Diskette. Vvterhin befindeflsich ouf ds' Diskette a?e 
Programme, die im Inhattsverzeichns <des 64'er- Sanderhefts 35 mit einem 
Diskettensymbol gekennzeichnet s'md. Diskette fur C64/C 128 

Bestell-Nr. 15835 DM 19,90* sFr 17,- '/bS 199,-* 

64'er Sonderheft 34: ^w 
Aufbruch In die dritte Dimension! 

Fanlastische Perspektiven: Ein Giotikprogrdrnm mit ganz neuen 
leistungsmerkmabn. Das Konstruieren won pefspekffvischen Grafiken, wie 
etvira gonzen Straftenzugen, wird zum Veignugen. Efn Freezer fur harte 
Falle: Auf Knopfdruck wind der gesomte 5peicher des 064 auf Diskette 
gespeechert ur>d bei Bedorf wieder gebden. Sie arbeiten ander glebhen 
Stelle welter, als ware nichts geschehen. Sicherheitskopien von.kipierge- 
schiilzten Originabisketten antertigen, Spletetonde bet hartnackigen 
Gomes »einfrierBn« und bei Qedotf wieder laden - all das sind. Sltjrken 
des Freezers. 3D-Movie-Maker: Das Konstruieren von dreidimensionalen 
Korpem und deran flreBepde Bewegung am Bidschirm zeichnet dieses 
Programm ous. Nach def Eingabe der IfboWinaten fur den Korper und 
seine Bewegung erzewgen Sie bszinierende Triokfilme in 3D. Rsrfekte 
Simulatbn; Selten zuvor wurde so anschoulich gezeTgt,, wie eine Braun- 
sche Rohre - Urahri aller Bildschirme und Monitors - ItmkHonbrt. Per 
Tastendtuck steuejn Sie alb Farameter. \feranderungen des Bek Jroner5 " 
strahls werden ir^chtzeitam Bildschirm angezeigt. Kun^ndiskussionper- 
tekt: Ein Segen'tor alls, die sich rait Mathemolik und vor allem der Kurven- 
diskussion beschaffigen, Nicht nur, daft jede Funktion am Bildschirm 
anschaulich dargestelll wird. Auch die Ableitungen, Nullstellen etc. wer- 
den sobrf berechnetund ausgegeben. Digital ekifoch; Ideal furden'Ein- 
slieg indie Digital-Eleklronik fet dfeses Progiamm. Alle Grurtdfunkflonen, 
wie AND-, OR-, EXOR-Gotteretc. we«Jen am Bildschirm dargestellt und 
in ihren Funfclionen simuliert. \A4ttorhin befinden sich out der Dtetette alle 
Programme, die im Inholls^rzeichnis des 64'er- So nderh efts 34 mit einem 
Diskettensymbol gekennzeichnet sind. Diskette Fur C64/GI28 

Besteil-Nr. 15834 DM 29,90* sFr 24,90*/6S 299,-' 

64'er Sonderheft 33: 

Tips, TrieksS Tools zum C64/CJ28 

Trtelgenerator: Wenn Sie schon irnmer professionelle Programmvor- 
spdnne Fur ihre eigenen Programme verwenden wollten: Jetzt kSnnen Sie 
es. Ohne Progrommierkenntnisse erstelbn Sie bszinierende Vbrspanne mit 
Musik, bufschrift, eigenen Zeichens6tzen, Grafiken und... und... und. 
Hypra-Sprite: Ein Sprite-Editor der Spitzenktosse, der FunkKanen bietet, 
die auf diesem Gebiet noch nicht da woren. Mit einer komfortablen 
Benurzerobenteche lassen sich Sprites eaeugen, dehnen, slauchen, 
spiegein etc. Dos Erzeugen van Anrmationssequenzen und kleinen Rlmen 
gehSrt zu den leckerbrssen des Piogromms. Basic-Ksntnill-System: 
Machen Sie SchluS mit Syntonfehlem und unsouberem Pragrammieistil in 
Ihren Basic-Progrommen! Das Basic-Kontroll-System spurt die houfigsten 
Ptogiommfehler auf und hebt so dos Qualitatsniveau Ihrer Software. 
Alpha-Drammer: Der 064 wird zum Super-Schlagzeuger. 34 digitali- 
sierte Drum-Sounds stehen Ihnen sofort zur \ferFugung. W&itere konnen 
mrt derim Pragramm integrierten Digitizer- Softwa re von Ihnen erzeugt und 
bearbeitet werden. Stucke mit einer lange von uber 15 Minuten sind kein 
Problem. ApfWIsee: Eine ganz neue Variante der Fraklalprogromnrfe: Ent- 
decken Sie die bizarre Schonheif dreidimensionaler Fraktal-bndschdften, 
Vifeiterhin befinden sich auf der Diskette alle Programme, die im I nhahVer- 
zeichnis des 64W-Sonderhefts 33 mit einem Diskettensymbol gekenn- 
zeichnet sind. Diskette for C64/C128 
Bestell-Nt. 15833 DM 29,90 * sFr 24,90 '/6S 299,- * 

64'er Sonderheft 29: 

Programme, die jeder Cl28-Besitzer braucht 

Maitertexl 128: Die Super-Textveranbeitung fur den BO-Zeichen-Modus 
mit eingebouter Rtechtschreibpnufung. Komtert und Funkfionsvielfalt v«r- 
den bei diesem Progiamm groBgeschrieben. Alle Standardbefehle der 
madernen TexheranSeitung, ein integrierter Taschenrechner und sogar 



der Datenauslausch per DFU sind enthaltefi. Als besonderen leckerbissen 
bietet Mastertext f 28 eine Rechtschreibprufurvg, deren Warterbuch belie- 
big erweiterbar bt. Tippfehler qehoren damil der \fergangenheil an! Der 
Haxer: Endlich ein leistung^torkes Koprerpragramm fur den C 128. Kbpie- 
ren Sie nach Herzenslust, der Hexer wird auch Ihre Disketten bezoubern. 
Neben ganzen Disketten sind mtt diesem Programm ouch einzelne files 
zu kopreien. Der Bedienkomfort des Hexers ist kaum zu iibefbieten. 
Probleme mil den wrschiedenen \fersionen des C128 kennt det Hexer 
nicht, es ^ehen verschiedene Visrsbnen »fur alle Falfeo bereit. Besitzer des 

, »Dolphin-DOS« konnen sich uber eine \<ersion freuen, die mit diesem 
Floppy-Beschleunigerzusammenarbertet. Unidol Pro: Der Wunsch jedes 
emsthaften Computer^Anwenders ist eine blstijngslohioe und komforbbb 
DatiSverwaltung. Mit Unidat Pro wild dieser Wunsch Realitat. Eislellen 
und >«iiandem Sie eigene Datei-Masken. Hohe Zugriffsgeschwindigkeit 
auf Ihre Doten, die UnterstOtzung von Paftworlem zum Dolenschutz und 
eine Exporf4;unktion zeichnen diese Doteiverwaitung aus Die Suche 
nach einem DeHensalz wbtgt blitzschnell. Mancomania: Spiebn Sie 
geme Wirlschaffespielei? V\fenn Ihnen diese Spielgattung geffillt, istMon- 
comonia das Richtige for Sie. Das Spielzief ist olleidings ein wenig anders 
als bei den ubfehen V^rtTetem dieses Genres^ Verschleudem Sie Ihr Ver- 
mdgen, so schnell Sie kantoi. Vertreiben Sie sich die Zeif im Spiel-Casinq 

V.kaufen Sie Aktien an der Bete, und wetten Sie beim Autorennen. Denken 
Sie daran, dos Geld muft weg. Aber das isl leichter gesagt ab getan, als 
Millionar hat man's halt schwer! Diskette for C 128 

Ffestell-Nr. 15829 DM 29,90* sFr 24,90*/6S 299,-* 

64'er Sonderheft 28: 
Programme und Utilities zv GEOS 

Geoterm: Eischlieft^ffSe sich die Welt der Datenfemubertragung mit 
GEOS Geotemtfs't ein Terminalprogromm der Spitzenkbsse. Alle Funk- 
tionen sind wipion GEOS gewohnt mit Maus und Puli-down-Menus sleu- 
erbar. So lofcht war DFU noch nie. Sie wolbn Ihre Grafiken, die Sie im 
Hi-EddU Koalapointer-, Doodle-Format etc. vorliegen hoben, in Ggq- 
W-i.3 GeoPaint GeoFile verwendeol fefo PVoblam, da Bitmap-Conver- 
tof macht's moglich. Dos Programm arbeilet wollstandig unter GEOS und 
s'peichert Ihre Grafiken im Format von GEOS-Foto-Sciaps. Diese konnen 
mit nahezu jedem GEOS-Programm weiterverorbeitet werden. Arger mtt 
dem Druckw? Erstktassige Qualital erhalten Ihre Ausdnjcke unter GEOS 
mit den verschiedensten Dnjckertreibem for den Stor NL-iO, Epson- 
Drucker und Kompatible und den Qtizen 120D. Mit Superprint V2.0 laBt 
sich zudem nohezu jeder stomsche Drucker on GEOS onpassen. GEOS- 
Icon-Editor und GEOS-Ptattern-Editor: Zvvaj Programme, die in kerner 
GEOS-Progrommsommlung fehlen durferi;. Sie erlauben es, eigene Pro- 
gramme mit Icons (Piktogrammenl zv versebert. Mil dem Fbttem-Editor 
kann jeder seine eigenen Fufefmster for GeoPai^jiach Wunsch delinb- 
ren. Eine Seite der Diskette wind im GEOS-Format ausgeliefert. Alle 
GEOS-Programme sind ohne Zusatzajjfvyard unter GEOS sofort lauf- 
faFiig. Datec Ein Daterwerwaltungsprogtamm der "Superlative (kein 
GEOS-Progromml). F(eie Dateneingobe- urid Druckmasken (beispiels- 
weise for Etikerten) sind.definierbar. Umfaogreiche Such-'ynd Indexfonk- 
tionen sowie fiei definienSqjB "Zetqfiensotee (naturiich mit deulschen 
Umbuten) sind nur einige der Gtanzpunkte dieses Prograrflms. Diskette for 
C64/C128 >^ 

Bestell-Nr. 15828 DM 29,90* sFr 24,90 '/6S 299,-* 

64'er Sonderheft 27: 

Ein unglaubliches Multicolor-Mat- und 

-Zeiehenprogramm 

Amica-Paint: Keses Programm bietet Funktionen, die man vorhernurdem 
Amiga zugetrout halte: Amica-Paint dreht, kippt und spiegelt beliebige 
Bildausschnitte und berechnet selbstondig Farbverlaufe. Definition von 
Makros, eine eingebaute Diashow-Funklion und naffiriich komfortabte 
Maussteuenjng sind nur einige wenige Features dieses absolul sensatio- 
nellen Progromms. Sdireibmasdiine: Endocken Sie Ihrem Drucker lettem 
in einer Quaiitat und 5ch6nheit, die Sie ihm nicht zugetrout hatten. Viele 
Schriftarten befinden sich aus Platzgrunden nur ouf Diskette, Prc-Chonge: 
Darauf haben db Grafik-Fans schon lange gewartet: Ob HiRes Oder 
Mulicobr - Pic-Change mooht Schluft mit dem Wirrwarr verschiedener 
Grnfikformate. Jedes ublicne Grofikbrmat kann in jedes andere ubersetzt 
weiden. Grnfik 2001: Eine leistungsfahige Erweiteiung zur Bosic- 
Erweiterung »Grafik 20OO« mit vielen neuen Befehlen. Grofik 2000 (ous 
dem Sondetheft 4) ist auf der Programmservice-Diskette ebenfalls ent- 
halten. \Afeiterbin finden Sie alb Programme auf Diskette, die im Inhalts- 
wrzeichnis mit einem Diskettensymbol gekennzeichnet and. Zwei Dis- 
ketten for C64/£ 128 

Bestell-Nr. 15827 DM 34,90* sFr 29,50*/6S 349,-* 
* Unverbindliche Preisempfehlung 



- 



. Mit den Gutscheinen aus dem 
UDrigenS. .Supar-Software-Scheckheft- tur 
DM 149.- k6nnen Sie sechs Software-Disketten Ihref Wahl 
aus dem Programffi- Service- Angebot dar Zeitschriften 
PC Migszh Hapoy-Computet-SondertieR Computer pereoiilicti 

PC Magazin Plus Amiga-Msgazin 64'ei-Magaiin 

Htppy-Computsr Amlga-Soralsrhefl 64'K-Sondertieft 

bestelfen - egai, ob diese DM 29,90 Oder DM 34,90 kosten. 
Das Scheckheft kOnnen Sie per Verrechnungssctieck 
oder mit der eingehefteten Zahlkarte direkt beim Verlag 
bestellen. 
Kennwort: Software-Scheckheft, Bestell-Nr. 39100. 



C128 



ANWENDUNGEN 



53863 XTX-1NSTR(E*I1>,"£"1| IF XTX>9 Tt«N E*<l>-L 

EFT*(E*(l>,XTX-l>*CHR«tl3t+HI[>*<E*<ll.XTX+l 
,89) 
53056 IF XTX-9 THEN EXIT 
53937 LOOP 
338SB DO 
53969 XTX-lNSTR(E*Il),-T->l IF XT*}* THEN £*(1)=l 

£FT*<E*<1I ,XT5l-t>«tHR*IZ7)+MID*(E*<l>,XTX+l 

,B0> 
33063 IF XTX.0 THEN EI IT 
33878 LOOP 
33973 KEY IJ,E*(l)i WINDOW 1,4,79,22,11 KEY I PHI 

NT "C2H0ME1" 1 
33833 IJ-IJ+Li IF U-9 THEN IJ-i 
S39B5 IF I.J.0 THEN IJ-S 
53999 LOOP 
33993 RETURN 
6359ft OPEN 3,S,2,"f2.i,f,R-i GET 92, ID* 

63591 IF D5«*9 THEN CLOSE 2l RUN "P2, l" 

63592 GOTO 63632 

63600 OPEN 2, 8, 2, "PI. I,P,R"i GET 42, XD* 
63691 IF DS">9 THEM CLOSE 2l RUN "PI.l" 
65602 CLOSE 2l GOSUB 20061 CHAR ,0,23,CL* 
63693 PRINT " £ROSRAHMDISKETTE E1NLEOEN' - 
6 -'<,.« HET k'EY *r«; IF <T*-CHR*!13) THEN 63600! El 
SE SOTO 63991 

63701 XX*-FI*i XY*-DN*t XZ*-ID*s XW*-TU*1 XXX-TLPX 
t XZX*NR7. 

63702 CA7.-I1 BOSUB 59991. CBX-9 

63703 IF CHK-t THEN FI*-XX*> DN*»XY* = IB*-XZ«: TU 
*-XI**l TUX-XX7.I HRX-XZXi BOTO 63933 

63715 YD**"&" ^FI*-***" 

63729 DOPEN #2, (YD*) t IF DE-9 THEN 63739 

63723 GOSUB 4991s IF CR»1 THEN 63792: ELSE GOTO 
63720 

63739 lNPUT#2„FI*j INPUT92,TU*i INPUT«2,TUXi INPU 
T#2,HRXi IF DBJ9 THEN 63723 

63733 DCLOSE 92 

63740 BOSUB 4121 

63730 IF CRX-I THEN 63702 
63753 BOSUB 52991 

63760 IF CRX-1 TT^N 63792 

63763 IF TUT.-2 THEN GOSUB 528Hi IF CRX-1 THEN 63 

702 
63779 GOSUB 19093i SOTD 63993 
63391 XX*-FI»i XY*-DN*! KZ*-ID*i XW-TUti XXX-TUX 

I XZX-MRX 
63892 TUX-B: GOSUB 59941 
63B9S IF CRX-1 THEN FI*-XX*| DN*-XY*t lD*-IZ*i TU 

*«Xtf*t TUX-XXX! HR»XZXs SOTD 63935 
63B10 CAX-01 BOSUB 59991 
63G15 IF CR7.-1 T>«N 63B92 





63816 




6382 e 


<IJN> 


63822 


<K7S> 


63823 


■-SJ1 ; 


63B30 


<KON> 


63991 




6390H 


<ES7> 


63915 


<6FT> 




<OJP> 


63929 


<E99} 


63923 


<9E9> 




<SBV> 




<2KP> 


63926 


<A37> 




<HTV> 


63927 


<GSB> 


63929 


<IGB> 




<H9T> 


63939 


<L3B> 




<BV1> 


63935 


<N79> 


63940 




63941 


<T9T> 


63943 


<BMF} 


63939 


<PONJ 


63960 


<DA3> 


63963. 


<73H> 




<001> 


63970 




63973 


<HBB> 


63976 




63960 


<0SH> 


63905 


<033> 


63999 


<ERH> 




<4UB> 


63991 


<DFC> 


63992 


<46R> 






63993 


<339> 


63994 


<F31i 




<BF9> 


63993 


<2UT> 


63996 




63999 


<L33> 




<I6U> 




<SAL» 


Listir 



IF F!*-" THEN GOSUB 2096i GOTO 63BI0 

GOSUB 39031 1 IF CRX-1 THEN 63B10 

BOSUB 4121: IF CRX-1 THEN 63819 

TUX-lt BOSUB 31991i IF CRX-1 THEN 63818 

N5X=0i BOBUS 199931 GOTO 63993 

CXX-Bi K9I-"ilfllJPTHENUE-: Hl*-""| DR)t«9i SOS 

UB 10095 

CHAR ,9,3, EL* 

PRINT -(DOt#l> <RVS0N,2GPflCE)H2SpfiCE,RV0FF] 
IURNIER VON JIISKETTE 

PRINT "{DOWN) <RVSON.2BPACE>2<2SPACE,RVDFF) 
- NEUES HJRNIER 

PRINT "tDOHN) (RUSON,2BPflCEJ3(2SPflCE,RVOFF) 
JHEN8T (UJNKTIONSTfiSTEN BELEGEH, SISKETT 

ENVERWALTUNG, ETC. 1 

PRINT -UJOWNl tRVSDN,25PACE>4C2SFACE,«VaFF> 
fiOPFBATEN FNDERW 

PRINT 

PRINT "(DOWN) <RVSON> RTN tRUOFF) - NEITER 

OHNE ±NDERUNG 

PRINT "{DOWN) {RVSON> ESC ?RUOFF> - 0ROGRBH 

H BEENDEN 

YT*-- 1 234 " +CMJ* 1 1 3 ) +CHR* 1 27 ! 

GET KEY XT* 

XTX=INBTR(YT*,XT*) 

ON XTX GOTO 63791,63891.39901,63973,63975,6 

39301 GOTO 63949 

CHAR ,9,23,CL* 

PRINT " HOLLEN &1E DAB BIOBRflnn NIRKLICH BE 

ENDEN? "iJNfi GOSUB 2091 

BET KEY XT*i IF XT*»"J- TIEN CLR ■ PRINT "< 

2M0ME 1 Ct.R>"i GOTO 63999 

CHAR ,0,23,CL*l BOTO 63940 

IF TUX-0 THEN 639O0 

IF XTt.7 THEN 639911 ELBE GOTO 63994 

BOSUB 2996 

CHftR ,9,23,CL* 

PRINT " iRST IURNIER EINLftDENVi GET KEY XT 

*> BOTO 63941 

GOSUB 52991 1 IF CRX-1 THEN 63933 

IF TLTX-2 THEN GOSUB 5201 li IF CRX-I THEN 63 

933 

ON TUX GOTO 49991 ,20991 

XX*-TU*. XXX-TUJCt XYl-WKs GOSUB 5994 1 > IF 

CRX-1 THEN TU*-XX*. TU7>XX5Lj IIRX-XYK! GOTO 

63949 

BOSUB 51991. IF CRX-1 TIEN 63994 

GOTO 63991 

BANK ]3i SYS 63341 



Listing 1. »CH-VERWALTUNG« (SchluB) 



<KRF> 
<9TA> 
<F4H> 
<CHT> 
<Fa5> 

<94B> 
<4D3> 



<O0T> 
<OEE> 

<JUK> 

<P94> 
<H59> 

ccoa> 

<KF9> 
<SU3> 

eotw> 

<U4P> 

<ND4> 
<7E7> 
*i:iej 
<7t9> 
•:97i> 
<4RM> 

<1DS> 
^VPU> 

<D6L> 

■ NIB: 



'NttS: 
<VDC> 
<SSK> 
<UB*> 



8 GRAPHIC CLR 1 BRAPHIC 3,ll FAST I POKE 9, PEEK (9 
) OR 64l POKE l,0i COLOR 6,ll PR1WT ■ tSREY3,CTR 
L+N,CTRL+K>*t 

9 SLEEP 2l TRAP 1999 
18 PRINT • t2HOIt,CLR>£ECCtC HH (23PACE JH& rrrrrw i 



29 PRINT "i£t5SPACE>H!H2SPACE)lUl 6t<3SPHCE)ii<5BP 

ace>ia 

30 PRINT M CC. <5KPACF 1 M HH M HH ££mC3SPATF > 5 5 55 5 5 SBB 



49 PRINT "at«3SPACE>lUH2SPACE)!ia fit C9SPftCE ) S5 I5SP 
OCE>fia 

58 PRINT - CCGCCC BHC2SP ACE > UB £Ei££E 555 55^ 555»s 

i. 

60 PRINT 

79 PRINT * C79PACF J TTTTTT CQOOQO IUI <2SP ACE } Ilk £A££ 

&£ aMC2SPACE)Jia nnnnnn ftanspACElim ££££££ HB< 

2SPACE>jUt TTTTTT 

50 PRINT a l9SPACE)II(3BPACE»,aat2SPACE}Ea M«2SPAC 
E)UM E&f2SPACE>ii BHH HH flIlC2SPACE)aa aflB(2BPB 
CElflnfl ££<5SPACE>B£U fiS (38PACE >JJC 

90 PRINT -l9BPACE)J3t3SPACE>llat2BPACE)EE 1UK2SPAC 

e>uu x««m muuusa aaBBBB be. an an £tt£<isPACE 

1 MHMHNW <3SP ACE > H 
188 PRINT r, t9SPACE}Ht3BPACE>fla<2SPACE>flA 1UH2SPA 

cEiMM sa as<2SPAce>aa turn dnczspACEisfl bahsp 

ACE>flB tt<5SPACE>HH B&HOSPACE] JZ 





118 PRINT "<9SPACEl.TT.<3SPArFUigq9ilfl UUUUUtl »«("J^p 






ACE>££ aar2SPACE5MM 5& C2SPACE J flft flflC4SPAC£}Hfl 






rrrwrw HH(2SPACEHus(3BPACE>TT. 




<3AV> 


120 PRINT t PRINT 

130 PRINT ■ <W) 1986, 1987<2SPACE}£EIM«f 1 D ANDREA 


<4SS> 


<D«S> 


S SCHULZ 


<H3t> 




140 PRINT -<17SPACEli.INDEHANNSTRAPE 66 


<SJQ> 




139 PRINT "tl7SPACE>4699 JORTHUND 1 






168 PRINT 


<D5U> 


<3K8> 


170 PRINT ■ JUELEN HANK DEM SCHACWajUB it ift-WflC 






KEL 1939 UND 1ERRN ffjDREAS IROIS F7R DIE 


<ABL> 




189 PRINT - FREUNDLICHE iINTERST^^TZl*lG■ 


<U36> 




199 PRINT 


■ [ r.ii. 


e04R> 


191 XD*-"->BT"t FOR II«l TO 4i POKE DEC I "9499" J +1 




<U7U> 


I ,ASC(HID*(XD*,II,1)I t HEXT 


<D71> 












<3SS> 




210 PRINT t PSINT "UTE 3ABTE H 


<TIB> 




220 BET KEY XT* 






221 RUN -CH-VERMALtUNG" 


<4ID> 


<UR9> 


1999 RESUME 


<90l> 


<WOK> 


Listing 2. »LADER« ladt das Hauptprogramm nach. 


<TPN> 


Bitte mit dem Checksum mer 128 eingeben. 





Name : ch.sysl 



3800 ^4600 



3800 
3808 
3810 
3818 
3820 
3828 
3830 
3838 
3840 
3848 
3850 
3858 
3860 
3866 
3870 
3878 
3880 
3888 



0a 01 
9a 9d 
46 47 
01 01 

01 3e 
a3 02 
3a a9 
08 8d 

02 09 
c9 ff 
01 20 
f 8 20 
22 38 
ac 26 
28 38 
5d ad 
4d a9 
20 75 



02 10 
a4 a5 
49 01 
01 01 
09 95 
80 00 

00 8d 

01 09 
ae 00 
dO 03 
12 3c 
58 3e 
20 2a 
38 c9 
dO 24 
00 08 
00 8d 
3e 90 



2b 3d 
3a 40 
01 01 

01 01 
f f 9d 
eO 13 
00 08 
8d 00 
33 bd 
4c el 
b0 03 
8d 21 
3c ad 

02 bO 
ad 00 
cd 01 
00 09 
Ob 20 



6a 7b 
43 44 
01 01 
01 01 
aO 00 
20 59 
8d 01 
09 8d 
00 33 
38 a2 
e8 dO 
38 3d 
29 38 
19 ec 
09 fO 
08 dO 
fO 4e 
7d 39 



4b 
8a 
8a 
18 
a5 
de 
69 
80 
fa 
9f 
d6 
la 
32 
52 
4e 
54 
fe 
9e 



3890 
3898 
38a0 
38a8 
38b0 
38b8 
38c0 
38c8 
38d0 
38d8 
38e0 
38e8 
38f0 
38f8 
3900 
3908 
3910 
3918 
3920 
3928 



90 03 
ad 00 
fO 2c 
cd 23 
dO lc 

00 08 
dO 3d 
20 7a 
09 fO 

38 cd 

39 ad 

01 08 
bO 03 
dO la 

01 8d 
ad 00 
08 88 
de 20 

02 09 
c8 dO 



4c b5 
08 fO 
20 ad 
38 dO 
ad 00 
cd 01 
20 03 
3c 4c 
03 20 
00 38 
02 09 
ae 00 
ea dO 
ad 00 
20 38 
08 8d 
fO fl 
7d 39 
4c 4f 
0b ac 



39 4c 
31 cd 
3d ad 

21 cd 
09 fO 
09 dO 
3e 20 
8b 38 
29 3e 
bO 03 
8d 00 
33 20 
f8 8a 
08 dO 
60 20 
02 09 
20 bO 
ad 00 
38 20 

22 38 



56 38 

02 09 
21 38 
24 38 
08 ad 

03 20 
2a 3c 
ad 00 
ad 22 
4c 2b 
08 8d 
12 3c 
a8 88 
06 a9 
03 3e 
8d 01 
3c 90 
08 8d 
03 3e 
e8 8c 



2b 
01 
9a 
bO 
8d 
b3 
9d 
ef 
% 
a9 
a6 
8e 
86 
b3 
67 
0a 
70 
a3 
bl 
dl 



3930 
3938 
3940 
3948 
3950 
3958 
3960 
3968 
3970 
3978 
3980 
3988 
3990 
3998 
39a0 



22 38 b9 
3c 90 0b 
4c 56 38 
00 08 cd 
ad 3d ad 
fO 20 cd 

24 38 cd 

00 09 fO 

01 09 dO 

25 39 4c 
8c 2a 38 
bd 29 38 
dO f6 8c 
90 0a fO 
00 8d 00 



00 38 

20 7d 
4c b5 

02 09 
23 38 

21 38 

22 38 

08 ad 

03 20 
ce 38 
a2 02 
99 02 
00 08 
06 8c 

09 cc 



a8 20 
39 bO 
39 88 
f 2b 
cd 24 
90 lb 
dO 13 

00 08 
dO 3d 
8e 2b 
ac 00 
08 c8 
cc 01 

01 08 
00 33 



95 51 

03 ee 

ad f2 

20 05 

38 5f 

ad cO 

ad 0a 

cd cl 

4c a0 

38 3c 

08 19 

ca 34 

08 f9 

a9 af 

90 43 



Listing 3. Geben Sie »CH.SYS1« 
bitte mit dem MSE (Seite 158) im 
C 64-Modus eiti. 



SONDERHEFT 36 



35 



ANWENDUNGEN 



C128 







39a8 : 


07 a9 00 8d 20 38 38 60 


9b 


3e00 : 


Od b9 10 20 29 04 fO 03 


6e 


3e58 : 


8a ac 00 38 d9 00 38 bO If 




39b0 : 


ae 2b 38 18 60 a5 aO 29 


Od 


3e08 ; 


fe 00 35 38 dO f3 ca dO 


de 


3e60 : 


03 88 dO f8 98 60 a9 10 4e 




39b8 : 


01 18 69 01 8d 21 38 ae 


60 


3cl0 : 


d3 60 48 8a ae 00 08 fO 


64 


3e68 : 


8d 82 3e a9 30 8d 8b 3e 15 




39c0 : 


00 08 dO 03 4e 9c 3f ca 


95 


3cl8 : 


08 dd 01 08 fO 08 ca dO 
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4250 : 20 bO 3a 90 04 a9 00 fO 


59 


44a8 : 


fO ea 8c 00 08 60 ff ff 


b4 


0cd8 


dO 05 a9 40 4c 4c Od c9 


8e 






4258 : 02 a9 01 8d 20 38 60 ae 


c3 


44bO : 


ff ff ff ff ff ff ff ff 


af 


OceO 


b4 dO 05 a9 61 4c 70 Od 


c7 






4260 ; 2a 38 20 25 3d c9 04 90 


a6 


44b8 : 


f f f f f f f f f f f f f f f f 


b7 


0ce8 


c9 b5 dO 05 a9 65 4c 70 
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4268 : 06 29 03 c9 02 dO 04 a9 


07 


44c0 : 


00 00 00 00 00 00 00 00 


cl 


OcfO 


Od c9 b6 dO 05 a9 69 4c 


85 






4270 : 00 fO 02 a9 01 8d 20 38 


Oc 


44c8 : 


00 00 00 00 00 00 00 00 


c9 


0cf8 


70 Od c9 b7 dO 05 a9 6f 


13 






4278 : 60 ae 00 33 8a 9d 00 33 


92 


44dO : 


00 00 00 00 00 00 00 00 


dl 


OdOO 


4c 70 Od c9 b8 dO 05 a9 


7a 






4280 : ca dO f9 20 66 40 20 el 


el 


44d8 : 


00 00 00 00 00 00 00 00 


d9 


0dO8 


75 4c 70 Od e9 bb 90 Oa 


32 






4288 : 3b a9 00 ae 00 33 9d 00 


7e 


44eO : 


00 00 00 00 00 00 00 00 


el 


OdlO 


c9 bf bO 09 38 e9 40 4c 


73 






4290 : 36 9d 00 06 9d 00 37 9d 


48 


44e8 : 


00 00 00 00 00 00 00 00 


e9 


OdlS 


32 Od 4c 59 Oc e9 el 90 


46 






4298 : 00 07 ca dO fl 4c 47 3b 


fe 


44fO : 


00 00 00 00 00 00 00 00 


fl 


Od20 


f9 c9 db bO 06 38 e9 80 


d6 






42a0 : 20 72 3e 20 66 40 20 el 


3a 


44f8 : 


00 00 00 00 OD 00 00 00 


f9 


0d28 


4c 59 Oc c9 de bO eb 38 


fl 






42a8 : 3b ae 00 33 bd 00 34 18 


7e 


4500 : 


f f f f f f f f f f f f f f f f 


ff 


Od30 


e9 80 48 20 66 Od a9 02 


e9 






42b0 : 7d 00 35 9d 00 34 a9 00 


77 


4508 : 


ff ff ff ff ff ff ff ff 


07 


0d38 : 


20 59 Oc 68 4c 59 Oe 48 


65 






42b8 : 9d 00 35 9d 00 36 9d 00 


7f 


4510 : 


ff ff ff ff ff ff ff ff 


Of 


0d40 : 


20 66 Od a9 00 20 59 Oc 


Sa 






42c0 : 37 9d 00 07 9d 00 06 ea 


2e 


4518 : 


ff ff ff f f ff ff ff ff 


17 


0d48 : 


68 4c 59 Oc 48 20 66 Od 


e7 






42c8 : dO e2 ae 00 33 8a ac 00 


ef 


4520 : 


ff ff ff ff ff ff ff ff 


If 


Od50 : 


a9 01 20 59 Oc 68 4c 59 


95 






42d0 : 30 fO Od d9 00 30 fO Ob 


52 


4528 : 


ff ff ff ff ff f f ff f f 


27 


Od58 : 


Oe 48 20 66 Od a9 03 20 


c8 






42d8 : d9 00 31 fO 06 88 dO f3 


ec 


4530 : 


ff ff f f ff ff ff ff f f 


2f 


0d60 : 


59 Oc 68 4c 59 Oc a9 lb 


36 






42e0 : 20 e9 42 ca dO e7 4e 9c 


95 


4538 : 


ff ff ff ff ff ff ff ff 


37 


0d68 : 


20 59 Oc a9 52 4c 59 Oc 


72 






42e8 : 3f 8d 2a 38 48 20 le 3b 


f4 


4540 : 


00 00 00 00 00 00 00 00 


41 


0d70 : 


20 59 Oc a9 08 20 59 Oc 


74 






42f0 : ad 2c 38 8d Of 43 8d 09 


c6 


4548 : 


00 00 00 00 00 00 00 00 


49 


Listing 


4. "CENTRONICS* initialisiert 






42f8 : 43 ad 2d 38 8d 10 43 18 


fb 


4550 : 


00 00 00 00 00 00 00 00 


51 


eine C 


entrontcs-Schmttstelle im C 128. 






4300 : 69 10 8d Oa 43 ac 00 10 


dO 


4558 : 


00 00 00 00 00 00 00 00 


59 


Bitte n 


lit dem MSE eingeben. 
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GRUNDLAGEN 



C128 



0d78 


a9 5e 4c 59 Oe 20 00 Oc 68 


0d80 


a9 lb 8d 01 dd ad Od dd 76 


0d88 


ad 00 dd 29 fb 8d 00 dd ba 


0d90 


09 04 8d 00 dd a9 10 a2 af 


0d98 


00 aO 00 2c Od dd dO 10 91 


OdaO 


c8 cO ff dO f6 e8 eO f f lc 


0da8 


dO ef a9 01 8d ba Od 60 9e 


OdbO 


a9 00 8d ba Od a9 40 4c cc 


0db8 


59 Oc 00 00 82 14 ea 84 95 


OdcO 


4a 20 79 00 20 13 bl bO 3b 


0dc8 


09 a9 20 85 81 a9 07 4e 79 


OddO 


7f Oa 20 73 00 90 05 20 a4 


Odd8 


13 bl 90 04 e8 4c d2 Od bf 


OdeO 


c9 27 fO f8 e8 86 45 a9 . c3 


0de8 


36 85 01 a9 f9 a2 bf 86 17 


OdfO 


60 85 5f e4 30 90 4a do da 


0df8 


04 c5 2f 90 44 aO 01 8d 25 


OeOO 


03 dd ad 02 dd a9 12 4c a9 


Listin 


] 4. (Schlufi) 



Name : 


screen 0b20 0b7a 


0b20 


a9 09 8d 32 Ob a9 90 48 


c8 


0b28 


a2 08 aO 02 a9 12 20 6e 


bf 


0b30 


Ob a9 Oe 8d 01 d6 a9 13 


d9 


0b38 


20 6e Ob 68 48 8d 01 d6 


02 


Ob40 


a9 If 20 6e Ob cO 01 dO 


ab 


0b48 


04 a9 8e dO 02 a9 8f 8d 


a5 


Ob50 


01 d6 a9 le 20 6e Ob a9 


df 


Ob58 


4f 3d 01 d6 68 18 69 50 


17 



Ob60 : 48 90 03 ee 32 Ob 88 dO ce 
0b68 : c3 ea dO be 68 60 8d 00 5c 
0b70 : d6 2c 00 d6 10 fb 60 00 9a 
0b78 : ef c9 Oc d4 8d 13 d4 a9 02 

Listing 5. »SCREEN« wird vom Haupt- 
programm nachgeladen. 
Bitte mit dem MSE eingeben. 


15a8 : 90 05 bO 03 20 c4 15 ae 21 
15b0 : 7e 16 ac 7f 16 e8 cc 00 2f 
15b8 : 14 90 bf fO bd e8 ec 00 f9 
15cO : 14 90 bl 60 ac 7f 16 b9 27 
15c8 : 00 14 48 b9 ff 13 99 00 lb 
15dO : 14 88 cc 7e 16 dO f4 68 b8 
15d8 : 99 00 14 8c 7f 16 60 a9 85 
15e0 : 00 aO 00 99 00 13 c8 dO el 
15e8 : fa 8d 08 16 20 69 16 8d 2e 




Name : spsort 1500 l68d 


15fO : fb 15 8c fc 15 a2 00 8e be 
15f8 : 80 16 bd e6 df e9 Od fO 32 
1600 : 18 20 Id 16 ae 80 16 9d b5 
1608 : 80 13 cO 00 fO 08 ee 08 5d 
1610 : 16 98 aO 00 f fl e8 10 fd 
1618 : de 60 20 Id 16 a2 09 dd 28 
1620 : 3b 16 fO Ob dd 56 16 fO cf 
1628 : Oe ca dO f3 aO 00 60 bd 55 
1630 : 44 16 be 4d 16 dO f7 bd 9b 
1638 : 5f 16 dO fO bd be be bb 29 
1640 : db de dd be be 55 4f 53 ^3 
1648 : 41 cl cf d5 53 53 45 45 88 
1650 : 53 45 45 45 45 ^3 53 ae d9 
1658 : ac b4 b5 b6 b3 b2 b7 bS c4 
1660 : 45 45 4l 45 49 55 41 4f 24 
1668 : 55 bd 00 14 aa a9 00 aO 58 
1670 : dO ea fO 09 18 69 25 90 85 
1678 : f8 e8 4c 71 16 60 00 00 7a 
1680 : 78 a9 6b 8d 28 03 58 60 16 
1688 : 78 a9 6e dO f6 00 03 00 06 

Listing 6. »SPSDRT« sorgt fur 

schnelles Sortieren. 

Bitte mit dem MSE eingeben. 


1500 : 20 26 15 a9 60 8d 5c 15 be 
1508 : a9 20 8d a5 15 4c 72 15 81 
1510 : 20 26 15 a9 ea 8d 5c 15 75 
1518 : 4c 31 15 20 26 15 a9 2c 50 
1520 : 8d a5 15 4e 72 15 ae 00 d9 
1528 : 14 8a 9d 00 14 ca dO f9 b8 
1530 : 60 a2 01 8e 7e 16 8a a8 08 
1538 : c8 8c 7f 16 ae 7e 16 20 60 
1540 : df 15 ae 7f 16 a9 80 20 36 
1548 : e9 15 a2 00 bd 80 13 dd 4c 
1550 ; 00 13 dO 03 e8 10 f5 bO b7 
1558 : 03 20 c4 15 ea ae 7e 16 89 
1560 : ac 7f 16 c8 cc 00 14 90 a9 
1568 : dO fO ce e8 ec 00 14 90 cl 
1570 : c2 60 a2 01 8e 7e 16 8a 75 
1578 : a8 c8 8c 7f 16 bd 00 14 Of 
1580 : aa b9 00 14 a8 bd 00 cc 9e 
1588 : d9 00 ce dO Id bd 00 cd Da 
1590 : d9 00 cd dO 15 b9 00 ce b3 
1598 : dd 00 ee dO Od b9 00 cf 81 
15a0 : dd 00 ef dO 05 2c 3e 15 58 



Tips und Tricks fur den 

Einstieg in 
Maschinensprache 




D 



as »Bankswitching«, also das Umschalten zwischen 
| mehreren sich (iberlagernden Speicherbereichen, ist 
bereits vom C64 her bekannt, bei dem auf diese Wei- 
se RAM-Beretche unterdem ROM genutztwerden konnen. 
BeimC64waresjedoch nicht u n bed ingterforderlich, Qber 
Speicherkonfigurationen und deren Anderung Bescheid 
zu wissen. Viele Assemblerprogrammierer durften sich - 
ebenso wie ich selbst- so weit wie moglich urn diese etwas 
»ominose« Geschichte herumgedruckt haben. 

Die Programmierung des C128 in Maschinensprache ist 
leider ohne Kenntnis des Bankswitching kaum moglich. 
Wie Sie bereits wissen, verwendet der Basic-Interpreter 
Bank ftir das Basic-Program m und Bank 1 fur die Varia- 
blenspetcherung. Der Interpreter ist daher gezwungen, 
standig zwischen diesen 64-KByte-RAM-Banken hin- und 
herzuschalten. 

Das gleiche Problem stellt sich fur den Assemblerpro- 
grammierer. Eine beliebte Anwendung von Assemblerpro- 
grammen sind Unterroutinen, die mit dem Basic zusam- 
menarbeiten sollen, zum Beispiel um besonders zeitkriti- 
sche Programmteile zu beschleunigen, oder aber, um nicht 
vorhartdene Basic-Befehle zu implementieren. Werden 



solche Routinen auf dem C64 geschrieben, kann sie der 
Program mierer problem los in einen freien, vom Uber- 
schreiben durch Basic geschiitzten Speicherbereich legen 
{zum Beispiel $CO0O bis $CFFF). 

Der C128 erfordert auch bei kleineren Assembler- 
Routinen einen weitaus hoheren Aufwand. So stellt einen 
bereits die Frage, in welchen Speicherbereich eine Routine 
gelegt werden soil, vor grbBere Probleme. Es stehen zwar 
128 KByte zur Verfiigung, jedoch kein grbBerer Speicher- 
bereich, der vom Basic mit Sicherheit verschont bliebe. 
Bank steht bis $FFFF fur den Basic-Text, und Bank 1 
ebenfalls bis $FFFF fur Variablen zur Verfiigung. Wetterhin 
muB in vielen Fallen eine Assembler-Routine auf den 
Basic-Text und auch auf die Variablen zugreifen, was ohne 
Umschaltung der Konfiguration nicht moglich ist. Zum Bei- 
spiel muB eine Sortierroutine Parameter aus dem Basic- 
Text lesen (Name des zu sortierenden Arrays), der eigentli- 
che Sortiervorgang findet anschlieBend in Bank 1, der Va- 
riablenbank, statt. 

Zusammen mit einem Programmierkollegen stand ich 
vor der Aufgabe, ein Basic-Program m vom C64 auf den 
C128 umzuschreiben. Nach einigen Fehlschlagen geiang 
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es uns, alle dabei bendtigten Assembierroutinen umzu- 
wandeln. 

Begonnen hatte alles mit einem C128, dem Handbuch 
und einem Exemplar des »C128 lntern«. Unser erster 
Schritt war ein Testprogramm, mit dem das Umschalten 
zwischen den Speicherbanken erprobt werden sollte. Das 
Programm sollte eine Speicherstelle in Bank 1 lesen. Wir 
gaben es mit dem integrierten Monitor in Bank ein, und 
legten es - wie vom C64 gewohnt - nach $C000. Nach dem 
Aufruf sollte es durch Beschreiben des Konfigurationsregi- 
sters $FF00 auf Bank 1 umschalten, die gewunschte Spei- 
cherstelle in den Akku einlesen und mit einem BRK in den 
Monitor zuriickkehren. 

Dieses einfache Testprogramm sturzte jedoch ab. Der 
Grund fur den Absturz war schnellgefunden: nach dem Be- 
schreiben von $FFOQ und damit dem Umschalten auf Bank 
1 folgte der Befehl »LDA$1000«, der den Inhalt dieser Spei- 
cherstelle lesen sollte. Da unser Programm jedoch in Bank 
lag, sagten wir uns mit dem Umschalten auf Bank 1 ge- 
wissermaBen »den eigenen Ast ab«, da unser Programm - 
und damit auch der Ladebefehl - nach dem Umschalten 
auf Bank 1 fur den Prozessor nicht mehr existent war. 

Dieser MiBerfolg machte uns immerhin klar, daB wir zu 
naivan das Problem herangegangen waren. Nachdem wir 
einige Zeit damit verbrachten, das Handbuch und das 
C128 Intern zu studieren, war klar, daB es prinzipielf zwei 
Methoden gibt, auf verschiedene Speicherbanke zuzugrei- 
fen, ohne daB ein Programm unmittelbar nach dem Um- 
schalten absturzt: 



Abstiirze verhindern 



1. Benutzung der Routinen FETCH, STASH und CMPARE: 
Diese Routinen benutzt auch der Basic-Interpreter. Nach 

dem Einschalten des Computers 1st der Bereich $0000 bis 
$03FF als gemeinsamer Bereich von Bank und Bank 1 
definiert. Unabhangig davon, welche Bank eingeschaltet 
ist t »sieht* der Prozessor immer die gleichen Programme 
beziehungsweise Daten in diesem Bereich. Dieses Kon- 
zept der gemeinsamen Speicherbereiche kann man sich 
durch die Vorstellung veranschaulichen, daB jede Ande- 
rung des Bereichs $0000 bis $03FF in der einen Bank sc- 
fort in die andere Bank kopiert wird, die Inhalte von Bank 
und 1 in diesem Bereich daher in jedem Moment identisch 
sind. Dieses Konzepi entspricht zwar nicht dem tatsachli- 
chen physischenAblauf, ist jedoch eine fur die Praxis vollig 
ausreichende Vorstellung. 

Die genannten Routinen werden nach dem Einschalten 
des Computers aus dem ROM in diesen gemeinsamen Be- 
reich kopiert. Ihre Benutzung erfordert eine recht langwieri- 
ge Parameterubergabe. Unter anderem wird die ge- 
wunschte Speicherkonfiguration iibergeben, auf die zuge- 
griffen werden soil. Nach der Parameterubergabe und dem 
Aufruf schaltet die jeweilige Routine die benotigte Konfigu- 
ration ein, fuhrt in der ausgewahlten Bank die gewunschte 
Operation aus (lesen, schreiben, vergleichen) und schaltet 
danach auf die alte Speicherkonfiguration zuriick. 

Der Einsprung in eine dieser Routinen findet in das Ker- 
nel start. Danach wird jedoch in die Kopie, also in den ge- 
meinsamen Speicherbereich verzweigt. Da das Umschal- 
ten in diesem gemeinsamen Bereich durchgefiihrt wird, fin- 
det kein Absturz statt, da die Routine fur den Prozessor in 
jeder Bank existent ist. Diese Routinen sind daher das ele- 
mental »Verbindungsglied« zwischen Programmen und 
Daten, die in verschiedenen Banken liegen. 

2. Assembler-Routinen in einen gemeinsamen Speicher- 
bereich legen: 



Wie erwahnt, wird beim Einschalten des C128 ein be- 
stimmter Speicherbereich als gemeinsam definiert. Uber 
das Register $D506, das im l/O-Bereich liegt, kann der Pro- 
grammierer jedoch selbst bestimmen, ob er gemeinsame 
Bereichedefinieren will, wo und wie groB diese sein sollen. 

Es existieren jedoch mehrere Begrenzungen, zum Bei- 
spiel dadurch, daB ein gemeinsamer Bereich an einem En- 
de des Speichers beginnen mu8 (entweder ab $0000 auf- 

Der gemeinsame Speicherbereich 

warts oder ab $FFFF abwarts) und durch die maximale Gro- 
Be eines solchen Bereichs von 32 KByte. 

Die zweite Moglichkeit besteht somit darin, einen Spei- 
cherbereich als gemeinsam zu dektarieren, der groB genug 
ist, alle benotigten Assembler-Routinen aufzunehtnen. 

Da die Routinen FETCH etc. langwierige Parameteriiber- 
gaben erfordern, ein Programm daher langer wird und zu- 
satzliche Fehlerquellen entstehen, waren mein Kollege und 
ich uns einig, die zweite Moglichkeit zu verwenden. Die Fra- 
ge war nun, welcher Speicherbereich als gemeinsam de- 
klariert und fur die Routinen verwendet werden sollte. Wir 
entschieden uns dafur, den oberen Speicherbereich bis 
$FFFF zu verwenden. Voraussetzung dafur war natiirlich, 
den Zeiger auf das Ende des Basic-Textes herabzusetzen, 
urn die Routinen vor dem Uberschreiben zu schutzen. 

Zusatzlich war es erforderlich, die Zeiger auf den Anfang 
des Stringbereichs ebenfalls herabzusetzen. Der String- 
stack beginntab $FFFF in Bank 1. Wenn nun zum Beispiel 
der Speicherbereich $F000 bis $FFFF als gemeinsamer 
Bereich definiert wird, fuhrt jedes Anlegen eines Strings 
dazu, da6 die Assembler-Routinen in dem entsprechenden 
Bereich von Bank durch den String uberschrieben wiir- 
den. 

Nach den frustrierenden Erfahrungen mit dem ersten 
Testprogramm versuchten wir nun, moglichst alle Konse- 
quenzen unseres Plans zu uberdenken. Dabei stellte sich 
ein neues Problem: Im gleichen Bereich befindet sich das 
Kernel, das zum Zugriff auf unsere Routinen ausgeschaltet 
werden muBte. Diese Routinen benotigten jedoch selbst 
mehrere Kernel-Routinen. 

Zur Benutzung von ROM-Routinen trotz ausgeblende- 
tem ROM stehen die Routinen JRSFAR und JMPFAR zur 
Verfugung. Bei der Benutzung dieser Routinen muB das 
Kernel-ROM eingeschaltet sein. Die Routinen selbst befin- 
den sich zwar nicht im Kernel, verzweigen jedoch zu einer 
Kernel-Routine, was bei ausgeblendetem Kernel naturlich 
zu einem Absturz fuhren wurde, 

JSRFARstellt daher leider fur Programme, die sich unter 
dem Kernel befinden und dessen Routinen verwenden wol- 
len, keine brauchbare Losung dar. Denkbar ist jedoch ein 
Umweg, mit dem das Ziel gewissermaBen uber mehrere 
Ecken angesteuert wird: 

Zwei gemeinsame Bereiche werden definiert, einer am 
unteren und einer am oberen Ende des Speichers. In den 
unteren Bereich, der nicht vom ROM uberlagert wird, wird 
einekleine Routine gelegt, die den Aufruf einer vom Haupt- 
programm benotigten Kernel-Routine ubernimmt. Das 
Haupfprogramm ubergibt alle Parameter (zum Beispiel die 
Adresse der Kernel-Routine) und ruft die Routine im unte- 
ren Bereich auf. Diese blendet das Kernel ein und dadurch 
zwangslaufig das Hauptprogramm aus. Nun wird JSRFAR 
aufgerufen. Nach Durchfuhrung der jeweiligen Kernel- 
Routine wird mit einem RTS zu der Routine im unteren ge- 
meinsamen Bereich zuruckgekehrt. Diese blendet nun das 
Kernel wieder aus und das darunterliegende Hauptpro- 
gramm ein; anschlieBend erfolgt die Riickkehr in dieses 
Hauptprogramm, 
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Wie Sie sehen - und auch wir einsehen muBten - ist es 
ohne grdBeren Aufwand nicht moglich, ein Assemblerpro- 
gramm, das Kernel-Routinen verwendet, unter eben dieses 
Kernel zu legen. Die Umschaltung zwischen Kernel und 
darunterliegendem Programm fuhrt zu sehr umstandlichen 
Routinen. 

Ich mochte Ihnen nun zwei kleine Initialisierungs-Routi- 
nen vorstellen, die die gewunschten Aufgaben erledigen, 
eine Basic- und eine Assembler-Routine: 

1. Begin n des Basic-Textes und der Variablentabelle ver- 
schieben: 

10 poke 46,dec{"20"):poke 48,dec 

("20") 

20 poke dec<" 2000 "),0 

30clr 

40 new 

Wenn Sie dieses Basic-Programm eingeben und starten, 
beginnt sowohl der Basic-Text als auch die Variablentabelle 
ab $2000. 

2. Definition eines gemeinsamen Speicherbereiches: 
Ida $ff00 
pha 

Ida #$00 
sta $ff00 
Ida $d506 
ora #$06 
sta $d506 
pla 

sta $ff00 
rts 

Die einzige von uns gefundene Moglichkeit, kleinere 
Assembler-Routinen auf dem C128 zu schreiben, ohne an 
derartigen Problemen zu scheitern, bestehi darin, die Pro- 
gramme in einen Bereich zu legen, der nicht vom ROM - 
das eventuell benotigt wird - iiberlagert und als gemeinsa- 
mer Bereich von Bank und Bank 1 dekiariert wird. 

Ein solcher Bereich, der fur die meisten Assembler-Rou- 
tinen ausreichend Platz bietet und unbenutzt ist, ist der Be- 
reich von $1300 bis $17FF. Urn Probleme mit dem Urn- 
schalten zwischen den Banken zu vermeiden, wird ein ge- 
meinsamer Bereich definiert, der von $0000 bis $1FFF 
reicht. Da der Basic-Text jedoch ab $1C00 beginnt, mu8 der 
Zeiger auf den Basic-Anfang auf $2000 verstellt werden, 
urn Uberschneidungen 2wischen dem Basic-Text in Bank 
und den Variablen in Bank 1 zu vermeiden. 

Zusatzlich muB auch der Zeiger auf den Beginn der Va- 
riablentabelle verstellt werden - auch auf $2000 -, da diese 



RAM Configuration Register 



a OObOO 


ad 


00 ff 


a 00b03 


48 




a 00b04 


a9 


00 


a 00b06 


8d 


00 ff 


a 00b09 


ad 


06 d5 


a OObOc 


09 


06 


a OObOe 


8d 


06 d5 


a 00b11 


68 




a 00b12 


8d 


00 ff 


a 00b15 


60 





Bankswitching 



ab $0800 beginnt und ebenfalis ab $0800, jedoch in Bank 
0, der Bildschirmspeicher liegt. Uberschneidungen zwi- 
schen Variablentabelle und Bildschirmspeicher fuhren 
sonst bei jeder Ausgabe auf dem Bildschirm zu Anderun- 
gen der Variablentabelle, also zu ihrer Zerstorung. 

Dieses kleine Maschinen programm rettet zuerst die ak- 
tueile Speicherkonfiguration, blendet nun den l/O-Bereich 
ein und definiert im RAM-Konfigurationsregister den Be- 
reich $0000 bis $1 FFF als gemeinsamen Bereich von Bank 
und Bank 1. Vor dem Rucksprung aus der Routine wird 
die gerettete Speicherkonfiguration wiederhergestellt. Die- 
se Routine liegt im Kassettenpuffer. Sollten Sie mit der Da- 
tasette arbeiten, legen Sie sie bltte nach $0D00 in den 
RS232-Eingabepuffer. 

Wenn Sie beide Programme eingegeben und gespei- 
chert haben, konnen Sie mit der Assemblerprogrammie- 
rung beginnen. Bis Sie selbst eine komfortablere Losung 



Bits Bedeutung 



7,6 RAM-Bank des VIC (Bit 7 fur Erweiterung) 
xO - RAM-Sank 
x1 = RAM-Bank 1 



5,4 Nicht benutzt (fOr Erweiterung auf 1 MByte) 



3,2 Lage der gemeinsamen Spei c herb ere ich e 

00 = keine gemeinsamen Speicherbereiche 

01 = Speicheranfang 

10 = Speicherende 

11 = Speicheranfang und -Ende 



1,0 GrfiBe des/der gemeinsamen Speicherbereiche 

00 = 1 KByte 

01 = 4 KByte 

10 = 8 KByte 

11 = 16 KByte 



Tabelle 1. Das RAM-Kanfigurations-Register (SD506) der MMU 



gefunden haben, gehen Sie bei der Assemblerprogram- 
mierung bitte wie folgt vor: 

1. Basic-Programm laden und starten. 

2. Maschinenprogramm laden und mit »SYS DEC 
("0B0O")«aufrufen. 

Fur Ihre Maschinen programme steht Ihnen nun der Be- 
reich $1300 bis $17FF (ab $1800 beginnt der fur die Funk- 
tionstastenbelegung benotigte Bereich) zur Verfugung. 
Eventuell konnen Sie auch weitere Bereiche nutzen, zum 
Beispiet $0C00 bis $0DFF, wenn Sie die RS232-Schnitt- 
stelle, Oder den Bereich von $0B00 bis $0BFF, wenn Sie 
den Kassettenpuffer nicht benotigen. 

Die Nutzung alter Bereiche unterhaib $2000 ist theore- 
tisch moglich. Probleme durch das »Absagen deseigenen 
Astes« werden dank dem bis $1FFF reichenden, gemeinsa- 
men Speicherbereich nicht auftreten. 

Urn wirklich problemfos in Assembler arbeiten zu kon- 
nen, benotigen Sie zwei weitere Routinen, die zwischen 
Bank und Bank 1 umschalten. Diese Routinen wurden 
von mir in das Initialisierungs-Programm integriert. 
Initialisierung + Umschaltroutinen: 



a OObOO 


ad 


00 ff 


Ida $ff00 




a 00b03 


48 




pha 




a 00b04 


a9 


00 


Ida #$00 




a 00b06 


8d 


00 ff 


sta $ff00 




a 00b09 


ad 


06 d5 


Ida $d506 




a OObOc 


09 


06 


ora #$06 




a OObOe 


8d 


06 d5 


sta $d506 




a 00b11 


68 




pla 




a 00b12 


8d 


00 ff 


sta $ffO0 




a 00b15 


60 




rts 




a00b16 


08 




Php 




a 00b17 


48 




pha 




a 00b18 


a9 


00 


Ida #$00 




a 00b1a 


8d 


00 ff 


sta $ff 00 




a 00b1d 


68 




pla 




a 00b1e 


28 




pip 




a 00b1f 


60 




rts 




a 00b20 


08 




php 




a 00b21 


48 




pha 




a 00b22 


a9 


7f 


Ida #$7f 




a 00b24 


8d 


00 ff 


sta $ff00 




a 00027 


68 




pla 




a 00b28 


28 




pip 




a 0Qb29 


60 




rts 
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$0B16 ist die Einsprungadresse zum Umschalten auf 
Bank 0, $0B20 der Einsprung zum Umschalten auf Bank 1 
(nur RAM), die wichtigere der belden Routinen. Wichtiger, 
da Sie Bank wohl nur zum Lesen von Parametern aus 
dem Basic-Text verwenden werden, wozu problem los die 
entsprechenden Routinen des Basic- Interpreters verwen- 
det werden konnen. 



Assemblerprogrammierung 



lm Laufe der Ze it werden sicherlich auch elegantere Lbsun- 
gen der genannten Probleme entdeckt werden . Dieser Arti- 
kel sollte nur zeigen, worauf Sie bei der Assemblerpro- 
grammierung des C128 achten mussen: 

1. Probleme beim Umschalten zwischen den Speicherban- 
ken. 

2. Probleme mit Uberschneidungen zwischen als gemein- 
sam definierten Speicherbereichen, zum Beispiel Bild- 
schirm und Variablentabelle. 

3. Probleme bei dem Zugriff auf Betriebssystem-Routinen, 
deren Losung davon abhangt, in welchen Bereich die Pro- 
gramme geiegt werden, unter das ROM Oder in einen rei- 
nen RAM-Bereich. 

Wie Sie sehen, ist es bei der Programmierung des C 128 
in Assembler auBerordentlich wichtig, alle Zugriffe, die im 
spateren Programm sowohl auf verschiedene RAM-Banke 
als auch auf ROM-Routinen erfolgen sollen, von vornher- 
ein einzuplanen. 



H 



Das Basic des C 128 verfiigt 
uber wunderbare Befehle zur Nutzung 
der HiRes-Grafik. Wir zeigen Ihnen 
Anwendung und Programmierung 

I ier geht es urn die hochauflosende und die Mehrfar- 
bengrafik, die wir uns im Detail ansehen werden. 14 
I Befehle steuern im Basic 7.0 des C128 die Grafik- 
mbglichkeiten im engeren Sinn. Zahlt man noch die Sprite- 
und Shapeanweisungen hinzu, dann verfiigen wir uber 27 
grafische Werkzeuge in Basic. Wir erklaren Ihnen die An- 
wendung und Programmierung jedes einzelnen dieser 14 
Befehle, die Ihnen das Arbeiten mit der hochauflbsenden 
Grafik erleichtem. Hier gehen wir nicht auf die VDC-Ande- 
rungen des neuen C 128 D im Blechgehause ein. Dies wur- 
den im Sonderheft 29 ausfuhrlich besprochen. 

GRAPHIC 



Zum AbschluB noch ein Rat: Sie werden sich vor weitere 
Probleme gestellt sehen, wenn Sie Programme, die mit ei- 
ner bestimmten Art der Bildschirmdarstellung arbeiten, 
zum Beispiel dem 40-Zeichen-Modus, auf einen anderen 
Ausgabemodus umstellen wollen. 

Der Grund ist der unterschiedliche Videocontroller. Fur 
den 40-Zeichen-Modus ist der VIC, fur den 80-Zeichen-Mo- 
dus der VDC zustandtg. Beide Controller arbeiten unter- 
schiedlich. Wahrend der VIC den direkten Zugriff auf das 
Video-RAM gestattet, ist beim VDC nur ein indirekter Zu- 
griff mbglich. 

Beim C64 ist es ublich, daB Assembler-Routinen direkt 
- unter Umgehung der Betriebssystem-Routinen - in das 
Video-RAM schreiben beziehungsweise daraus lesen. Bei 
einereventuellen Umsteliung der Zeichendarstellung sind 
in solchen Routinen umfangreiche Anderungen notig. 

Ich empfehle Ihnen daher, ausschlieBlich die Betriebssy- 
stem-Routinen - zum Beispiel BSOUT - zu verwenden. 
Wenn diese standard isierten Schnittstellen verwendet wer- 
den, konnen Sie sicher sein, daB eine spatere Programm- 
umstellung auf eine andere Art der Bildschirmdarstellung 
nicht einem Neuschreiben des Programms gleichkommt. 

DaB mit BSOUT Zeichen auf dem Bildschirm ausgege- 
ben werden konnen, durfte allgemein bekannt sein. Woran 
jedoch nicht jeder Programmierer denkt, ist die Moglich- 
keit, ohne Umgehung des Betriebssystems auch Zeichen 
vom Bildschirm zu lesen, indem dieser als logische Datei 
eroffnet und die Eingabe auf diese Datei geiegt wird. 

Zweifellos eine umstandliche Methode, die jedoch bei 
spateren Programmanderungen viel Arger ersparen kann. 

(S. Baloui/kn) 




Dieser Befehl dient - der Name sagt es schon - zum Um- 
schalten in die verschiedenen Grafik- und Textmodi unse- 
res Computers. Mittels 

GRAPHIC A, B, C 



dieser HiRes-Grafik. 



konnen je nach den Kennungen A, B und C eine ganze Rei- 
he von Optionen angewahlt werden. 

Die Kennung A aktiviert den Grafik-Modus: 

A=0 Der Textbildschirm - und zwar derjenige mit 40 Zei- 
chen Zeilenbreite - wird eingeschaltet 

A=1 Die hochauflosende Grafik wird aktiviert 

A=2 Ein »Splitscreen«, also ein Bildschirm, auf dem so- 
wohl 40-Zeichen-Text als auch hochauflosende Grafik zu- 
lassig sind, kann damit eingeschaltet werden 

A=3 Die Mehrfarbengrafik (auch Multicolorgrafik ge- 
nannt) ist angewahlt 

A=4 Auch dieser Parameter erlaubt die Einrichtung ei- 
nes Splitscreen. Diesmal erscheint zum 40-Zeichen-Text- 
Schirm noch die Mehrfarben-Grafik 

A=5 Schaltet auf 80 Zeichen urn. 

Der Parameter B entscheidetdaruber, ob der ausgewahl- 
te Bildschirm gelbscht wird oder nicht: 

B=0 Es wird nicht geloscht 

B=1 Der Bildschirm (in den Grafik-Modi 1 bis 4 auch die 
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Bit-Map genannt) wird geloscht. 

Der Parameter C spielt lediglich in den Modi 2 und 4 eine 
Rolle (Splitscreen). Er bestimmt, an weicher Zeile der Text- 
bildschirm eingeblendet werden soil. Die Splitscreens sind 
so eingerichtet, daB immer von dieser Zeile an abwartsText- 
bereich existiert. Voreingestellt - und daher muBC nicht im- 
mer angegeben werden - ist die Zeile 19. 

Worin unterscheiden sich diese Grafik-Modi? Wenn Sie 
im C64-Modus Grafik programmieren wollen, dann kom- 
men Sie ohne einen sehr tiefen Einblick in die Speicheror- 
ganisation des Computers nicht sehr weit. Auch wenn uns 
das der C 126 durch sein leistungsfahigeres Basic erspart: 
Ein wenig sollten Sie dennoch wissen. 

Die Grafik-Modi 



40-Zeichen-Text Zur Darstellung des 40-Zeichen-Bild- 
schirms belegt der Computer zwei Speicherbereiche: 
1024 bis 2023 Bildschirm-RAM und 
55296 bis 56295 Bildschirm-Farben-RAM 
In jeweils 1000 Speicherstellen (40 Spalten mal 25 Zei- 
len) befindet sich die Text-Information, die auf dem Monitor 
oder Fernseher zu sehen ist. Die Aufteilung dieser beiden 
Speicherbereiche finden Sie in Ihrem C 128-Handbuch, 
Wenn Sie dafursorgen, daB in der li n ken oberen Ecke Ihres 
Bildschirms ein A steht, dann finden Sie durch 

BANK 0: PRINT PEEK (1024) 

die Zahl 1 in der Speicherstelle 1024. Das ist der Bild- 
schirm-Code des Zeichens »A«. Umgekehrt konnen Sie 



Blld 1. Ein Zeichen auf dem Blldschirm setzt sich aus der 
Bildschirm- und der 



Farbinformation 

zusammen 




Farb-RAM 



Bitdschirm-RAM 



sichtbares Biid 



durch POKEn auch Zeichen in den Bildschirmspeicher 

schreiben: 

BANK 0:POKE 1025,2 

schreibt ein »B« an die zweite Position der ersten Zeile. Im 
Handbuch sind die Bildschirm-Codes der Zeichen zu fin- 
den. Der andere Speicherbereich ab 55296 versieht die 
Zeichen mit Farbe. In den alten Versionen des C 64 mufiten 
zwei POKEs eingegeben werden, urn ein Zeichen sichtbar 
werden zu lassen. Der zweite POKE diente zum Einschrei- 
ben ernes Faro-Codes in die dazugehbrige Bildschirmfarb- 
speicherstelle. Hieristdas nicht notig: Der Speicherbereich 
ab 55296 wird automatisch mit entsprechenden Werten ge- 
fullt: Die unteren 4 Bit enfhalten nach dem Einschalten die 
Zahl 13, was dem Code der Farbe Hellgrun (vermindert um 
1) entspricht. Es steht Ihnen aberfrei, bunte Buchstaben zu 
erzeugen. Dazu ist lediglich ein anderer Farb-Code in die 
zum Bildschirmspeicher gehorige Farbzelle zu schreiben. 
Bild 1 soli dieses Zusammenspiel beider Speicherbereiche 
verdeutlichen: 

Obrigens, falls Ihnen die aktuelle Cursorfarbe nicht mehr 
gef alien sollte, dann konnen Sie sie durch 



BANK 0:P0KE 2U,Farbcode 

andern. Auch alle danach geschriebenen Zeichen erhalten 
die so gewahlte neue Farbe. 

Nun wissen wir zwar, daB zum Darstellen eines Zeichens 
auf dem Bildschirm ein Zeichen-Code im Bildschirmspei- 
cher und ein Farb-Code im dazugehdrigen Farbspeicher 
notig sind, so ganz befriedigend ist das als Erklarung aber 
noch nicht. Woher weifi unser Computer eigentlich, was er 
abbilden soil, wenn beispielsweise der Zeichen-Code 1 in 
der Speicherstelle 1024 steht? Fur jedes Zeichen, das der 
Computer darstellen kann, gibt es im sogenannten 
Character-ROM ein Muster. Der Zeichen-Code dient als 
Zeiger auf das erste Byte eines soichen Musters. Die 1 deu- 
tet auf das erste Zeichenmuster, das zum groBen Buchsta- 
ben »A« gehbrt. Es gibf Obrigens auch das nullte Zeichen, 
den »Klammeraffen«. 

Jedem Zeichen sind im Character-ROM 8 Byte zugeord- 
net. Ein Beispiel zeigt Bild 2. 

Daraus ist zu ersehen, daB jedes Zeichen als gesetzte 
oder nicht gesetzte Punkte in einem 8x8-Rasterfeld defi- 
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Bild 2. Das Zeichenmuster des Buchstaben A 

niert ist. Falls Sie fiber einen guten Monitor verfugen und 
Kontrast sowie Helligkeit entsprechend einstellen, dann 
konnen Sie diese Punkte auch auf dem Bildschirm erken- 
nen. 
Zwei Fragen stellen sich aus dieser Erkenntnis heraus: 

- Kann man eigene Zeichen erstellen und verwenden? 

- Gibt es eine Moglichkeit, statt jeweils auf solch ein 8x8- 
Raster auch auf einzelne Punkte einzuwirken? 

Die erste Frage wird im Abschnitt uber den VIC-Chip be- 
antwortet. Hier sei nur erwahnt, daB es mdglich ist. 

Die zweite Frage f iihrt uns zu den anderen Grafik-Modi. 
Der Hochauflbsungsmodus 

Wir hatten festgestellt, daB wir im Textmodus (40 Zei- 
chen) immer nur (beispielsweise durch POKE 1024,1) auf 
ein 8x8-Punkte-Raster zugreifen konnen. Die Auflbsung 
unseres Bildschirms betragt in diesem Zustand 40 x 25 Zei- 
chen. Es gibt noch einige Tricks, eine sogenannte Viertel- 
punktgrafik zu entwerfen, in der die auf der Tastatur vorge- 
gebenen Grafikzeichen (beispielsweise mit <CBM+C> 
zu erhalten) geschickt verwendet werden. Es juckt aber in 
den Fingern, jeden Bildpunkt eines soichen 8 x 8-Zeichens 
einzeln anzusprechen. Das ist tatsachlich mittels dem Gra- 
fikmodus 1 (und auch 2) moglich, der durch GRAPHIC1 an- 
wahlbar ist. Dam it erhoht sich die Auflbsung ganz erheb- 
lich: 

320 horizontale und 200 vertikale Bildschirmpositionen 
stehen uns hier zur Verfugung. Wir haben den sogenann- 
ten Bit-Map-Modus eingeschaitet. 

Das Prinzip ist dabei folgendes: Jedem Bildpunkt ent- 
spricht ein Bit eines Speicherberetches, der Bit-Map. Ist in 
dieser Bit-Map ein Bit gleich 1 , dann erscheint an der dazu- 
gehdrigen Bildschirmposition ein Punkt (das ist wie das 
Eintragen von Gelandeeinzelheiten in eine Landkarte, da- 
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herder Name Map = Landkarte). Jeweifs 8 Bit ergeben ein 
Byte, woraus sich auf die GroBe der Bit-Map schlieSen laBt: 
(320*200)/8 = 8000 Byte. 

Alles, was auf dem Bildschirm erscheint, ist der Inhalt 
dieser Bit-Map, die durch den GRAPHICI-Befehl eingerich- 
tet wird. Wo befindet sie sich? Wenn Sie sich mai vor und 
nach dem Einrichten der Bit-Map durch PRINT FRE(O) den 
freien Speicherplatz ausgeben iassen, dann erkennen Sie 
folgendes: In der BANK 0, also dem Basic-Textspeicher, 
wird einiges verandert. Normalerweise (also ohne Bit-Map) 
beginnt der Basic-Text in Speicherstelle $1C00 (dezimal 
7168). GRAPHIC1 schiebt den Textstart (und ein eventuell 
schon im Speicher befindliches Programm) in Windeseile 
bis $4000 (dezimal 16384). Die Bit-Map beginnt ab $2000 
(dezimal 8192). 

GRAPH IC1 legt aber nicht nur eine Bit-Map an und schal- 
tet den Videochipauf den speziellen Grafikmodus urn, son- 
dern definiert auch ein Koordinatensystem auf dem Bild- 
schirm, das sich aus der Bit-Anordnung des Bildes ergibt, 
Sehen Sie dazu das Bild 3. 




Bild 3. Das Koordinatensystem im Hi Res-Modus 

Wir finden einen Koordinatenursprung in der linken obe- 
ren Bildecke, eine nach unten weisende Y-Achse und eine 
nach rechts verlaufende X-Achse: Ein solches linkshandi- 
ges System bereitet dem Anwender manchmal einige Pro- 
bleme, weil in der Mathematik ein rechtshandiges System 
eingesetzt ist (da ware dann der Ursprung unten links zu fin- 
den und die Y-Achse verliefe nach oben). Alle Zeichenbe- 
fehle beziehen sich im Normalfall auf die so festgelegten 
Koordinaten. Ein Befehl 
DRAW 1,0,0 TO 319,199 

(zu den Einzelheiten kommen wir noch) zeichnet also eine 
Linie von links oben nach rechts unten. 

Wir haben noch nicht erwahnt, wie der Computer die Far- 
ben in diesem Modus festlegt. Das soil beim COLOR- 
Befehl behandelt werden. Auf Koordinatensysteme kom- 
men wir beim SCALE-Befehl noch einmal zuriick. 
Die Mehrfarbengrafik 

Wahrend in den Grafik-Modi 1 und 2 jedes gesetzte Bit 
in der Bit-Map einen Bildpunkt nach sich zieht, ist die Mehr- 
farbengrafik (Modi 3 und 4) immer auf Bit-Paare orientiert. 
Die Bit-Map hat zwar als Karte des Bildschirminhaltes ihre 
Bedeutung beibehalfen, aber sie wird vom VIC-Chip nun 
anders gelesen. Es existieren vier Moglichkeiten von Bit- 
kombinationen zu je zwei Bit: 

00 Hintergrund 

01 Farbe 1 

10 Farbe 2 

1 1 Farbe 3 

Auf welche Weise welche Farbe angesprochen wird, soil 
uns beim COLOR-Befehl weiter besehaftigen, Hier interes- 
siert uns die Auswirkung auf die Auflosung. 

Weil in der X-Richtung nun nur noch Bit-Paare zahlen, 
halbiert sich die Auflosung. Das Koordinatensystem der 




sichtbarer 
Bildschirm 



Bild 4. Das Koordinatensystem im Multicolor-Modus 

Multicolorgrafik ist ebenso aufgebaut wie das der hochauf- 
losenden Grafik, lediglich in X-Richtung stehen uns nur 
noch 160 Positionen zur Verfugung. Bild 4 zeigt uns dieses 
neue Koordinatensystem. 
Die Splitscreens 

In den Grafik-Modi 2 und 4 wird der Bildschirm in halt 
durch jeweils zwei verschiedene Betriebsarten des VIC- 
Chip gewonnen.lmoberenTeil sehen wir den Inhalt der Bit- 
Map, im unteren aber 40-Zeichen-Text. Dies wird erreicht 
durch die sogenannte Rasterzeilenunterbrechung. Auch 
im C64-Modus kann mittels eines Maschinenprogramms 
diese Aufteilung des Bildschirms programmiert werden. 
Dabei gab es immer ein Problem, das mit der Bearbei- 
tungszeit zusammenhing. Die Rasterzeilenunterbrechung 
und die normale Unterbrechung (die 60mal pro Sekunde 
stattfindet) durften sich nicht gegenseitig In die Quere kom- 
men. Diese Schwierigkeit konnte im Programmbetrieb mei- 
stensganz gut gelost werden. Im Direktmodusfuhrtenaber 
Cursorbewegungen und die Arbeit mit Sprites oft zu einer 
zittrigen Grenze der beiden Darstellungsmodi auf dem 
Bildschirm. Dasselbe Problem scheint im C128-Modus da- 
fur verantwortlich zu sein, daB diese Grenze manchmal ge- 
radezu extrem gestort wird, beispielsweise beim Steuern 
von Sprites uber die Splitscreengrenze im Grafikmodus 4. 

Beim Einschalten eines Splitscreen befindet sich der 
Textcursor nicht automatisch im Textbereich. Er muB erst 
dorthin gefahren werden. Zwei Moglichkeiten bieten sich 
hier an: Zum einen kann ein PRINT AT simuliert werden 
durch: 

BANK 15:SYS 65520, ,Zeile,Spalte 

Zum anderen bietetsich die Definition eines Bildschirm- 
fensters unter Benutzung des WINDOW-Befehls an. Man 
legt dann einfach den gesamten Textbereich als WINDOW 
fest. Ist also kejne spezielle Trennzeile angegeben worden 
(dann tritt der Ubergang von Grafik zu Text in Zeile 19 ein), 
kann das durch 

WINDOW 0,20,^9,24 

geschehen. Ubrigens bleibt das Bildschirmfenster auch 
nach einer RiJckkehr in den Textmodus erhalten. Wird das 
nicht gewiinscht, kann durch 

WINDOW 0,0,39,24 

der gesamte Bildschirm wieder benutzt werden. 

Der 80-Zeichen-Textmodus 



Sollten Sie stolzer Besitzer eines 80-Zeichen-Monitors 
sein, dann konnen Sie durch GRAPHICS die Textausgaben 
auf dessen Bildschirm lenken. Interessanterweise ist es 
nun moglich, zwei getrennte Anzeigen zu erhalten, bei- 
spielsweise die Multicolorgrafik auf dem 40-Zeichen- 
Schirm und die Textausgaben auf dem 80-Zeichen-Monitor. 
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Die Splitsereen-Optionen braucht man dann nicht mehr - 
sie sind sogar htnderlich, weil sie die Ausgabe von Text wie- 
der auf den 40-Zeichen-Schirm lenken und uns die Muhe 
machen, den verringerten Grafikausgabebereich zu be- 
rucksichtigen (die Y-Achse wird ja nun ab Zeile 19 uber- 
deckt vom Textbereich). 

Die Textdarstellung auf dem 80-Zeichen-Schirm folgt et- 
wa dem gieichen Prinzip, wte wir es schon beim 40-Zei- 
chen-Text kennengelernt haben - mit folgenden Unter- 
schieden: 

Zunachst benutzt unser Computer jetzt einen anderen 
Videobaustein, den VDC 8563. Wir werden diesen Video- 
chip an anderer Stelle noch etwas genauer kennenlernen. 

Der Bildschirmspeicher ist nirgendwo im Bereich der 128 
KByte unseres Computers zu finden, die wir direkt anspre- 
chen konnen (durch PEEK oder mittels Monitor). Ebenso- 
wenig werden wir einen Hinweis auf den Farbspeicher fin- 
den. Woran iiegt das? Immerhin brauchen wir doch 80 x 25 
Byte, also 2000 fiir das Bildschirm-RAM und ebenso viefe 
Byte fur die Farbzellen. Da sind wir auf eine Besonderheit 
des VDC-Chip gestoBen: Er benutzt einen eigenen 
16-KByte-RAM-Bereich, der vdllig getrennt vom normalen 
Speicher existiert und von uns nur uberzwei Speicherstel- 
len ansprechbar ist. Welche das sind und wie man sie be- 
nutzt, soli ebenfalls beim VDC besprochen werden. Hier 
nur die Aufteilung dieses Speichers: 
0000 bis 2047 Bildschirm-RAM 
2048 bis 4095 Attribut-RAM 
4096 bis 8191 frei 
8192 bis 16385 Zeichenspeicher 

Zur Bedeutung des Bildschirm-RAM braucht nichts mehr 
gesagt zu werden. Das Attribut-RAM entspricht etwa dem 
Bildschirmfarbspeicher, birgt aber noch mehr Moglichkei- 
ten in sich. Weil wir alle Aspekte der Farbgebung der ande- 
ren Modi beim COLOR-Befehl behandeln werden, mit die- 
sem Befehl aber das VDC-Attribut-RAM nicht erschdpfend 
erfafit werden kann, soil hier diese VDC-Speziaiitat erklart 

Besonderheiten des VDC 



werden. Zuvor noch ein paar Worte zum Zeichenspeicher. 
Wahrend im 40-Zeichen-Textmodus ein Zeichenmuster 
aus dem Character-ROM entnommen wird, ist das im 
80-Zeichen-Textmodus nicht der Fall. Vielmehr findet hier 
schon in der Einschaltphase ein Kopieren aller Zeichen in 
den speziellen VDC-RAM statt. Von dort stammen nun 
auch die Zeichenmuster. Sie kennen sicher schon die Er- 
scheinung, daB beispielsweise beim Umschalten auf den 
DIN-Zeichensatz (mit der CAPS/LOCK-Taste) einige Zeit 
verstreicht, bis alle Zeichen im neuen Gewand zu sehen 
sind: Das Iiegt daran, daB der gesamte Zeichensatz umko- 
piert werden muB. Im Bereich 8192 bis 16385 finden sich 
danach nur noch die DIN-Zeichen muster. 

Es wird sicher Ihrer Aufmerksamkeit nicht entgangen 
sein, daB hier die Rede von RAM ist im Gegensatz zum 
Zeichen-ROM, das bei der 40-Zeichen-Textdarsteliung ei- 
ne Rolle spieit. Wenn wir wissen, wie man dieses VDC- 
RAM ansprechen kann, wird uns nichts daran hindern, 
auch in den Speicherbereich des Zeichensatzes hineinzu- 
schreiben. So konnen dann eigene Zeichen definiert wer- 
den. 

Kommen wir nun aber zuruck zum Attribut-RAM. Jeder 
Bildschirmspeicherstelle entspricht ein Byte dieses Attri- 
butbereiches. Durch dieses Byte aber wird noch mehr ge- 
steuert als die Farbe, was Sie am Aufbau solch einer Spei- 
chersteiie erkennen konnen (siehe Bild 5). Die Bits bis 3 
bestimmen die Farbe, was wir gleich noch untersuchen 
wollen. 



Bit 4: Ist hier eine 1 zu finden, dann blinkt das Zeichen. 

Bit 5: Das Zeichen ist unterstrichen, wenn hier eine 1 ent- 
halten ist. 

Bit 6: Hiermit wird ein Aspekt der Zeichendarstellung 
»doppelt gemoppelt«: Die Revers-Darstellung. Eigentlich 
kann namlich durch Einschreiben einer »1« an diese Stelle 
genau dasselbe erreicht werden, wie durch das ansonsten 
etwas speicherfressende Verfahren eines gesonderten 
Zeichen musters, mit dem momentan die inversen Zeichen 
gezeichnet werden. 

Bit 7: Im Gegensatz zum 40-Zeichen-Textmodus, der die 
GroB- und Kleinschreibung nur durch Umschalten (per 
CBM + SHIFT-Taste) erlaubt, kflnnen im 80-Zeichen- 
Modus beideZeichensatze gleichzeitig verwendet werden. 
Welches von den beiden moglichen Zeichen auf dem Bild- 
schirm zu sehen ist, entscheidet dieses Bit. Liegt hier eine 



Bit: 


7 


6 


5 


4 


3 


2 


1 





Name; 


ALT 


RVS 


UL 


FL 


R 


G 


B 


' 



Bild 5. Aufbau elnes Attribut-RAM-Byte 

1 vor, dann stammt das sichtbare Muster aus dem zweiten 
Zeichensatz. 

NunzudenFarb-Bits. Im Bild 5 sind diese mit R, G, Bund 
I bezeichnet. Dabei steht R fiir Rot, G fiir Grun, B fiir Blau 
undschlieBlich I fur Intensitat. Je nach Mischungder Signa- 
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entspricht 
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G 


B 


I 


dez. 


Farbe 


Farbcode im 
40-Z.-Modus 
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schwarz 


1 













1 


1 


d'grau 


12 







O 


1 





2 


blau 


7 










1 


1 


3 


h'blau 


15 







1 








4 


grun 


6 







1 





1 


5 


h'grfln 


14 







1 


1 





6 


turkis 


4 







1 


1 


1 


7 


orange 


9 




1 











8 


rot 


3 




1 








1 


9 


h'rot 


11 




1 





1 





10 


lila 


13 




1 





1 


1 


11 


violett 


5 




1 


1 








12 


braun 


10 




1 


1 





1 


13 


gelb 


8 




1 


1 


1 





14 


h'grau 


16 




1 


1 


1 


1 


15 


weiS 


2 



Bild 6. Zuordnung der Bit-Kombinationen zu den Farben 
(stark vom verwendeten Monitor abhangtg!) 

le, die durch unterschiedliche Bitbelegungen der vier Bit er- 
zeugt werden, ergeben sich die 15 moglichen Farbdarstel- 
lungen. Bild 6 zeigt alle Kombinationen. 

All diese einzelnen Aspekte, die das Attribut-RAM er- 
laubt, konnen durch CHR$- oder/und ESC-Befehle ange- 
steuert werden. So erzeugt 
PRINT CHR$(2)"A" 

ein unterstrichenes und 

PRINT CHR$(27)+" , F"; "A" 

ein blinkendes A. Das Handbuch gibt ab Seite 4-4 erschop- 
fend dariiber Auskunft. 

Eine kleine Besonderheit ist allerdings vergessen wor- 
den: 

Falls Sie einmal <CTRL+S> drucken, wahrend ein Pro- 
gramm lauft, halt dieses sofort an. Damit haben wir eine 
Pausentaste im Computer. Erst nach einem beiiebigen an- 
deren Tastendruck arbeitet der Computer weiter. 
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GRAPHIC CLR 

Eine Version des GRAPHIC-Befehls wurde Ihnen bisher 
noch verschwiegen. Mit GRAPHIC CLR fuhren Sie den 
Computer wieder in den reinen Textmodus zuruck. Sie wer- 
den sagen, dafl dazu doch die Beiehle GRAPHICO Oder 
GRAPHICS ausreichen. Das stimmt aber nur in Grenzen. 
Falls einmal einer der Grafik-Modi 1 bis 4 eingeschaltet 
wurde, damit also der ganze Speicher in BANK verandert 
ist, bleibt die Bit-Map und der Basic-Start bei $4000 erhal- 
ten. Das erkennen Sie beispielsweise daran, da6 - falls Sie 
nicht mit einer der Loschfunktionen das Bitmuster geloscht 
haben - durch beispielsweise GRAPHIC1 auf dem Bild- 
schirm immer noch dasGrafikbild auftaucht, das Sie vorher 
einmal erstellt haben. 

Erst durch den Befehl GRAPHIC CLR krempeln Sie die 
BANK unseres Speichers wieder vollig um. Der Basic- 
Start wandert wieder nach $1C00, die Bit-Map wird uber- 
schrieben. 

COLOR 



Wir kommen nun zur Farbgebung in den verschiedenen 
Modi. Im Befehl 

COLOR A,B 

bedeutet A das folgende: 

A=0 Hintergrund im 40-Zeichen-Textmodus und in den 
Grafik-Modi, 

A=1 Vordergrundfarbe in den Grafik-Modi. Im Multicolor- 
modus wird damit die Farbe der Bitkombination 01 belegt. 

A=2 Multicolorfarbe 1. Das betrifft die Farbe der Bit- 
Kombination 10. 

A=3 Multicolorfarbe 2, diesich auf die Bitkombination 11 
bezieht. 

A=4 Farbe des Bildschirmrahmens. 

A=5 Zeichenfarbe im Textmodus. Damit wird sowohl im 
40- als auch im 80-Zeichen-Text die Zeichenfarbe be- 
stimmt. 

A=6 Hintergrund des 80-Zeichen-Biidschirms. 

B ist der Farbcode. Je nach Fabrikat, eingestelltem Kon- 
trast, Helligkeit und anderen Geratespezifika variiert die 



Farbe 


Code 


Farbe 


Code 


Schwarz 
Weil? 
Rot 
TUrkis 
Violett 
Grun 
Blau 
Gelb 


1 
2 
3 
4 
5 
6 
7 
8 


Hell braun 

Braun 

Rosa 

Dunkelgrau 

Grau 

Hellgriin 

Hellblau 

Hellgrau 


9 

10 
11 
12 
13 
14 
15 
16 


Blld 7. Farfaen und Coc 


e-Num 


mern 





dargestellte Farbe. Der Code und die angegebenen Farben 
dienen daher eher als ungefahrer Richtwert. Bild 7 zeigt die 
Zuordnung der verschiedenen Werte. 

Sehen wir uns nun die Farbgebung etwas genauer an: 
Die Farbspeicher 

Sowohl einzelne Speicherstellen als auch groBere RAM- 
Bereiche spielen eine Rolle bei der Farbzuordnung. Einen 
RAM-Bereich haben wir schon beim Textmodus erwahnt: 
Den Bildschirmfarbenspeicherzwischen 55296 und 56295 
(SD800 bis $DBE7). Anders als beim VDC-Attribut-RAM 
spielen hier nur die Bits bis 3 eine Rolle. Die oberen 4 Bit 
sind unbenutzt und unterliegen einem standigen Wandel. 
Versuchen Sie einmal mittels Monitor und dem Kommando 
»M FD800* mehrmals hintereinander in dieses Farb-RAM 
zu sehen. Im Einschaltzustand finden Sie allerlei Werte 
zwischen 0D und FD, denen aber alien das niederwertige 
Nibble D eigen ist. 



Als weiterer RAM-Bereich liegt - bisher noch nicht er- 
wahnt - in den Grafik-Modi 1 bis 4 ein Farbspeicher fiir die 
Bit-Map vor, der von 7168 bis 8167 ($1 COO bis $1FE7)reicht. 
Parallel zur Einrichtung der Bit-Map sorgen die GRAPHIC- 
Befehle auch fiir die Zuordnung dieses Farb-RAM. Wie Sie 
sehen, enthalt der Farbspeicher lediglich 1000 Byte Spei- 
cherpiatz. Die Farbzuordnung geschieht also weiterhin wie 
im Textmodus, namlich Pixel fur Pixel (wobei jedes Pixel in 
der Form des 8 x 8-Rasters gehandhabt wird). So konnen 
Sie zwar auch im Hochauflosungsmodus in verschiedenen 
Farben auf den Bildschirm zeichnen (einfach, indem 
COLOR1 vor dem Zeichenbefehl eine andere Farbe erhalt), 
sobald aber die Zeichnung geniigend dicht an eine andere 
heranreicht, wechsett an der Stelle das gesamte Pixel sei- 
ne Farbe, also auch der darin verlaufende Teil der alten 
Zeichnung. 

Der Aufbau der einzelnen Bytes dieses RAM-Bereichs 
hangt von der Art des eingeschalteten Grafikmodus ab. In 
der Hochaufldsungsgrafik enthalt das LSN (das sind die 
Bits bis 3, also das untere Nibble) einen Code fiir die Hin- 
tergrundfarbe, wohingegen das MSN (die Bits 4 bis 7, das 
obere Nibble) den Code fiir die Vordergrundfarbe darstellt. 
Der verwendete Codeergibtsich jeweils aus dem Farbcode 
(vorhin als B bezeichnet) minus 1. 

Im Mehrfarbenmodus dagegen finden wir im LSN die 
Multicolorfarbe 1 (als Farbcode-1), Das MSN bleibt un ver- 
andert. 

Ubrigens ist dieser In halt des Farb-RAM erst dann vor- 
handen, wenn auf irgendeine Weise ein Loschvorgang 
stattgefunden hat, beispielsweise durch GRAPHICAL Vor- 
her - also dann,. wenn dieser Speicher lediglich durch 
GRAPHIC1 eingerichtet, aber nicht geldscht wurde - kon- 
nen Sie dort nur wirres Byte-Durcheinander erkennen, falls 
Siesich mittels dem Monitorkommando M den Speicherbe- 
reich ansehen. 

Zwei Speicherstellen in der PAGE 3 korrespondieren mit 
dem eben vorgestellten Farb-RAM: 
$3E2 (dezimal994) FG-BG 
$3E3 (dezlmal995) FG-MC1 

FG-BG hangt mit der hochauflosenden, FG-MC1 mit der 
Multicolorgrafik zusammen. Im Einschaltzustand finden 
wir in diesen beiden Speicherzeilen: 

$3E2: $DB = bin. 1101 1011 

t 1 

13 / 11 
h'griln-l /d'grau-1 
Vordergr . /Hintergr . 
$3E3: $D1 = bin. 1101 0001 

! ! 

13/1 
h'grQn-1 / weifi-1 
Vordergr, /Multicolorl 

Mit diesen Werten wird das Farb-RAM belegt, sobald ein 
Grafikmodus 1 bis 4 eingeschaltet wird und ein Loschvor- 
gang stattfindet. Sobald aber durch einen COLOR-Befehl 
andere Farben gewahlt werden, druckt sich diese Ande- 
rung in diesen beiden Speicherstellen aus, und der nachste 
Loschvorgang belegt das Farb-RAM mit dem Inhalt derent- 
sprechenden Speicherstelle. 

Da ergibt sich allerdings ein Problem: Nehmen wir an, wir 
hatten den Grafikmodus 1 eingeschaltet und wollen nun in 
den Multicolormodus (3) umschalten. Das ist zwar ohne 
weiteres moglich, aber die Farben werden erst dann umge- 
schaltet (also das Farb-RAM erst dann mit dem Code aus 
$3E3 belegt), wenn ein Loschvorgang stattgefunden hat. 
Dann ist aber auch die Bit-Map geloscht! Diese Schwierig- 
keit kann auf einigen Umwegen gelost werden. Wie, das 
werden wir nachher noch sehen. 

Vier Zeropage-Speicherstellen spielen in der Farbge- 
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bungeinewichtigeRolle: $83 bis $86 (dezimal 131 bis 134): 

$83 COLSEL aktuelle Farbe 

$84 MULTICOLOR1 Multicolorfarbe 1 

$85 MULTICOLOR2 Multicolorfarbe 2 

$86 FOREGROUND Vordergrundfarbe 

Im Einschaltzustand findet man in $83 den Wert 0, in $84 
eine 1 (also Farbcode von weiB-1), in $85 steht 2 (das ist 
rot-1) und in $86 liegt D (13, was hellgrun-1 bedeutet). 

COLSEL enthalt nach jedem Grafikbefehl die darin an- 
gegebene Farbquellenziffer (die wir noch kennenlernen). 

Aus dem C64-Modus sind Ihnen zwei Speicherstellen 
des VIC-Chip sicher bekannt: 
$D020 dezimal 53280 Rahmenfarbe 
$D021 dezimal 53281 Hintergrundfarbe 

Auch im C128-Modus haben die Speicherstellen diese 
Bedeutung. Im Einschaltzustand finden wir die Farben im 
LSN: 

$D020 enthalt $FD = binar 1111 1101 
hellgrun-1 

$D021 enthalt $FB = binar 1111 1011 
dunkelgrau-1 

Nun kennen wir die beteiligten Speicher. Welche Auswir- 
kungen hat der COLOR-Befehl? 

Fassen wir die bis jetzt gewonnenen Erkenntnisse zur 
Farbgebung der Grafikbildschirme zusammen: 

COLOR 0,X belegt den Hintergrund mit der Farbe X. Die 
Bits bis 3 von $3E2 enthalten den Wert X-1. 

Die Bits bis 3 von $D021 werden ebenfalls mit X-1 be- 
schrieben. 

COLOR 1,X bestimmt die grafische Vordergrundfarbe. In 
$86 erschetnt X-1 . 

Die Bits 4 bis 7 der Speicherstellen $3E2 und $3E3 ent- 
halten danach X-1. 

COLOR 2,X legt die Multicolorfarbe 1 fest. $84 hat nun 
X-1 zum In halt. 

In den Bits bis 3 der Speicherstelle S3E3 befindet sich 
ebenfalls X-1. 

COLOR3.X bestimmt die Multicolorfarbe 2. In $85 befin- 
det sich danach der Wert X-1. 

SchlieBlich wird bei eingeschaltetem Grafikmodus 1 bis 
4 durch einen Loschvorgang der Speicherbereich $1CO0 
bis $1FE7 (dezimal 7168 bis 8167) beschrieben mit 

- dem Inhalt von $3E2 bei den Modi 1,2 

- Oder dem Inhalt von $3E3 in den Multicolor-Modi 3 und 4. 
Wir werden nun ausprobieren, welche Bitpaarkombina- 

tion welcher Farbe im Multicolormodus entspricht. Dazu 
schreiben wir an den Anfang der Bit-Map drei Zahlen, die 
diese drei moglichen Kombinationen reprasentieren: 

binar 1111 1111 = dezimal 255 (Kombination 11) 
binar 1010 1010 = dezimal 170 (Kombination 10) 
binar 0101 0101 = dezimal 85 (Kombination 01) 

Die Kombination 00 entspricht der Hintergrundfarbe. Das 
Programm MULTICOLORTEST1 (Listing 1) fragtzunachst 
nach den von Ihnen gewunschten Farben. 

Die Reihenfolge der Angaben folgt dabei den verschie- 
denen A-Kennungen des COLOR-Befehls, die wir vorhtn 
verwendet haben. In Zeile 20 werden die von Ihnen ge- 
wunschten Farben dann in die Register geschrieben, in 
Zeile 30 der Mehrfarbenmodus eingeschaltet und das 
Farb-RAM beschrieben. Die Zeilen 40 bis 60 tragen die 
oben ermittelten Bitkombinationen in die ersten Platze der 
Bit-Map ein. Die folgenden CHAR-Befehle (die lernen wir 
noch kennen) schreiben nun jeweils in einer der drei Far- 
ben einen Ortentierungstext auf den Bildschirm. Ubrigens 
sieht der Text manchmal in diesem Modus etwas merkwiir- 
dig aus: Die Zeichenmuster sind namlich nicht fur die Bit- 
paardarstellung entworfen. Aus dem Programm folgt eine 
rechteinpragsame Regel: Der Dezimalwert einer Bitkombi- 



nation ist die Kennung A des dazugehorigen COLOR- 
Befehls. Erklarung: 

Die Bitkombination 00 wird mittels COLOR0,... farblich 
festgelegt, die Bitkombination 10 (das ist dezimal 2) folgt in 
der Zeichnung der Farbe, die durch COLOR2,.,. definiert 
wird, und so welter. 
Nun konnen wir zusammenfassen: 

Im hochauflosenden Modus folgt die Farbgebung dem 
Schema in Bild 8. 

Im Mehrfarbenmodus kommt die Hintergrundfarbe (bei 



3 REM ♦»«» MULTICOLQRTEST 1 #»*»« <6K0> 

10 INPUT "FARBEN F0,F1 ,F2,F3" \ F0,F1 ,F2,F3 <6D5> 

20 COLOR 0,FBi COLOR 1,F1: COLOR Z,FZ: COLOR 3,F3 <K47> 

30 GRAPHIC 3,tt SCNCLR 3 <T9»> 
40 BANK 02 POKE DEC < "2900") ,235 I POKE DEC ("2»ei " ) 

,255 <««C> 

50 POKE DECT' 2002") ,170; POKE DEC ("2»03" 1 , 170 <RA4> 

60 POKE DECC*20e4™I ,B5: POKE DEC("2005") ,85 <FJ3> 

70 CHAR 1 ,10, 10, "OBEN :11" <r£ZK> 

60 CHAR 2, 10,13,"MITTE: 10" <TMJ> 

90 CHAR 3,10,16,"UNTENlM" <91K> 



Listing 1. »MULTICOLORTEST 1« - welche Bit-Kombi nation 
gehort zu welcher Farbquelle? Bitte mit dem Checksummer 
128 (Selte 158) eigeben. 



Bit: 


7 


6 


5 


4 


3 


2 


1 


O 


bestimmt: 


Vordergrund 


Hintergrund 


Blt-Map-ln*i.: 


1 





Farbbefehl: 


Color 1,... 


Color 0,,.. 



Bild 8. Ein Byte aus dem Farb-RAM ab S1CO0 In den Grafik- 
Modi 1 und 2 



Bit: 


7 6 


5 


4 


3 


2 


1 





bestimmt: 


Vordergrund 


Multicolorfarbe 1 


Bit-Kombination : 


01 


10 


Farbbefehl: 


Color 1,... 


Color 2,... 



Bild 9. Ein Byte aus dem Farb-RAM ab $1CO0 in den Graf ik- 
Modi 3 und 4 

00) aus der Speicherstelle 53281, die Farben der Kombina- 
tionen 01 und 10 werden gemaB dem Schema in Bild 9 ver- 
teilt. 

Woher kommt die Farbe der Bitkombination 11? Wir ha- 
ben festgesteilt, da6 diese Farbe in der Speicherstelle $85 
festgehalten wird. Im C64-Modus wird sie aus dem norma- 
len Text-Farb-RAM (ab $D800) entnommen. Uberpriift man 
aber im C 128-Modus diesen Speicherbereich, dann ist dar- 
in nur die normaleTextfarbe zu finden. Hier muB also ein an- 
deres Prinzip der Farbgebung verfolgt werden. Versuche 
zeigen , daB auch die Multicolorfarbe 2 pixelweise vergeben 
wird, was auf ein weiteres Farb-RAM schlieBen lassen 
konnte - aber die Suche danach verlauft ergebnislos. Diese 
Frage kann won! erst dann geklart werden, wenn eines Ta- 
ges ein ROM-Listing des Basic-interpreters zur verfugung 
steht, Solange birgt unser Computer noch einige Geheim- 
nisse. 
Farbwechsel 

Zwei Aspektesind es nun noch in bezug auf Farbgebung, 
die uns interessieren: 

- Kann man rnehr als vier Farben verwenden? 

- Kann man in einem fertigen Bild die Farben andern? 
Der erste Aspekt ist sicher erfullbar, denn ebenso, wie 
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das Farb-RAM des Textbildschirms durch POKE-Befehle 
Zelle fur Zelle ansprechbar ist, ist es auch das Grafik-Farb- 
RAM ab $1C00. Allerdings muB man sich gut iiberlegen, 
was man hier hineinschreibt: Sowohl die Bits bis 3 ats 
auch die Bits 4 bis 7 haben ja eine Bedeutung , wie wir gese- 
hen haben. 



3 REM »««• MULTICOLQRTEST 2 *»»»* 
10 INPUT "FARBEN F9,F1 ,F2,F3» ; F0,F1 ,F2,F3 
29 COLOR 9,F0s COLOR 1,F1: COLOR 2,F2! COLOR 3,F3 
39 GRAPHIC 3, Is SCNCLR 3 

49 BANK 9i POKE DEC ( "2900" > ,255i POKE DEC ("2991") 
,2SS 

59 POKE DEC < "2092") , 179= POKE DEC (" 2003"), 170 

60 POKE DEC ( "2904" > ,B5i POKE DEC ( "2605" J ,BS 
79 CHAR 1,19,10, "OBEN : 1 1 - 

89 CHAR 2,10,^3,"HITTE:le• 

90 CHAR 3, 19, 16,"UNTEN:91" 

190 PRINT "NEUE FARBEN FUER 1 UND 2| " 
119 INPUT "Fl,F2="iFl,F2i FI=Fl-li F2=F2-1> F=16* 
F1+F2 

129 PRINT CHR* (147) CHR* < 171 

130 PRINT "MONITOR" CHR*<17> CHR*(17> CHR*(171 CH 
R*I17> 

149 PRINT "F 0IC99 01FE7 " HEX*(F> 

159 PRINT "X" CHR* (17) 

160 PRINT "RUN299" 
170 PRINT CHR*U9>) 

100 BANK 0! POKE 842,131 POKE 843,13: POKE B44, 13 
: POKE 043,13: POKE 286,4: END 

199 i 

200 PRINT CHR*U47) CHR*<17) "DAS WARS!" 



<6K0> 
<6D5> 
<K47> 
<T99> 

<0NC> 
<RA4> 
<FJ3> 
<K2K> 
<TNU> 
<91K> 
<V35> 

<5CG> 
<3B7> 

<BCH> 
<4EL> 
<5RN> 
<M73> 
<KEN> 

<TAO> 
<6SR> 
<K6P> 



J 



Listing 2. .-MULTICOLORTEST 2« - ein fertiges Bild andert 
seine Farfoen. Bitte mit dem Checksummer 128 (Seite 158) 
eigeben. 



19 REM »*»•* HIRES-FARBAENDERUNGEN *•#«)! 


<A99> 


29 INPUT "FARBEN F9,F1";F0,FI 


<5Mb> 


39 COLOR 0,F0: CDLOR 1 ,F1 


<KEF> 


49 GRAPH I C 1,1: SCNCLR 1 


<R1T> 


59 BOX 1,19,19,199,199,9,1: BOX 0,20,20,39,30,0,1 


<UJ9> 


60 PRINT "NEUE FARBEN FUER 9 UND 1 1 " 


< 7KU > 


7« INPUT ,, F0,F1="jF9,F1i F9=F9-li Fl=Fl-l5 F=16*F 




1+F9 


<B3L> 


89 PRINT CNR* (147) CHR*U7! 


<ER7> 


99 PRINT "MONITOR" CHR*(17> CHR*(17) CHR*(17> CHR 




*(17) 


<ESB> 


199 PRINT "F 9109© 91FE7 " HEX*(F» 


<KEL> 


110 PRINT "X" CHR* (17) 


<4RJ> 


120 PRINT "RUN160- 


<M33> 


130 PRINT CHR* (19); 


<K6M> 


149 BANK 9: POKE 842,13s POKE 843,13s POKE B44.13 




: POKE 845,13: POKE 29B,4s END 


<aas 


159 : 


<0S3> 


160 PRINT CHR* (147) CHR* (17! "DAS WARS!" 


<KEP> 



Listing 3. -HIRES-FARBAENDERUNGEN* - ein Bild in den 
Graf ik-Modi 1 und 2 andert seine Farben . Bitte mit dem 
Checksummer 128 (Seite 158) eingeben. 

Eine andere Moglichkeit ist es, mittels des COLOR- 
Befehls eine oder mehrere Farben (Vordergrund, 
Multicolor! oder 2) zu andern und dann mittels eines 
Grafik-Befehls eben diese Farbqueiie aufzurufen (dazu 
kommen wir noch). Hier ist zu beachten, daB sich die grafi- 
schen Objekte, diedamitgezeichnetwerden, nichtzu nahe 
kommen, weil ja immer ein ganzes Pixel umgefarbt wird 
und daher auch schon vorhandene Bildteiie unter Umstan- 
den die neue Farbe annehmen. 

Wesentlich schwieriger ist es allerdings, ein Bild, dessen 
Farbgebung uns nicht gefSllt, umzufarben. Nehmen wir an, 
ein Multicolor-Bildschirm triige Farben, die wir verandern 
wollen. Was ware zu tun? 

Die Farbe aller Bitpaare 00 laBt sich einfach durch CO- 
LOR 0,.,. umschalten. Andere COLOR-Befehle fur die drei 
restlichen Farben Oder auch fur die Vordergrund- und die 
Hintergrundfarbe im hochauflosenden Modus fiihren zu 
keinem Ergebnis: Erst ein Loschvorgang ergabe die Neu- 
belegung des Farb-RAM, wodurch aber auch die Bit-Map 
frei und unser Bild zerstort wurde. Da scheint nur eine 
Schleife Abhilfe zu bringen, die den Farbspeicher neu 



schreibt. Nehmen wir an, unsere neue Vordergrundfarbe 
hieBe F1 und die neue Hintergrund- (in den Grafik-Modi 1 
und 2) oder Multicolorfarbe 1 (im Grafikmodus3oder4) wa- 
re F2. Dann haben wirzunachst dieGestalt eines Bytes aus 
dem Farb-RAM zu bestimmen: 

F1=F1-1:F2=F2-1 

Das Byte ware dann: 
16*F1+F2 

Die Schleife lautet nun: 

FOR 1=7168 TO 8167: POKE I,l6«Fl+F2:NEXT I 

So etwas dauert naturlich eine Weile und wir konnen 
ganz gemachlich zusehen, wie von oben nach unten die 
Farbwechsel stattfinden. 

Etwas schneller geht das mit einem Trick, der im Ab- 
schnitt zu den selbstmodifizierenden Programmen erklart 
wird. Die beiden Programme MULTICOLORTES72 (Listing 
2) und HIRES-FARBAEND (Listing 3) zeigen Ihnen das Ver- 
fahren. 

Beide Programme zeichnen zunachst etwas auf den 
Bildschirm und fragen dann nach den gewunschten neuen 
Farben. Falls Sie nur mit einem Bildschirm arbeiten.sollten 
Sie noch die Umschaltung auf den Textbildschirm 
(GRAPHICO vor der Frage) und hinterher wieder auf den 
Grafikbildschirm vornehmen. Nach dem Berechnen des 
Bytewertes schaltet das Program m den Monitor ein und 
fOUt mittels der F-Funktion den Farbspeicher von $1C00 bis 
$1FE7. Danach verlaBt es den Monitor wieder und fahrt mit 
dem Basic-Programm fort (ab Zeiie 160 beziehungsweise 
200). 

Auf diese Weise konnen alie beiden Farben im Hochauf- 
losungsmodus verandert werden. Dret Farben von Multico- 
lorbildern sind ebenfalls auf diese Art und mit COLOR 0,... 
zu erneuern. Interessant ist es ilbrigens, daB trotz des ver- 
anderten Farb-RAM ein Zeichenbefeh) (beispielsweise 
D RAW1,...) immer noch mit der altenZeichenfarbearbeitet. 
Die Erklarung liegt vermutlich darin, daB dazu die Spei- 
cherstellen ab $83 Verwendung finden. Wenn man auch 
die darin befindlichen Angaben der neuen Farbgebung an- 
paBt, geschieht das nicht mehr. 

Wie schon vorhin angedeutet, ist die Anderung der Multi- 
colorfarbe 2, von der noch nicht die Herkunft geklart wer- 
den konnte, ein Problem. Bisher existiert nur eine etwas 
umstandliche Losung: Speichern Sie Ihre Grafik inklusive 
des Farb-RAM ab. Das kann mittels des BSAVE-Befehls ge- 
schehen: 

BSAVE"Blld",ON B0,P7168 TO P16191 
Laden Sie nun das Bifd wieder ein mittels: 
COLORJ , X: GRAPH1C3 , 1 : BLOAD "Bild " 

!n X stent dabei die neue gewunschte Multicolorfarbe 2, 
die nun gleich beim Ein laden berucksichtigt wird. 



DRAW 



Nach all diesen etwas ermiidenden, abernotwendigen Vor- 
bereitungen kommen wir nun zu den Zeichenbefehlen, de- 
ren einfachster der DRAW-Befehl ist. 

DRAW A,X1,Y1 TO X2.Y2 

zeichnet eine Linie vom Punkt X1.Y1 zum Punkt X2,Y2 (sie- 
he Bild 10). 

A ist eine Kennzahl fiir die Quelle, aus der die Farbe der 
Zeichnung herruhrt. A hat dabei folgende Bedeutung: 
A = Hintergrundfarbe 
A = 1 Vordergrundfarbe 
A = 2 Multicolorfarbe 1 
A = 3 Multicolorfarbe 2 

Dieser Befehl ist sehr vielseitig verwendbar. Es ist bei- 
spielsweise moglich, einen Linienzug uber weitaus mehr 
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Bild 10. Die Wirkung des DRAW-Befehls 
als nur zwei Punkte zu fiihren. Der Befehl 

DRAW1,X1,Y1 TO X2,Y2 TO X3,Y3 TO X4,Y4 TO X5,Y5 
TO XI, Yl 

kann so ein grafisches Gebilde wie in Bild 11 erzeugen. 
Lautet der Befehl 

DRAW1,X1,Y1 

dann wird lediglich der Punkt X1,Y1 gezeichnet. 

Schreibt man dagegen den Befehl als 

DRAW 1 TO XI, Yl 

dann dient als Ausgangspunkt die aktuelle Graf ikcursorpo- 
sition. Den Grafikcursor werden wir beim LOCATE-Befehl 
noch kennenternen. Von dieser Position aus wird dann eine 
Linie nach X1,Y1 gezogen, 

Nach der Ausfiihrung der verschiedenen DRAW-Befehfe 
befindet sich der Grafikcursor an dem Punkt, der durch die 
letzte Koordinatenangabe charakterisiert wird. 

LaSt man iibrigens die Farbkennung weg, schreibt also 
beispielsweise 

DRAW ,X1,Y1 TO X2,Y2 

dann wird die Linie in der Farbe gezeichnet, die im vorange- 

gangenen Zeichenbefehl verwendet wurde. Vielleicht erin- 
nern Sie sich noch an die Speicherstelle $83 COLSEL? 
Dort befindet sich immer noch vom vergangenen Befehl 
her die Farbkennung. 

BOX 



Mit diesem Zeichenbefehl konnen Rechtecke erzeugt wer- 
den. Auch hier sind wieder eine ganze Menge Variationen 
mdgiich. Die Syntax des BOX-Befehls ist: 

BOX A,X1,Y1,X2,Y2,W,F 

Eine andere Moglichkeit ist es, mittels des COLOR- 
Befehls eine oder mehrere Farben (Vordergrund, Multi- 
color! oder 2) zu andern und dann mittels eines Grafik- 
Befehls eben diese Farbquelle aufzurufen (dazu kommen 
wir noch). Hier ist zu beachten, dafl sich die grafischen Ob- 
jekte, diedamtt gezeichnet werden, nicht zu nahe kommen, 
weil ja immer ein ganzes Pixel umgefarbt wird und daher 
auch schon vorhandene Bildteile unter Umstanden die 
neue Farbe an nehmen. 

Wesentlich schwieriger ist es allerdings, ein Bild, dessen 
Farbgebung uns nicht gefallt, umzufarben. Nehmen wir an, 
ein Multicolor-Bildschirm truge Farben, die wir verandern 
wollen. Was ware zu tun? 

Die Farbe aller Bitpaare 00 laBt sich einfach durch CO- 
LOR 0,... umschalten. Andere COLOR-Befehle fur die drei 
restlicnen Farben oder auch fur die Vordergrund- und die 
Hintergrundfarbe im hochauflosenden Modus fiihren zu 
keinem Ergebnis: Erst ein Loschvorgang ergabe die Neu- 



belegung des Farb-RAM, wodurch aber auch die Bit-Map 
frei und unser Bild zerstort wurde. 

Da scheint nur eine Schleife Abhilfe zu bringen, die den 
Farbspeicher neu schreibt. Nehmen wir an, unsere neue 
Vordergrundfarbe hieBe F1 und die neue Hintergrund- (in 
den Grafik-Modi 1 und 2) oder Multicolorfarbe 1 (im Grafik- 
modus3oder4)ware F2. Dann haben wirzunachstdie Ge- 
stalt eines Bytes aus dem Farb-RAM zu bestimmen: 

F1=F1-1:F2=F2-1 

Das Byte ware dann: 

16#F1+F2 

Die Schleife lautet nun: 

FOR 1=7168 TO 8167: POKE I , 16*F1+F2 : NEXT I 



X3.Y3 




,X1,Y1 


X4.Y4 




X5.Y5 




X2.Y2 



Bild 11. Beisplel einer durch einen DRAW-Befehl erzeugten 
Flgur 




Bild 12. Die Wirkung des BOX-Befehls 

So etwas dauert naturlich eine Weile und wir konnen 
ganz gemachlich zusehen, wie von oben nach unten die 
Farbwechsel stattfinden. 

Etwas schneller geht das mit einem Trick, der im Ab- 
schnitt zu den selbstmodifizierenden Programmen erklart 
wird. Die beiden Programme MULTICOLORTEST2 (Listing 
2) und HIRES-FARBAEND (Listing 3) zeigen Ihnen das Ver- 
fahren. 

Beide Programme zeichnen zunachst etwas auf den 
Bildschirm und fragen dann nach den gewiinschten neuen 
Farben. Falls Sie nur mit einem Bildschirm arbeiten.sollten 
Sie noch die Umschaltung auf den Textbildschtrm 
(GRAPH ICO vor der Frage) und hinterher wieder auf den 
Grafikbildschirm vornehmen. Nach dem Berechnen des 
Bytewertes schaltet das Programm den Monitor ein und 
fOllt mittels der F-Funktion den Farbspeicher von $1C00 bis 
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$1FE7. Danach verlaBt es den Monitor wieder und fahrt mit 
dem Basic-Prog ram m fort (ab Zeile 160 beziehungsweise 
200). 

Auf diese Weise konnen alle beiden Farben im Hochauf- 
l6sungsmodus verandert werden. Drei Farben von Multico- 
lorbildern sind ebenfalls auf diese Art und mit COLOR 0,.., 
zu erneuern, Interessant ist es iibrigens, da6 trotz des ver- 
anderten Farb-RAM ein Zeichenbefehl (beispielsweise 
DRAW1,...) immer noch mit der alten Zeichenfarbe arbeitet. 
Die Erklarung liegt vermutlich darin, daS dazu die Spei- 
cherstellen ab $83 Verwendung finden. Wenn man auch 
die darin befindlichen Angaben der neuen Farbgebung an- 
paBt, geschieht das nicht mehr. 




Bild 13. Drehung des Rechtecks durch den Parameter W im 
BOX-Befehl 
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Bild 14. Durcheinandergewiirfelte Koordinaten fuhren den- 
noch zum richtigen Ergebnis: BOX 1,X2,Y2,X1,Y1 wird ge- 
zeichnet wie BOX 1,X1',Y1',X2\Y2' 

A ist wieder - wie schon beim DRAW-Befehl - die Farb- 
quelle. Ebenso wie dort kann man A auch weglassen und 
das Rechteck erhaltdieselbe Farbe wiedaszuvorgezeich- 
nete Grafikobjekt. 

Bild 12erlautertdie BedeutungderEckkoordinatenX1,Y1 
und X2,Y2. 

X1.Y1 sind also die Koordinaten der linken oberen Ecke, 
X2.Y2 diejenigender rechten unteren, Wir werden darauf 
gleich noch einmal zuruckkommen. 

W ist ein Winkel (in Grad angegebenl), urn den das 
Rechteckzu drehen ist. Die Drehung erfolgt urn den Mittel- 
punkt des Rechtecks im Uhrzeigersinn (siehe Bild 13). 

W darf alle Werte zwischen und 65535 annehmen. 

F ist eine Kennung, die festlegt, ob das Rechteck ausge- 
fiillt werden soil: 



F = Nicht ausfiillen 

F = 1 in der gewahlten Farbe ausfiillen. 

Interessant ist, was geschieht, wenn man Koordinaten 
erngibt, die unlogisch erscheinen. Beispielsweise in 

BOX 1,200,100,60,60 

wurden die Eckpunkte vertauscht. Der Computer wahlt 

sich selbst die richtigen Ecken aus und zeichnet die Ge- 

stalt, die wir bei der richtigen Reihenfolge erhalten hatten, 

also 

BOX 1,60,60,200,100 

Wiirfeln wir die Koordinaten vollendsdurcheinander {sie- 
he Bild 14). 
BOX 1,200,100,60,120 

gibtdie linke untere und die rechte obere Ecke an. Gezeich- 
net wird vom Computer dennoch das richtige Rechteck (mit 
den Ecken X1',Y1' und X2',Y2'), als hatten wir ihm befohlen 
BOX 1,60,100,200,120 

Es scheint, als gibe es keinen Unterschied bei den ver- 
wurfelten Koordinatenangaben. Da existiert aber doch ei- 
ner! Wir haben bisher den Grafikcursor nicht beriicksich- 
tigt. Der steht namlich immer nach der Zeichnung am Punkt 
X2.Y2, Das bedeutet, daB er im Fail 

BOX 1,200,100,60,120 

auf dem Punkt 60,120 steht, wohingegen er im anderen Fall 

bei 200,120 zu finden ware. 

Bei einer Drehung des Rechtecks durch einen Wert W 
wird der Grafikcursor nicht mitgedreht. Er bleibt stur bei 
X2,Y2 stehen. 

Noch nicht ausdruckiich erwahnt wurde die Mdglichkeit, 
fur den Fall, daB sie nicht benotigl werden, die GroBen W 
und F einfach wegzulassen. Sie werden dann beide auf 
gesetzt. Man kann aber auch X2 und Y2 weglassen. Das zu 
zeichnende Rechteck setztdafur einfach wieder die Koordi- 
naten des Grafikcursors ein. 

Ein Beispiel: 
BOX 3.100,50,200,80,30,1 

zeichnet in der Multicolorfarbe 2 (dazu muB naturlich der 
Grafikmodus3 eingeschaltet sein) ein Rechteck, das urn 30 
Grad urn seinen Mittelpunktim Uhrzeigersinn gedreht wur- 
de und ausgefullt ist. 

CIRCLE 



Ein geradezu phantastisch vielseitiger Befehl, nicht nur 
zum Zeichnen von Kreisen, wie es der Name (circle ist das 
englische Wort fur Kreis) suggeriert. Was man damit alles 
anstellen kann, werden Sie gleich noch sehen. Wieder 
kann man uber eine lange Parameterliste alle Optionen 
ausschopfen. Aber keine Angst, es mussen bei weitem 
nicht immer aileangegeben werden. Komplettsieht der Be- 
fehl so aus: 

CIRCLE A, XM,YM, RX,RY, W1,W2, W, S 

Der erste Parameter A dient wie schon bei den anderen 
Zeichenbefehien zur Festlegung der Farbquelle. 

Die Koordinaten XM,YM legen den Mittelpunkt des Ob- 
jekts fest, das wir zu zeichnen gedenken. Soil es ein Kreis 
werden, ist es also der Kreismittel punkt. 

RX und RY sind die Halbmesser in horizontaler und verti- 
kaler Richtung. Gedanklich geht man dabei von der Ellipse 
aus, die ja zum Kreis wird, wenn beide Radien gleich sind. 
In diesem Fall ist RX = RY und man kann sogar RY weglas- 
sen. Bild 15 zeigt, wie die bisher verwendeten Bezeichnun- 
gen zu verstehen sind. 

Zwei CIRCLE-Befehle erzeugen hier einen Kreis (CIRC- 
LE 1,XM,YM,RX) und eine Ellipse (CIRCLE 1.XM.YM, 
RX'.RY). 

Die Angaben W1 und W2 erlauben die Festlegung eines 
Bogens aus dem Gesamtobjekt, der zu zeichnen ist. Aus- 
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Bild 15. Wirkung der Befehle CIRCLE 1,XM,YM,RX und 
CIRCLE 1,XM,YM,RX',RY 




Bild 16. Zeichnen eines Kreis-foder EHipsen-)Bogerts durch 
CIRCLE 1,XM,YM,RX,RY,W1,W2 

gangspunkt fur die Messung der Winkel W1 und W2 ist der 
obere Scheitelpunkt der Ellipse, die man sich durch die Fi- 
gur gelegt denken kann. Die Formulierung hort sich we- 
sentlich einfacher an, wenn man von derZeichnung eines 
Kreisesausgeht, derim normalen Koordinatensystem liegt. 
Dann zahlt der Winkel vom obersten Kreispunkt an im Uhr- 
zeigersinn, was Bild 16 erlautern soil. 

W1 und W2 durfen ohne Fehlermeldung alle Werte zwi- 
schen und 65535 annehmen, wobei allerdings Angaben, 
die groBer als 33024 sind, allerlei Unsinn auf dem Bild- 
schirm erzeugen. 

Was geschieht, wenn W1 groBer als W2 gewShlt wird? 
Kein Problem: DasErgebnisfinden Sie in einem Beispiel in 
Bild 17: 

Es wird der Bogen von W1 iiberO hinweg bis W2 gezeich- 
net. 

Ein weiterer Parameter ist W, der Drehwinkel. Ebenso 
wie beim BOX-Befehl kann auch das durch CIRCLE er- 
zeugte Objekt urn den Mittelpunkt im Uhrzeigersinn ge- 
dreht werden. Bild 18 zeigt die Verhaltnisse dabei. 

Ohne zu murren, nimmt der Computer Werte zwischen 
und 65535 fiir W entgegen. 

Der letzte Parameter S kann zwischen 1 und 255 groB 
sein. Er gibt an, nach welchem Winkel jeweils der nachste 
Kreis- oder Ellipsenpunktzu berechnen ist. Die so ermittel- 
ten Punkte werden durch Geraden miteinander verbunden. 
Niedrige Werte von S bedeuten kleine Winkel. So ist der 
Wert S=2voreingestellt, und die miteinander verbundenen 



Eckpunkte ergeben den Eindruck eines Kreises (oder einer 
Ellipse). Erhoht man aber S, dann begin nt der Kreis (ich er- 
spare mir im weiteren den Hinweis auf die Ellipse) allmah- 
lich kantig zu werden. Man kann es zwar nicht erkennen, 
trotzdem ist der schnell gezeichnete Kreis (oder...) in Wahr- 
heit ein 36-Eck, wenn S=10 gewahlt wurde. Weitere Polygo- 
ne ergeben sich zum Beispiel: 
S=l 360-Eck 
S=2 180-Eck 
S=10 36-Eck 
S=20 18-Eck 
S=30 12-Eck 
S=60 6-Eck 

Das Bild l9solldazudienen, dieseAngelegenheitzu illu- 
strieren. 




Bild 17. Zeichnen des Bogens, wenn W1 groBer als W2 




Bild 18. Drehung der Ellipse urn den Winkel W urn den Mit- 
telpunkt XM.YH durch: CIRCLE 1,XM 1 YM,RX,RY,„W 

Weil der gesamte Kreis einen Winkel von 360 Grad iiber- 
streicht, laBt sich eine Formel angeben, mit der gezielt n- 
Ecke erzeugt werden konnen: 
S = 360/n 

Wenn Sie also ein Dreieck (n=3) erzeugen mochten, 
mussen Sie S=120 eingeben. Die Formel zeigt uns noch 
zwei weitere Eigenschaften von S: 
- Zum einen kann man sie umdrehen und berechnen, wie 

viele Ecken ein Polygon bei einem bestimmten S-Wert 

hat: 

n = 360/S 

Dabei zeigt es sich, daB fiir »n« auch allerhand geb roc be- 
ne Zahlen zustandekommen. Weil es aber beispielsweise 
kein 7,2-Eck gibt (bei S=50), mufi es sich hier urn ein krum- 
mes 7-Eck handeln. 
-Zum zweiten sind Eingaben groBer als 180 sinnlos. 
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S=180 fuhrt zum »Zweieck«, also zum Durchmesser des 

Kreises (siehe Bild 20). 

DerStartpunkt ist immer oben (alsobei einem Winkel von 
Grad) zu finden, der Endpunkt liegt auf der Kreisperiphe- 
rie um 180Graddemgegenuberverdreht, EinWeiterzahlen 
um noch einmal 180 Grad fuhrt wieder zum Startpunkt. 
Wachst S auf noch hohere Werte, dann wird nur noch eine 
Sehne gezeichnet vom Startpunkt zum Punkt 1, der bei- 
spielsweise bei S=225 um 225 Grad, bei S=255 um 255 
Grad verdreht auftritt. Ein weiterer Punkt wird hier nicht 
mehr berechnet, weil damit der Ausgangspunkt bei Grad 
uberschritten wurde. 



Punkt 1 



Punkt 1 



XM.YM 




Punkt 2 



Punkt 3 



Bild 19. Der Parameter S bestimmt den Winkelabstartd der 
berechneten Kreispunkte, zwischen denen Geraden 
gezogen werden 




Bild 20. Wirkung von S-Werten ab 180. Gezeichnet wird 
jeweils die dlckere Linie 

Den Grafikcursor hatten wir fast noch vergessen: Der be- 
findetsich (im Gegensatzzum BOX-Befehl) immer dort, wo 
der letzte Punkt des CIRCLE-Befehls gesetzt wurde. 

Ubrigens gilt es noch eine Besonderheit des CIRCLE- 
Befehls im Multicolormodus zu beachten. Gibt man hier 
namlich einen Befehl zum Zeichnen eines Kreises in der 
Form 

CIRCLE 1,XM,YM,RX 

ein, wobei ja automatisch RY = RX gesetzt wird, dann ent- 

steht zwarauf dem Bildschirm ein Kreis. Der ist aberfalsch, 

was Sie unschwer erkennen konnen, indem Sie oben und 

unten Tangenten anlegen. Das Ganze sahe beispielsweise 

so aus: 

CIRCLE 1,80,100,40:DRAW 1,0,40 TO 159,40 

DRAM 1,0,120 TO 159,120 

Als gebildete Programmierer sollten wir erwarten, da8 
diese Geraden als Tangenten den Kreis am oberen und am 
unteren Rand beruhren. Aber weit gefehlt, sie schneiden 
ihn! Probieren wir dagegen einmal, den Kreis mittels 



CIRCLE 1,80,100,40,40 

zu zeichnen, dann solltejadasselbe herauskommen. Aber 
das Ergebnis dieser Zeile ist eine Ellipse! Woran liegt das? 
Die Ursache dafiir liegt in der ungleichen Skalierung der X- 
und der Y-Achse im Multicolormodus. Wenn wir dem Com- 
puter den Auftrag erteilen, einen Kreis zu zeichnen, dann 
zeichnet er ihn - ohne Riicksicht auf Verluste oder Skalie- 
rungen oder ahnliche Feinheiten. 

Damit kann eine von Kurvenziigen umschlossene Fla- 
che ausgefiillt werden. Sie muB aber auch wirklich vollig 
eingerahmt sein, denn das kleinste Loch in der Hulle fuhrt 
dazu, daB auch die benaehbarte Flachebemaltwird. Im Be- 
fehl 

PAINT A, XI, Yl, M 

haben die einzelnen GroBen folgende Bedeutung: 
A ist - wie schon gehabt - wieder die Farbquelle, mit der 

das Ausmalen geschehen soil. 
X1 und Yl sind die Koordinaten eines Punktes, der in der 

MINT 



auszufiillenden Flache enthalten ist. Gleichzeitig ist das 
der Startpunkt der Aktion und hinterher liegt genau hier der 
Grafikcursor. 

Ein etwas schwerer verstandlicher Parameter ist der Mo- 
dus M. Ist namlich M gieich 0, dann wird solange ausgefullt, 
bis eine Umrahmung in der Farbe angetroffen wird, die im 
Parameter A gewahlt wurde. Ist dagegen M gieich 1, dann 
zahlt auch jede andere Farbe der Umrandung - sofern sie 
nur nicht die des Hintergrundes ist - als Grenze des Ausma- 
lens. Befinden wir uns beispielsweise im Grafikmodus 3, 
dann passiert bei der Befehlskombi nation: 

BOX 2,10,10,100,100:CIRCLE 3,80,100,40: PAINT 1,85 
,85 

nicht das Ausmalen der Schnittmenge von Kreis und 
Rechteck, sondern ungeruhrt um unsere BemCihungen 
ubermalt der Computer alles, was auf dem Bildschirm zu 
sehen war. Der Grund ist, daB keine Umrahmung in der Far- 
be mit der Kennung A = 1 vorhanden war (BOX lief mit A=2 



CHAR 



und CIRCLE mit A=3) und wir den Modus gewahlt haben. 
Modus 1 hatte unseren Wunsch erfullt. 

PAINT arbeitet im Modus M=1 nicht, wenn am Startpunkt 
schon eine andere Farbe als die Hintergrundfarbe gefun- 
den wi rd . I m Modus M =0 dagegen wird i mmer dann ausge- 
fullt, wenn dort eine Farbe vorhanden, die von der ausge- 
wahlten verschieden ist. 

Eigentlich kein Grafikbefehl im engeren Sinn ist dieser 
Befehl zum Drucken eines Textes. Seine interessanteste 
An wend ung ist aber dieBeschriftung von Grafiken, was auf 
andere Weise (auBer in den Splitscreen-Modi) nicht mog- 
lich ist. 

CHAR A, XT,YT, A$, R 

bildet einen Text A$ in der Farbe der Quelle A ab. Das erste 
Zeichen befindet sich bei den Koordinaten XTYT. Das Koor- 
dinatensystem, das hier eine Rolle spielt, ist das im Textmo- 
dus gultige (25 Zeilen zu je 40 Spalten oder aber 80 Spal- 
ten). A$ kann jede beliebige Kombination von gultigen Zei- 
chen enthalten. In den Grafik-Modi werden allerdings die 
Steuerzeichen als grafische Zeichen mitgedruckt. 

R ist eine Kennzahl, die es erlaubt, den Text normal oder 
revers darzustellen: 
R = Normaldarstellung 
R = 1 Reversdarstellung 

Sollte der Text nicht in einer Zeile Platz finden, dann wird 
erin der nachsten fortgesetzt, also ein Verhalten, wie wir es 
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auch vom PRINT-Befehl her kennen. 

Im Multicolormodus sehen die Zeichen haufig etwas 
merkwurdig aus. Die Zeichenmuster sind ja nieht zur Dar- 
stellung im Bitpaarmodus konstruiert. Soil ein Text in der 
Multicolorfarbe 2 gedruckt werden, dann ist A auf und R 
auf 1 zu setzen. Soil dagegen die Multicolorfarbe 1 verwen- 
det werden, halt man die Farbquelle A auf 1 und fur R wahlt 
man den Wert 0, So steht es jedenfalls im Handbuch (auf 
den Seiten 4-28 und 4-29). Zumindest mein C 128 folgt die- 
sem Rezept nicht, sondern es geniigt, einfach A entspre- 
chend der gewiinschten Farbquelle (also 0,1,2,3) zu wah- 
len. 

Der Grafikcursor bleibt iibrigens vom CHAR-Befehl un- 
beeindruckt. 

LOCATE 



Wir haben bei den bisher untersuchten Befehlen immer 
wieder einen Grafikcursor und dessen Verhalten bet den 
verschiedenen Operationen erwahnt. Sie haben diesen 
Cursor aber noch nie zu Gesicht bekommen -werden Sie 
auch nie, denn er fiihrt sein verborgenes Leben nur In eini- 
gen Speicherstellen, nie aber auf dem Bildschirm. Trotz- 
dem ist er recht nutzlich. Er dient gewissermaBen als Merk- 
stelle fur bestimmte Punktkoordinaten: 

- Als Startpunkt bei DRAW 
Beispielsweise fur DRAW 1 TO X2,Y2 

- Als Eckpunkt bei BOX 

- Als Mittelpunkt bei CIRCLE: Laut Handbuch soil man die 
Koordinaten XM.YM weglassen kdnnen und daftlr werde 
automatisch der Ort des Grafikcursors eingesetzt. Leider 
war das bei meinern C128 nicht nachvollziehbar. Es ergab 
sich nur allerlei Unsinn auf dem Bildschirm. 

- Als Startpunkt fur PAINT: Auch hierkann man ohneAnga- 
be der Startpunktkoordinaten Flachen ausmalen, denn 
es wird automatisch der Ort des Grafikcursors verwendet. 

LOCATE X,Y fiihrt diesen Grafikcursor an den durch die 
Koordinaten X,Y definierten Punkt, 

RDOT 



Wollen Sie erfahren, wo sich der Grafikcursor im Augen- 
blickbefindet, dann d lent dieserBefe hi Ihrem Wunsch. Das 
Argument von RDOT(n) hat folgende Bedeutungen: 
n = liefert die aktuelle X-Position. 
n = 1 ergibt die aktuelle Y-Position des Grafikcursors. 
n = 2 macht eine Aussage Ciber die aktuelle Farbquelle. 
Die Koordinatenwerte, die RDOT-Anfragen ergeben, be- 
ziehen sich immer auf die grundlegenden Koordinatensy- 
steme. Im hochauflosenden Grafikmodus stammen die 
Werte daher immer aus einem System, dessen X-Werte 
zwischen und 319 liegen und dessen Y-Werte von bis 
199 reichen. Im Multicolormodus geht die X-Achse nur bis 
159. Das im Augezu behalten ist besondersfurden nun fol- 
genden Befehl wichtig: 



SCALE 



Mittels 

SCALE n, Xmax, Ymax 

konnen wir neue Koordinatensysteme auf unserem Bild- 

X von bis 319, Y von bis 199 

schirm definieren. Die Kennzahl n kann zwei Optionen an- 

wahlen: 

n = Das regulare System ist eingeschaltet: 

Grafik-Modi 1 und 2: 



n = 1 Ein verandertes System ist nun Bezugssystem ge- 
worden. 

Wenn durch n=l die neue Skalierung eingeschaltet wur- 
de, gibtes zwei Moglichkeiten. Schreibt man lediglich SCA- 
LE 1, dann hat man ein Koordinatensystem gewahlt, des- 
sen X- und Y-Koordinaten jeweils von bis 1023 reichen. 
Der zweite Weg ist es, selbst die Reichweiten der Skalen 
festzulegen. Das geschieht durch die Angaben von Xmax 
und Ymax, den Hochstwerten auf der jeweiligen Achse. So 
wahlt im Grafikmodus 1 der Befehl 
SCALE 1, 400, 300 

ein System, dessen X-Achse von bis 400 und Y-Achse von 
bis 300 reicht (siehe Bild 21). 

Die Werte Xmax mussen gr6Berals320 gewahlt werden, 




Bild 21. Wirkung von SCALE 1,400,300 in den Grafik-Modi 1 
und 2 




Bild 22. So wirkt SCALE 1,400,300 in den 
Grafik-Modi 3 und 4 

die fur Ymax groBer als 200. Es ist so also nicht moglich, ver- 
kleinerte Systeme zu erzeugen. Im Gegensatz zu den 
Handbuchangaben, die nur Werte bis 1023 erlauben, ist es 
tatsachlich moglich, sowohl Xmax als auch Ymax bis 32767 
anzugeben. 

im Multicolormodus ist zu beachten, daB weiterhin auf 
der X-Achse immer Bit-Paare dargestel It werden. Im Grafik- 
modus 3 oder 4 erzeugt daher der Befehl 
SCALE 1, 400, 300 

ein System, dessen X-Koordinaten von bis 200 und des- 
sen Y-Koordinaten von bis 300 reichen (siehe Bild 22). 
Naturlieh werden weiterhin die Abbildungen auf dem 
Bildschirm miteiner Auflosung von insgesamt 64000 Punk- 
ten (Oder 32000 im Multicolormodus) dargestel It. Die Bit- 
Map bleibt unverandert. Lediglich der Berechnungsweg 
zur Darsteiiung der Punkte verandertsich. Etwas ungluck- 
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lich werden viele Anwender des C 128dariibersein, da6 der 
SCALE-Befehl keine weitergehenden Umstellungen des 
Koordinatensystems ermoglicht. Wiinschenswert ware si- 
cherlich die Mdglichkeit gewesen, den Ursprung zu ver- 
schieben (wie es der TRS-Befehl der Grafikerweiterung 
HIRES-3furdenC64-Moduserlaubt). Durch diesemindere 
Ausstattung komrnt dem SCALE-Befehl nicht die groBe Be- 
deutung zu, die er haben konnte, denn jeder Anwender 
muBdie langwierigenTransformationenweiterhin program- 
mieren. 
SCALE hat auch EinfiuB auf das Ergebnis eines CIRCLE- 




Bild 23. SCALE 1,480,300 erzeugt in den Grafik-Modi 1 und 
2 dasselbe Achsenverhaltnis wie das normale System: 
320/200 = 480/300 = 1.6. Der Kreis CIRCLE 1,200,200,50 
ist Identisch mit dem Kreis CIRCLE 1,200,200,50,50. 
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Bild 24. Durch SCALE 1,480,600 ist ein Achsenverhaltnis 
von 480/600 = 0.8 geschaffen worden. CIRCLE 
1,200,200,50 erzeugt den falschen Kreis. CIRCLE 
1,200,200,50,50 zeichnet zwar den richtigen Kreis, der aber 
zur Ellipse verzerrt wird, 

Befehls. Ebenso, wie wir es vorhin beim Multicolormodus 
beobachten konnten, wo ohne Rucksicht auf den anderen 
MaBstab der Y-Achse ein Kreis gezeichnet wurde, findet 
das hier in alien Grafik-Modi statt. Wenn also der richtige 
Kreis - das heifit derjenige, der bei alien MaBstaben in Y- 
Richtung den gleichen Durchmesser aufweist wie in X- 
Richtung - gezeichnet werden soil, muB das nun immer 
durch den CIRCLE-Befehl mit zwei Radienangaben ge- 
schehen. Das sollen Ihnen die Bilder 23 und 24 erlautern. 
Die Verhaltnisse in diesen Abbildungen beziehen sich 
auf die Grafik-Modi 1 und 2. Das Achsenverhaltnis im Multi- 
colormodus ist durch den Faktor 2 in X-Richtung verandert, 
Man sollte also festhalten, daB immer dann unverzerrte Bil- 



der zustandekommen, wenn die Achsenverhaltnisse wie 

folgt sind: 

Grafik-Modi 1 und 2:X:Y = 1.6 

Grafik-Modi 3 und 4:X:Y = 3.2 

Der SCALE-Befehl kann - nebenbei bemerkt - tnnerhalb 
eines Programms Oder bei ein und demselben Bildschirm 
- mehrfach angewendet werden. Das ergibt interessante 
Effekte. 

SCHCLR 



»SCreeN CLeaR- ist englisch und heiBt etwa »Bildschirm 
freimachen*. Das bedeutet, daB in den Text-Modi der Spei- 
cherbereich ab $400, in den Grafik-Modi sowohl die Bit- 
Map als auch das Farb-RAM ab $1C00 geloscht, bezie- 
hungsweise mit Leerzeichen oder Farbcode beschrieben 
werden. Welche Bereiche geloscht werden, welche Bild- 
schirme also, entscheidet das Argument von SCNCLR n. 
Die Zuordnungen von »n« sind hier die gleichen, die auch 
beim GRAPHIC-Befehl verwendet werden. 

Ein gerade sichtbarer Grafik-Bildschirm ist auch losch- 
bar ohne Angabe eines Arguments, SCNCLR genilgt in 
diesem Fall. Sollte im Textmodus ein Fenster mittels WIN- 
DOW definiert sein, dann bezieht sich der Loschbefehl auf 
den Fensterinhalt. 

Bei der Anwendung des SCNCLR-Befehls in den Grafik- 
Modi muB bedacht werden, daB fur den Multicolormodus 
und fur den hochauflosenden Modus dieselbe Bit-Map be- 
nutzt wird. Nach SCNCLR3 ist also auch ein im Grafik- 
Modus 1 sinnvolles Bild verschwunden. 



WIDTH 



»Width« ergibt aus dem Englischen ins Deutsche iibersetzt 
den Begriff »Breite«. Gemeint ist damit die Strichstarke, in 
der Zeichenbefehle auf dem Bildschirm realisiert werden. 

Mit WIDTH 1 schaltet man die normale Strichdtcke ein, 
mit WIDTH 2 wird alien grafischen Objekten die doppelte 
Strichbreite zugeordnet. 

Alle Zeichenbefehle nach einem WtDTH-Befehl fiihren 
dann zur darin angegebenen Strichstarke. 



RCLR 



Dieser Befehl bildet das Gegenstiick zum COLOR-Befehl. 
Mittels RCLR n ist es mbglich, festzustellen, welche Farb- 
zuordnungen zu den verschiedenen Quellen getroffen wor- 
den sind. »n« ist dabei eine Kennzahl mit derselben Bedeu- 
tung wie der erste Parameter der COLOR-Anweisung. 
PRINT RCLR(2) 

gibt also Auskunft iiber die Farbe, die als Multicolorfarbe 1 
definiert wurde. 



RGR 



Vermutlich relativ selten benotigt, ergibt 

PRINT RGR(x) 

den aktuellen Grafikmodus. Das Argument x ist hier ledig- 
lich ein Dummy, hat also keine Funktion auBer der eines 
Platzhalters. Die sich ergebende Zahl entspricht dem er- 
sten Argument des GRAPHIC-Befehls, gibt also den Grafik- 
modus an. 

Mil diesen Grafikbefehlen haben Sie also ein Werkzeug 
in der Hand, das bei richtiger Anwendung die tollsten Effek- 
te auf dem Bildschirm ermoglicht. 

(Heimo Ponnath/kn) 
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I m die Program mierung der Sprites auf dem C64 zu 
erklaren, ist schon vtel Druckerschwarze verbraucht 
worden. Fast schien es eher die Aufgabe von As- 
sembler-Programmierem zu sein, durch die POKE-Wiisten 
und Zahiensysteme zu gelangen um schlieBlich das Ziel - 
ein bewegtes Sprite auf dem Bildschirm - zu erreichen, Im 
C 128-Modus erspart uns das Basic 7,0 all diese Strapazen: 
Sprites zu erstellen und zu verwalten wird zum Vergnugen, 
Nachfolgend lemen wir die dazu notigen Befehle bis in ihre 
Feinheiten kennert. AuBerdem wird uns eine neue Gruppe 
von Grafikobjekten beschaftigen: die Shapes. 

Sollten Sie Ihnen noch nicht begegnet sein, die kleinen 
Kobolde (»sprite« ist englisch und heiBt auf deutsch »Ko- 
bold« Oder »Gespenst«), dann seien sie hiermit kurz vorge- 
stellt. 

Es handelt sich um bewegliche grafische Objekte {daher 
auch der Ausdruck MOB=movable objects, der manchmal 
verwendet wird), die sowohl als mehr- ais auch als einfarbi- 
ge (dann hochaufgeloste) Figuren ohne Rticksicht auf den 
gerade eingeschalteten Grafikmodus munter iiber Text- 
und Grafikbildschirm huschen konnen. Die gesamte Ver- 
waltung der Sprites geschieht durch den VIC-Chip, was ihr 
Auftreten auf den 40-2eichen-Biidschirm beschrankt. Be- 
vor Sie die folgenden Beispiel program me ausprobieren, 
sollten Sie Listing 1 »Alle Sprites« abgetippt und gestartet 
haben, 

Zehn Basic-Befehle dienen zum Erstellen und Verwalten 
von Sprites: 

SPRDEF: Damit ruft man den Sprite-Editor auf. Der Bild- 
schirm wird geloscht, links oben erscheint ein Raster mit 
24 x 21 moglichen Positionen, darunter fragt der Computer 
nach der gewiinschten Sprite-Nummer 

Wir haben nun die Wahl zwischen acht vorgesehenen 
Sprites. Sollten Sie schon ein MOB im Speicher haben, 
dann rufen Sie es nun mit seiner Nummer auf, ansonsten 
mussen Sie sich jetzt festlegen: Alle weiteren Sprite- 
Befehle beziehen sich im- 

Pie Befehle zur Sprit eprogmmmiening 

mer auf diese Nummer. Nach deren Eingabe wird das Ra- 
sterfeld mit dem Inhalteinesspeziellen Speicherbereiches 
(aus$0E00bis$0FFF = dezima!3584bis4095)gefullt,der 
die I nformationen des gewahlten Sprites enthalt. Falls noch 
kein Sprite definlert war, kann dabei auch allerlei Byte-Mull 
abgebifdet werden, der unsabervorlaufignichterschuttern 
soil. In der linken oberen Ecke des Rasterbereiehes meldet 
sich ein Kreuz: Das ist derSpritecursor. Oben rechts neben 
dem Raster ist unser Sprite so abgebildet, wie es im Nor- 
malbetrieb spater auf dem Bildschirm erscheinen wird. 

Bevor wir auf die einzelnen Optionen des Sprite-Editors 
eingehen, noch eine Bemerkung. Alles bisher beschriebe- 
ne benutzt den Grafik-Bildschirm. Ebenso wie bei der Ver- 
wendung der hochauflosenden und der Mehrfarbengrafik 
wird dazu der Basic-Anfang nach $4000 verschoben, also 
iiber die Bit-Map. 

Sehen wir uns nun die Moglichkeiten unseres Editors an: 

<CLR/HOME> Damit kann das Definitionsfeld ge- 
loscht werden. Das befreit uns vom Byte-Mull. 

<CLR/HOME>: Der Sprite-Cursor marschiert in die lin- 
ke obere Ecke. 

CURSOR-TASTEN 

Damit wandert der Sprite-Cursor iiber das Rasterfeld. 

< RETURN > : Der Cursor wird auf den Anfang der nach- 
sten Zeile gesetzt. 

< A> : Die Wiederholungsfunktion der Tasten <1 > bis 
<4> kann durch einmaliges Driicken aus-, durch nochma- 
liges Drucken wieder eingeschaltet werden. 




< M > : Einmal Drucken schaltet den Mehrfarbenmodus 
ein. Dadurch bekommen die Tasten <1> bis <4> eine 
neue Bedeutung. Nochmaliges Driicken schaltet wieder 
auf den normalen Modus. 

<X> : Ein Druck verdoppelt das Sprite in waagerechter 
Richtung, ein weitererTastendruckerzeugt wieder ein Spri- 
te in normaler Breite. 

Y: Vertikale Verdoppelung 

ZIFFERNTASTEN <1> BIS <4> 
a) Im Normalmodus setzt <1 >: die aktuelle Hintergrund- 
farbe (0), 

<2>-<4>: die aktuelle Vordergrundfarbe (1). 
b)lm Mehrfarbenmodus setzt 
1: die Hintergrundfarbe (00) 
2: eine Multicolorfarbe (01) 
3: die aktuelle Vordergrundfarbe (10) 
4: die andere Multicolorfarbe (11) 
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Zur Erlauterung: 

- Im Normalmodus tritt jedes gesetzte Bit (=1) als Bild- 
punkt in der Vordergrundfarbe auf, alle nicht gesetzten (=0) 
erscheinen in der Hintergrundfarbe. 

- Irn Mehrfarbenmodus tragen die Bits paarweise zur 
Farbgebung bei. Deshalb ist hier der Spritecursor auch 
doppelt so breit. 

<CTRL1>bis <CTRL8> 

Wahlt die aktueile Vordergrundfarben 1-8 aus. 

<CBM 1> bis <CBM8> 

Leistet dasselbe mit den Farbcodes 9 bis 16. 

Zwel Funktionen werden merkwurdigerweise im Hand- 
buch nicht erwahnt, die recht nutzlich sind: 

<C> : Das ist eine Kopierfunktion. Nach Tastendruck er- 
scheintdie Frage »Copyfrom ?«. Nach Eingabe einer Sprl- 
tenummer wird das dazugehorige Muster in das aktueile 
Sprite kopiert und dieses dabei uberschrieben. Das ist 



ganz sinnvoll, wenn man mehrere ahnliche Sprites erzeu- 
gen mochte. 

Dasselbe passiert auch, wenn man die Funktionstaste 
F1 betatigt. 

Ist man einmal versehentlich auf diese Tasten geraten, 
dann kann man durch < RETURN > wieder in den norma- 
len Editorzustand gelangen. 

<CTRL C>: Erlaubt das Umschalten zwischen den 
Sprites. Nach Betatigen dieser Tastenkombination ver- 
schwindet die aktueile Spritenummer. Gibt man nun die ge- 
wCinschte Nummer ein, schaltet sich das dazugehorige 
Sprite an. 

Zwei Moglichkeiten zum Verlassen des Sprite-Editors 
sind vorgesehen: 

RUN/STOP-Taste: Nach dem Betatigen der Taste verliert 
man alle neuen Eingaben im Definitionsfeld. 

Gibt man anschlieBend eine Spritenummer ein, wird das 
dazugehorige Muster eingeladen. 

Ein anschlieBendes < RETURN > fiihrt zum Verlassen 
des Editors. Mit READY meldet sich der Textbildschirm zu- 
rtick. 

< SHIFT RETURN > 
Speichern des aktuellen Sprites im Bereich $0E00 - OFFF. 



Was nicht im Handbudi stent 



Ebenso wie bei der RUN/STOP-Taste kann man danach 
durch Eingabe einer neuen Spritenummer das nachste 
Sprite zur Bearbeitung in den Raster holen. 

Ein < RETURN > fCihrt zum Verlassen des Sprite- 
Editors. 

Interessant an SPRDEF ist, daB man diesen Befehl auch 
im Programm-Modus verwenden kann. Auf diese Weise 
kann man im Programm ein Oder mehrere Sprites ersteilen 
und anschlieBend - also nach Aussteigen mit STOP/RE- 
TURN oder SHIFT-RETURN/RETURN - lauft das Pro- 
gramm weiter. 

Das also sind alle Moglichkeiten unseres Sprite-Editors: 
Leider fehlen einige notige Optionen. So ist es nicht mdg- 
llch, die frisch zusammengebauten Sprites in DATA-Zeilen 
abzulegen, die Multicolorregister mussen vor dem 
SPRDEF-Aufruf belegt werden, die Muster kann man nicht 
invertieren, drehen oder spiegeln. 

SPRCOLOR 

Im Normalmodus kann die Punktfarbe eines Sprites und 
auch die Farbe der Bitkombination 10 des Multicolormodus 
durch den SPRITE-Befehl bestimmt werden Oder in 
SPRDEF durch die Kombinationen von CONTROL- Oder 
CBM-Taste mit einer Ziffer. 

Die Belegung der Multicolorregister mit Farbe - das ent- 
spricht den SPRDEF-Ziffemtasten <2> und <4> -, also 
der Bitkombinationen 01 und 11 erfolgt durch den 
SPRCOLOR-Befehl. Die Verwendung von 
SPRCOLOR A,B 

fuhrt in Multicolorregister 1 (Bit-Kombi nation 01 oder 
SPRDEF-Taste 2) zur Farbe A, in Multicolorregister 2 (Bit- 
Kombination 11 Oder SPRDEF-Taste 4) zur Farbe B. 
Somit ergibt der Befehl 
SPRCOLOR 3,6 

die Farbe ROT den Bitkombinationen 01 und GRUN der 
Kombination 11. 

SPRITE 

Dies istzweifellosderwlchtigste Befehl fiireinschon vor- 
handenes Spritemuster. Er schaltet ein Sprite ein und tegt 
seine Eigenschaften fest. Syntax: 
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SPRITE A,B,C,D,E,F,G 

Keine Angst vor den vieien Parametern: Sie mussen 
nicht immer alle angeben. Zur Bedeutung der einzelnen 
Buchstaben: 
A: Spritenummer (1 - 8) 
B = 0: Ausschalten des Sprites 
B= 1: Einschalten des Sprites 
C: Farbcode fur die Vordergrundfarbe (das ist das Bitpaar 
10 bei Multicolorsprites) (1 bis 16) 
D: Prioritat gegeniiber Text: 
= Sprite vor Text 
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Das Sprite mit der Nummer n wird an den Ort mit den 
Koordinaten X,Y gesetzt. Als Bezugspunkt beim Sprite 
dient die linke obere Ecke (auch wenn diese unsichtbar ist). 
Bild 1 zeigt Ihnen das normale Sprite-Koordinatensystem, 
das in alien Grafik-Modi giiltig ist. 

Dersichtbare Bildschirm erstrecktsichvonX=24bis344 
und in der Vertikalen reicht er von 50 bis 250. Fur X und Y 
diirfeni Werte zwischen und 65535 eingesetzt werden. 
Bild 1 skizziert auch, bei welchen Koordinatenangaben ein 
Sprite vol I sichtbar ist: 
Links oben mussen dazu die Koordinaten (24/50) ge- 
wahlt werden. Ein normales Sprite ist 
bei X=320, ein in X-Richtung gedehn- 
tes bei X= 296 gerade noch voll sicht- 
bar. 
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Bild 1. Das normale Sprite-Koordinatensystem 

1 = Text vor Sprite 

Nebenbei: Die Prioritat von Sprites untereinander wird 
durch die Sprite-Nummer geregelt: 1 vor 2 vor 3 ... vor 8. 
E: X-VergrdBerung: 

= normale GroBe 

1 = doppelte GroBe 
F: Y-Vergr6Berung: 

= normale GroBe 

1 = doppelte GroBe 

Sind sowohl E als auch F auf 1 gesetzt, dann erhalt man 
ein vierfach ausgedehntes Sprite. 
G: Modus. 

= normales Hires-Sprite 

1 = Multicolor-Sprite 

Ein Beispiel soil die Wirkung des Befehls demonstrieren : 
SPRITE 1,1,3,0,1,1,0 

Dadurch wird Sprite 1 eingeschaltet. Es ist rot, erscheint 
vor Bildschirmzeichen und ist sowohl in horizontaler wie 
auch in vertikaler Richtung verdoppelt. Es handelt sich urn 
ein normales (also Hires-Sprite). Nun soil das gieiche Spri- 
te auf die normale GrPBe gebracht werden: 
SPRITE 1„„0,0 

Es geniigt, die Werte anzugeben, die zu andern sind. Al- 
le anderen werden so ubernommen, wie sie vorher festge- 
legt wurden. Die Spritenummer und die Kommas vor dem 
zu andernden Wert sind obligatorisch. 
MOVSPR 

Das isteinrechtvielgestaltigerGeselle. MOVSPR kommt 
von »move sprite«, also hat dieser Befehl mit der Positionie- 
rung und Bewegung von MOBs zu tun. Drei Varianten sind 
moglich: 
a: MOVSPR n,X,Y 



Bild 2. Die KompaBrose: MOVSPR 

Entsprechend gilt fur die Y-Werte: 

Normales Sprite bis Y=229, 

in Y-Richtung gedehntes bis Y=208. 

GroBere Koordinaten werte fuhren zum Herauswandern 
aus dem sichtbaren Bereich. Uberschreiten die X- Oder Y- 
Werte eine bestimmte Grenze, dann treten die MOBs auf 
der jeweils gegenuberliegenden Seite wieder ins Bild. Das 
ist ab X=513 (bei gedehnten Sprites ab 481) und ab Y=286 
(bei gedehnten Sprites ab 265) der Fall. Eine weitere Erho- 
hung der Koordinaten fiihrt dann zum Wandern iiber den 
Bildschirm, zum erneuten Verschwinden und schlieBlich 
Wiederauftauchen auf der anderen Seite und so weiter. 

Vorhin war die Rede vom »normalen« Sprite-Koordina- 
tensystem. 

Daraus kann messerscharf geschlossen werden, daB es 
auch noch ein anderes gibt, ein »nicht normales«. Das ist 
tatsachlich der Fall und es handelt sich nicht nur um eines, 
sondern um eine ganze Menge verschiedener Systeme. 
Haben Sie namlich durch den SCALE-Befehl ein neues 
Hires- oder Multicolor-Bildschirmsystem definiert, dann be- 
ziehen sich X und Y auf dieses, was manchmal zu einiger 
Verwirrung fOhren kann. Sollte also die Gefahr bestehen, 
daB ungewollt aus einer fruheren Programmphase ein an- 
deres Bildschirmsystem giiltig ist, dann kann durch SCALE 
der normale Zustand hergestellt werden. 
Hier noch ein Beispiel: 
MOVSPR 1,300,100 

setzt Sprite 1 an die Stelle (300/100) im jeweils giiltigen 
Koordinatensystem. 
b: MOVSPR n,+/-X,+/-Y 

Damit kann man Sprite n relativ um + oder -X (und/oder 
Y) zur aktuellen Position verschieben. X und Y diirfen wie- 
der Werte bis 65535 annehmen, wobei durch das Vorzei- 
chen nun sogar eine Skalenbreite von -65535 bis +65535 
moglich wird. Auch hier beziehen sich X und Y auf das je- 
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weils durch SCALE definierte Koordinatensystem {ohne 
SCALE-Anwendung also auf das normale Sprite-System 
aus Bild 1). 

Auf diese Weise kann - zum Beispjel in einer Sehleife - 
das Sprite praktisch endlos iiber den Bildschirm wandern. 
Es tritt namlich keine Fehlermeldung auf, wenn die Summe 
aus alter Position und Verschiebung groBer als 65535 wird. 
Beispielsweise ist es ohne weiteres moglich (ob es sinnvoll 
ist, ware eineandere Frage), folgende Kombination zu ver- 
wenden: 
MOVSPR 8,1 00,65000: MOVSPR 8, 100, +65000 

Auchein Unterlauf unterNull ist auf diese Weise erlaubt. 

Wie Sle aus dem Beispiel erkennen konnen, kann die 
MOVSPR-Anweisung auch kombiniert verwendet werden: 

MOVSPR 1, +10,100 verschiebt Sprite 1 um +10 Einhei- 
ten relativ zum vorangegangenen X-Wert und auf die Y- 
Koordinate 100. 

MOVSPR 2,50,-20 laBt Sprite 2 auf die X-Koordinate 50 
wandern und gleichzeitig um 20 Y-Einheiten nach oben. 
c: MOVSPR n,W # V 

Diese Variante des Spritebewegungs-Befehls ist eine fei- 
ne Sache: Unabhangig vom sonstigen Prog ram mgesche- 
hen wird das Sprite mit der Nummer n mil einem Riehtungs- 
winkel W und der Geschwindigkeit V iiber den Bildschirm 
gesteuert. 

Der Winkel W wird in Grad angegeben. Bild 2 zeigt die 
moglichen Richtungen, die der bekannten KompaBrose 
entsprechen: 

Ohne Fehlermeldung sind Eingaben moglich zwischen 
-65535 und +65535. Sinnvoll scheint das aber allenfalls in 
einer Sehleife, die standige Richtungswechsel durchfiihrt, 
zumal negative Werte und Angaben groBer als 33024 keine 
vernunftige Reaktion ergeben. 

Auch fur die Geschwindigkeit V sind Angaben zwischen 
-65535 und 65535 moglich. Als sinnvoll erweisen sich hier 
nur Werte zwischen und 15. stoppt die Bewegung und 
15 ist die hochste erreichbare Geschwindigkeit. Fur hohere 
V- Werte ergibt sich die Geschwindigkeit dann zu modu- 
lo(16). (Damit ist der Rest gemeint, der bei Division der ein- 
gegebenen Zahl durch 16 verbieibt. So ergibt V=30 diesel- 
be Geschwindigkeit wie V=14) 

Eine Eigenart dieser MOVSPR-Variante ist es, daB die 
Wirkung dieses Befehls anhalt, bis die Bewegung aus- 
drucklich durch MOVSPR n,W # auf Null gesetzt wird. 
Auch ein abgeschaltetes Sprite wandert weiter, was Sie 
leicht mal ausprobieren konnen. 
Der Befehl 
MOVSPR 1,90#15 

laBt Sprite 1 mit Hochstgeschwindigkeit horizontal nach 
rechts uber den Bildschirm jagen. 

SPRSAV 

Das ist ein sehr interessanter Befehl, dessen Anwen- 
dung wir spSter noch detailliert untersuchen werden. Zwei 
mogliche Varianten sind vorgesehen: 
a: SPRSAV n,A$ 

Einem String {hier also A$) wird das Bitmuster des Sprite 
n zugeordnet. 
Mittels SPRSAV 1,A$(2) 

ordnet man das Bitmuster des Sprite mit der Nummer 1 
dem Stringarrayelement A$(2) zu. 
b. SPRSAV A$,n 

Das ist der umgekehrte Weg: Das in A$ enthaltene Bitmu- 
ster definiert nun das Sprite mit der Nummer n. 

Durch SPRSAV A${2),8 wird das in A$(2) gespeicherte 
Muster in den Sprite Nummer 8 gelesen. 

Anstelle von A$ kann jede Stringvariable - auch ein Array- 
Element- verwendet werden. Einige Moglichkeiten, die auf 
diese Weisegegeben sind: »Klonen« eines Sprites, Definie- 
ren von mehr als acht Sprites Oeweils acht sind gleichzeitig 



auf dem Bildschirm aktivierbar), schneller Austausch von 

Spritemustern. 

COLLISION 

Was im C64-Modusdem Assembler-Programmierer vor- 
behalten bleibt Oder nur durch aufwendige POKE- und 
PEEK-Operationen realisiert werden kann, ist im 
C128-Modus mit diesem und dem folgenden Befehl mog- 
lich: 

COLLISION A r NNNN 

fangt drei Typen von Ereignissen ab und setzt die Pro- 

grammbearbeitung in Zeile NNNN fort. A ist dabet eine Typ- 

kennung: 

1 : Sprite/Sprite-Kollision 

2: Sprite/Text-Kollision 

3: Lichtgriffelaktivierung 

Das Servtceprogramm ab NNNN ist wie ein Bastc-Unter- 
programm zu behandeln, also auch durch < RETURN > 
abzuschlieBen. Dieweitere Bearbeitunggeschiehtdann an 
der Stelle, wo bei dem auslosenden Ereignis unterbrochen 
worden ist. 

COLLISION stellt lediglich fest, welcher Typ stattgefun- 
den hat. Bei SpritezusammenstdBen kann also damit nicht 
die Spritenummer identifiziert werden. Es ist erlaubt, meh- 
rere Kollisionstypen gleichzeitig zu aktivieren. Eine Aktivie- 
rung innerhalb eines Unterbrechungs-Service-Unterpro- 
grammes ist nicht moglich: Es findet nur die Bearbeitung 
eines Typs zur Zeit statt. Falls also mehrere aktiviert sind, 
sollte einer der ersten Befehle im Unterprogramm das Ab- 
schalten aller Kollisionsabfragen sein mittels COLLISION 
A (ohne Zeilennummer). Am Ende der Routine kann dann 
COLLISION A, NNNN wieder eingeschaltet werden. 

Nicht immer ist es sinnvoll, so zu verfahren (also die Kolli- 
sionsabfrage am Ende der Routine wieder einzuschalten): 
Falls beispielsweise der Typ 1 (Sprite/Sprite-Zusammen- 
stoB) als Ausloser definiert ist, muB bedacht werden, daB 
die Uberlappung zweier Sprites einige Zeit andauert und 
deshalb das Unterprogramm mehrfach angesteuert wird. 
Im einem Testprogramrn (Listing 2) ist dieser Effekt deutlich 
an den vielen Textwiederholungen zu erkennen. 

Unter welchen Umstanden wird eine Kollision erkannt? 
Immer dann, wenn sich sichtbare Teile von Sprites gegen- 
seitig oder mit Bildschirmobjekten (bei Typ 2) uberlagern. 
Abgeschaltete Sprites werden nicht berucksichtigt, wohl 
aberZusammenstoBeauBerhalb des sichtbaren Bereiches 
(das Handbuch behauptet das Gegenteil). 

Probieren Sie doch einmal, in Zeile 40 von Listing 1 die 
Spritepositionierung: 
40 MOVSPR 7,345,100:MOVSPR 8,345,200 

Nach dem Start ist keines der beiden Sprites mehr auf 
dem Bildschirm zu sehen, Kollisionen werden abergemel- 
det. 

Zwei Aspekte verdienen noch Erwahnung: Zum einen 
darf man ein Programrn, in dem der COLLISION-Befehl 
verwendet wird, nicht durch <RUN/STOP> unterbrechen. 
Tut man es trotzdem, dann funktioniert nach einem CONT 
die Kollisionsabfrage nicht mehr. Zum anderen: Naturlich 
konnen alle Sprite-Befehle auch ohne 40-Zeichen- 
Bildschirm betrieben werden, man sieht nur nichts. Das 
kann bei COLLISION ganz ratselhafte Effekte erzeugen. 
So waren Spiele denkbar, die ein Sprite per Joystick durch 
Hindernisse hindurchbewegen. Das Ganze geschieht im 
Dunkel (also mit abgeschalteten Oder nicht vorhandenen 
40-Zeichen-Bildschirm) und lediglich die Reaktion auf eine 
Kollision erfolgtauf dem 80-Zeichen-Bildschirm, Der Phan- 
tasie sind keine Grenzen gesetzt. 
BUMP 

Der Name sagt's bereits: Auch hier geht es um Zusam- 
menstoBe. Mit dem BUMP-Befehl konnen wir einfach fest- 
stellen, welche Sprites in eine Kollision verwickelt sind: 



SONDERHEFT 36 



57 






C128 



BUMP(A) 

erschlieBt tiber die Typkennung A zwei Sorten von 
ZusammenstdBen. 
A=1: Sprite/Sprite-Kollision 
A =2: Sprite/Text-Kollision. 

Der Befehl hat lediglich die Aufgabe, den Inhalt eines 
speziellen Ko I iisions registers auszulesen. Das allerdings 
macht er so grundlich, daB dieses Register hinterher ge- 
Ibscht ist. Es empfiehlt sich daher, diesen Wert sogleich in 
eine Variable zu speichern: 
V = BUMP(1) 

Die Zahl, die auf diese Weise erhalten wird, mu6 aller- 
dings erst entschlusselt werden (siehe da, ein alter Bekann- 
ter aus dem C64-Modus), denn jedem Sprite ist ein Bit zu- 
geordnet: Sprite 1 hangt mit Bit 0, Sprite 2 mil Bit 1 zusam- 
men und so weiter bis zu Sprite 8, welches mit Bit 7 geht. 
Findet nun die Kollision statt, dann schaiten die Bits der kol- 
lidierten Sprites auf »1«. Bitd 3 zeigt Ihnen diese Zusam- 
menhange und einige Rechenbeispieie. 

Ein Supercrash unter Beteiligung alleracht Sprites wiir- 
de dann also die Zahl 255 ergeben. Ein kleines Testpro- 
gramm (Listing 3) soil das Vorgehen dabei illustrieren. 

Besonders die Zeilen 90 und 100 sind sicherlich fur Sie 
interessant, weil man mit ihnen die Nummern der beteilig- 
ten Sprites feststellen kann. 

Auch hier gilt, was schon beim Befehl COLLISION be- 
merkt wurde: 

Auch ZusammenstdBe auBerhalb des sichtbaren Bild- 
schirmes werden registriert und das auch ohne 40-Zei- 



RSPPOS 

Sollte uns die aktuelle Position oder Geschwindigkeit ei- 
nes Sprites interessieren, dann konnen wir das durch 
RSPPOS(n,A) 

erfahren. Dabei ist n die Spritenummer und A wieder eine 
Kennung mit folgender Zuordnung: 
A = 0: aktuelle X-Koordinate 
A = 1 : Y-Kbordinate 
A = 2: gerade vorhandene Geschwindigkeit 

Leider gibt es da eine kleine Unstimmigkeit gegenuber 
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= 3. also Sprites 1 und 2 
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= 5, also Sprites 1 und 3 
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= 9, also Sprites 1 und 4 
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- 129. also Sprites 1 und 3 


1 


1 




















- 192, also Sprites 7 und 8 



Bild 3. Das Ergebnis der BUMP(A)-Abfrage 

chen-Bildschirm. Ebenso wie dort muB beachtet werden, 
daB ein ZusammenstoB einige Zeit in Anspruch nimmt, also 
die Reaktion darauf meistens mehrfach erfolgt. 

Im Gegensatz allerdings zu COLLISION, das interrupt- 
gesteuert ablauft, mu8 die Abfrage des BUMP-Wertes 
mehrfach erfolgen. Der Befehl ist sowohl ohne als auch mit 
COLLISION einsetzbar. Im letzteren Fail dient er als Ergan- 
zung im Unterprogramm zur Feststellung der Spritenum- 
mern. 
RSPCOLOR 

Damit sind Informationen zu den aktuellen Multico- 
lor-Register-) nhalten zu bekommen: 
RSPCOLOR(A) 
liefert bei 

A = 1: Farbcode in Multicolorregister 1 (das ist das, wel- 
ches der Bitkombination 01 zugeordnet ist) 
A = 2: Hier wird der Inhalt des anderen Multicolorregisters 
ausgegeben, das zu der Bitkombination 11 gehort. 



Bild 4. Schema zur JOY-Abfrage 



dem Befehl MOVSPR: Gleichgultig, wel- 
ches Sprite-Koordinatensystem wir dort 
durch SCALE festgelegt haben, RSPPOS 
liefert immer die Werte des normalen Sy- 
stems. RSPPOS(O) liegt daher immer zwi- 
schen und 511, RSPPOS(1) immer zwi- 
schen und 255. Sollten Sie bei normalem 
System mitteis MOVSPR hohere Werte ein- 
gegeben haben, dann wird hier immer mo- 
dulo(512) fur die X- und modulo(256) fiir die 
Y-Koordinate ausgegeben. 
Auch die Sache mit der aktuellen Geschwindigkeit hatei- 

nen Haken: Falls Sie namlich den Sprite mal auf andere 

Weise als durch MOVSPR n,W#V bewegen, erhalten Sie 

den Wert als Ausgabe von RSPPOS{2). 

RSPRITE 
Hier haben wir das Pendant zum SPRITE-Befehl vorlie- 

gen. Alle dort verwendeten Parameter konnen hier durch 

RSPRITE(n,A) 

abgefragt werden. n ist wieder die Spritenummer, A eine 

Kennung mit den Zuordnungen: 

A = 0: Sprite ein- (=0) oder ausgeschaltet (=1) 

A = 1: Farbcode des Sprites (Im Multicolormodus Farbe 
der Bitkombination 10) 

A = 2: Sprite vor (=0) oder hinter (=1) Text. 

A = 3: In X-Richtung gedehnt (=1) Oder nicht (=0). 

A = 4: in Y-Richtung gedehnt (=1) Oder nicht (=0). 

A = 5: Multicolormodus (=1) Oder normales Hires-Sprite 
(=0) 
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JOY 

Dieser Befehl hat zwar nicht unbedingt etwas mil den 
Sprites zu tun, wird aber haufig zum Steuern der Sprites 
eingesetzt und kommt daher an diese Stelle. Man kann da- 
rn it auf einfache Weise den Zustand der Joystickports ab- 
fragen: 
JOY(A) 

fragt bei A = 1 den Port 1, und bei A = 2 den Port 2 ab. 
Bevor wir uns die Bedeutung der Abfrageergebnisse an- 
sehen, noch eine Warnung: Offensichtlich entspricht der 
Feuerknopf in Port 1 der Taste F8, so daB im Direktmodus 
immer der Maschinensprachemonitor angesprungen wird, 
wenn man den Feuerknopf druckt. Beim Port 2 gibt es die- 
ses Problem nicht. 

Die mittels JOY ausgelesenen Werte haben folgende Be- 
deutung: 

= Ruhestellung 
1-8 = Richtungen 

(siehe Bild 4) 
128 = Ruhestellung, Feuer- 
knopf gedruekt 
129-136 = Richtungen mit ge- 
driicktem Feuerknopf 
(siehe Bild 4) 
Auf diese Weise konnen wir bequem Sprites mit dem Joy- 
stick steuern: 
100 ON JOY(2) GOSUB 300,310,320330,... 

Im Testprogramm (Listing 4) ist eine rnogliche Variante 
dazu gezeigt. 

Damit haben wir alle im Basic 7.0 enthaltenen Sprite- 
Befehle behandelt. Allerdings sind noch einige Fragen of- 
ten geblieben, die uns nun weiter beschaftigen werden. 



Wie kann man Sprites der Nadtwelt 
erhalten? 



1. Sprites im Speicher 

a. Sprite-Daten-Speicher 

Schon beim SPRDEF-Befehl haben wirdiesen Speicher- 
bereich zwischen 3584 und 4095 ($0E00 bis 0FFF) er- 
wahnt, in dem die Spritedaten landen, wenn ein Sprite 
durch Shift-Return gespeichert wird. Pro MOB befinden 
sich dort - in der Reihenfolge der Spritenummern - je 63 
Byte und eine Endmarkierung (das ist ein O-Byte). Verfug- 
bar bleiben diese Daten, bis sie uberschrieben oder der 
Computer abgeschaltet wird. 

b. Sprite-Strings 

Noch fliichtiger ist die Existenz der Daten im String, der 
durch SPRSAV gebildet wird. Schon ein CLR macht der 
Kunst den Garaus, In jeweils67 Byte (die letzten vierenthal- 
ten immer die Werte 23, 0, 20, 0) finden sich dort die Bitmu- 
ster. Sollten Sie einmal versuchen, so einen String (z.B. A$) 
durch PRINT A$ auf dem Bildschirm zu zeigen, dann mus- 
sen Sie sich auf allerhand Uberraschungen gefaBt ma- 
chen: Alle Bytewerte von bis 255 konnen auftreten und 
wirken so, als waren sie mittels CHR$(Wert) zur Ausgabe 
aufgerufen worden. Wenn also der Wert 147 zufallig dabei 
sein sollte, dann wird der Bildschirm geloscht, etc. Jedes 
RUN fuhrt ubrigens ebenfalls ein CLR aus. Auch das ist da- 
her nicht die richtige Methode, die muhselig konstruierten 
Sprites etwas langer am Leben zu erhalten. 

Sowohl im Speicher als auch im String haben die Sprite- 
Daten genau dasselbe Format (bis auf die letzten Bytes, die 
im einen Fall aus einer 0, im anderen aus den Zahlen 
23,0,20,0 bestehen). Das konnen Sie selbst nachprufen am 
Programm "VERGLEICH SPRDT" (Listing 5). 

Nach dem Start werden zunachst die Spritedaten von der 



Diskette geladen und dann in Strings eingelesen. Ansch lie- 
Bend erscheinen auf dem Bildschirm Sprite fur Sprite die 
Bytewerte sowohl aus dem Speicher als auch aus dem 
String. 

2. Sprites auf Diskette und Kassette. 

a. BSAVE 

Eine elegante Methode zur Verewigung unserer Sprites 
ist das Speichern des Spritespeichers mittels des BSAVE- 
Befehls. Man schreibt dazu: 
BSAVE" Name",ON B0,P3584 TO P4095 

Damit sind dann alle acht Sprites erfaBt. Leider arbeitet 
dieser Befehl nicht mit der Kassettenstation, denn es sind 
nur Geratenummern von 4 bis 15 zulassig. Das Wiederein- 
laden geschieht dann (wie in den hier vorgestellten Bei- 
spiefprogrammen) mittels: 
BLOAD"Name",ON B0 

b. Vom Monitor aus 

Damit ist es nun auch Benutzern der Datasette moglich, 
den Spritespeicher auf Kassette zu sichern. Der Monitor 
verfiigt uber ein Kommando S zum Speichern beliebiger 
Speicherbereiche. Mittels MONITOR oder der Funktionsta- 
ste F8 schalten Sie den Monitor an, dann verwenden Sie: 
S * Name " ,01 , . + 3584, + 4095 
(Kassette) oder 
S" Name ",08, +3584, +4995 
(Diskette). 

Mit Hilfe des L-Kommandos im Monitor kann solch ein Fi- 
le dann problemlos wieder geladen werden: 
L"Name",01(oder 08), +3584 

c. Als sequentielles File 

Hat man die Sprites in Strings abgelegt (das diirfen dann 
auch mehr als acht sein), dann kann man sich der ublichen 
Technlken zur Speicherung in sequentiellen Dateien bedie- 
nen. Allerdings kann es manchmal dabei Schwierigkeiten 
mit bestimmten Byte-lnhalten geben. So ist es durchaus 
moglich, daB ein Byte zufallig den Inhalt 13 (also einem 

< RETURN > entsprechend) hat, was zu Stbrungen beim 
Wiedereinlesen fuhren kann. In solchen Fallen konnte man 
die einzelnen Bytes (wie im Programm -VERGLEICH 
SPRDT« geschehen) in die ASCII-Zahlen wandeln und in 
dieser Form als SEQ-File speichern. Diese Mogltchkeit 
werden wir nicht weiter beschreiben, weil die Speicherung 
per Monitor oder BSAVE schneller und effektiver erscheint. 

3. Fiir ein Listing 

Viele Programme werden nicht in Form von Disketten- 
oder Kassettenfiles, sondern einfach auf dem Papier wei- 
tergegeben. Dieses Problem losen bessere Sprite- 
Editoren durch eine Funktion, die alle Werte in DATA-Zeilen 
an ein Programmende anhangt. In SPRDEF existiert diese 
Moglichkeit leider nicht, was uns dazu zwingt, selbstdie Ini- 
tiative zu ubernehmen. 
a. Aus dem Speicher in DATAs 

Dazu haben wir ein kleines Programm »SPRITEDATAS« 
gestrickt (Listing 6), das Sie mit der MERGE-Funktion an 
Ihr eigenes fertiges Spriteprogramm anhangen konnen. 
Noch eine Warnung: Wenn Sie SPRITEDATAS abgetippt 
haben, speichern Sie es unbedingt vor einem RUN ab, 
denn es verabschiedet sich am Ende des Program mlaufes 
aus Ihrem Basicspeicher. Nun also zur Verwendung des 
Programmes. Man startet es durch RUN63000. Das Ausle- 
sen des Sprite-Date nspeichers geschieht im FAST-Modus 
(der 40-Zeichen-Btldschirm verabschiedet sich voruberge- 
hend), danach erscheinen jeweils zwei Program mzeilen 
(mit Zeilennummern ab 63020) und darunter ein GOTO 
63009. AuBerdem meldet sich ein BREAK und READY. Mit- 
tels der CLR/HOME-Taste und 3 aufeinanderfolgenden 

< RETURN > ubernehmen Sie die Zeilen ins Programm 
und erzeugen den nachsten Bildschirm, wo das Spielchen 
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dann ebenso weitergeht. Insgesamt machen wir das acht- 
mal (fur 8 Sprites). Zu guter Letzt wird in Zeile 63040 noch 
eine Einleseschleife ubernommen und es meldet sich der 
Befehi DELETE 63000-63011. Haben Sie auch das mit 
<CLR/HOME> und zwei < RETURN > ubernommen, 
dann ist der DATA-Generator geloscht und an Ihr Programm 
wurde die gesamte DATA-Sequenz angehangt. Als letzte 
Zeile finden Sie beim Listen noch die Einleseschleife, zu 
der Sie nun nur noch an passender Stelle Ihres Program- 
mes mittels GOSUB 63040 springen miissen. 

Es gibtsicherlich elegantere Moglichkeiten, DATA-Zeilen 
zu generteren. So konnten wir auch den Tastaturpuffer ver- 
wenden. Das aber iiberlassen wir Ihrer Schopferkraft. 
b. Aus den Strings in DATAs 

Auch das Ubertragen der Stringinhalte in DATA-Zeilen ist 
eine Losungsmoglichkeit unseres Problems. Sie ist sogar 
sehr verlockend, weil wir damit auf einen Streich mehr als 
acht Sprites ins Listing schreiben konnten. Die Program- 
mierung wird aber etwas kompltzierter, weil hier nicht mehr 
der ganze Inhalt des Sprite-Strings in einen Zeilen-String 
gelesen werden kann. Esgibt eine Reihe von Strategien urn 
das Problem zu losen (mehr oder weniger einfache, was 
teilweise mit dem Auslesen der DATAs zusammenhangt), 
auch hier sind Sie gefordert! 

Das Prinzip ist einfach: Weil jedes Sprite in X-Richtung 
24 Bit breit ist, ergibt sich fur die X-Koordinate des Nachbar- 
sprites bei nahtloser Verbindung ein urn 24 groBerer Wert. 



Koppeln von Sprites 



Sollten Sie ein komplexeres grafisches Gebiide erzeu- 
gen wotfen alses mit einem Sprite moglich ist, dann konnen 
Sie auch mehrere Sprites koppeln. Am Beispiel von vier 
Sprites zeigt Ihnen Bild 5 die dazu notigen Koordinatenwer- 
te: 

21 Bit miBt ein MOB in der vertikalen, wodurch sich Y-t-21 
fur ein unterhalb des ersten gelegenes Sprite berechnet als 
Y-Koordinate. Das Programm »VIER SPRITES" (Listing 7) 
demonstriert die Verhaltnisse. 

Zunachst wachst ein grafisches Objekt aus vier Sprites 
zusammen. Dieses kann dann mit dem Joystick in Port 2 
(nach Druck auf den Feuerknopf) uber den Bildschirm ge- 
steuert werden (Zeile 300). Ein weiterer Druck auf den Feu- 
erknopf beendet das Programm. Wenn Sie bei bestimmten 
Richtungen genau hinsehen, werden Sie eine leichte Un- 
stimmigkeitinderBewegungfeststellen. Bei noch groBeren 
Objekten scheint Basic fur diese Steuerung doch etwas zu 
langsam zu werden und man muB auf Maschinensprache 
umsteigen um eine flussige Bewegung zu erreichen, 

Mehr als acht Sprites 

Hier soil nicht die Rede sein von trickreichen Anwen- 
dungen der Unterbrechungsprogrammierung per Assem- 
bler, die es tatsachlich zulaBt, mehr als acht Sprites 
GLEICHZEITIG auf dem Bildschirm zu zeigen. Vielmehr 
geht es uns um die schnelle, nacheinander ausgefuhrte 
Abbildung. Sehen Sie sich dazu zuerst einmal das Pro- 
gramm »SPRITE-TRICK« ( Listing 8) an. Hier liegen acht 
Spritemuster vor, die nacheinander - mit programmierter 
Verzogerung, weil's sonsf zu schnell ginge - auf derselben 
Bildschirmstelle gezeigt werden. Es ergibt sich ein kleiner 
Trickfiim. 

Nun sind acht Teilbilder ein etwas armlicher Bewegung- 
seffekt. Um wirklich langere Passagen zu zeigen, muBten 
wir anders verfahren. Das soil im Programm »24 SPRITES" 
Listing 9 demonstriert werden. 



Das Geheimnis - Sie haben es sicherlich schon langst 
vermutet - liegt im SPRSAV-Befehl begriindet. 24 Sprite- 
muster wurden hier in ein Stringarrayeingelesen (Zeilen20 
bis 80). Wahrend die Sprites auf dem Bildschirm aktiv sind 
( die Aktivierung erfolgt schon in den Zeilen 130 bis 150), 
wechseln wir durch die Zuordnung anderer Spritemuster 
aus den Strings ihre Erscheinungsformen. Das geschieht 
in der DO... LOOP Schleife ab Zeile 170. Hier geschieht das 
- wegen des hubschen Mustereffektes - zyklisch 
(durch Driicken von < — > konnen Sie das Programm 
beenden), man kann sich aber ohne weiteres vorstellen, 
wie ein oder mehrere groBe Arrays gebildet und dann fort- 
laufend deren Spritemuster verwendet werden konnen. 
Gleichzeitig sind die sich andernden Sprites noch beweg- 
lich... 

Sie sehen, daB kaum Grenzen gesetzt scheinen, aller- 
handlnteressantesauf dem Bildschirm ablaufenzu lassen. 

Noch ein paar Sprite-Besonderheiten 



1, Sprites und Splitscreens 

Beim C128 haben wir ja in den Grafik-Modi 2 und 4 die 
Moglichkeit, sowohl hochauflosende (oder aber Multico- 
lor-) Grafik als auch Text auf einem Bildschirm gleichzeitig 
darzustellen. Damit ist nicht etwa der CHAR-Befehl ge- 
meint, sondern durch eine spezielle Technik, die den Ra- 



fv Y)c 


[(X + 24), Y] 




.[(X + 48), Y] 






SPRITE 1 




SPRITE 2 




[X. (Y+21)]< 




[{X+34).{Y+21)] 






.[(X + 48). 
(Y+21)] 














SPRITE 3 




SPRITE 4 




[X. CY+42]], 




[CX + 24). (Y+42)] 






>[(X + 48). 

(Y+42)] 











Bild 5. Koppeln von vier Sprites 

sterzeilen interrupt ausnutzt, wird der Bildschirm tatsach- 
lich in zwei verschiedenen Modi betrieben. 

Wie verhalten sich nun die Sprites auf solch einem Bild- 
schirm? Wie es Kobolden ansteht, scheren sie sich uber- 
haupt nicht darum! Probieren Sie mal das Programm VIER 
SPRITES mit einer kleinen Anderung aus: In die Zeile 130 
fugen Sie noch ein GRAPHIC 2,0,12 (oder fur den Multico- 
lormodus GRAPHIC 4,0,12) und starten dann. Ohne Reak- 
tion von seiten der Sprites konnen Sie diese uber die in der 
Bildmitte liegende Modusgrenze hinwegsteuern. Aller- 
dings reagiert der Bildschirm mit einem penetranten Flat- 
tern der Grenzlinie, wenn das Sprite genau darauf liegt. 

Falls Sie dasselbe mit dem Grafik-Modus 4 (also GRA- 
PHIC 4,0,12) probieren, wurde es uns interessieren, ob 
auch Ihr Computer nach einiger Zeit mit irgendeiner Fenler- 
meldung aussteigt. Beim Modell des Autors hat er sich so 
verhalten. Wenn er sich dann die als fehlerhaft gemeldete 
Zeile listen lieB, befanden sich allerlei rnerkwurdige - an- 
scheinend zufallig erzeugte - Fehler darin. Zuvor aber war 
die Zeile fehlerfrei gewesen! Man sollte offensichtlich diese 
Moglichkeit mit etwas Vorsicht gebrauchen. 
2, Sprites und Windows. 

Ebensowenig wie sich Sprites um den Splitscreen kum- 
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mern, scheren sie sich urn Windows. Probieren Sie es inal 
aus, indem Sie in Zeile 130 des Programmes »VIER SPRI- 
TES" noch ein Window definieren (zum Beispiel mit WIN- 
DOW 5,5,20,10). Unbeirrt von alien Einschrankungen, de- 
nen unser Text unterworfen ist (hier die Aufforderung zum 
Benutzen des Port 2), laBt sich unser Spritegebilde kreuz 
und quer verschieben. 

Die Sprites an sich sind damit zunachst einmal durch- 
leuchtet, Legen wir sie also fur eine Weile beiseite und wen- 
den wir uns den anderen Grafikobjekten des C 128 zu, den 
Shapes. 



Vitas sind Shapes 



Wie so vieles aus der Computerkultur stammt auch dieses 
Wort aus dem angelsachsischen: Shape heiBt ins Deut- 
sche ubersetzt soviel wie Form, Gestalt, UmriB. Hier be- 
zeichnet Shape einen genau definierten Bildschirmaus- 
schnitt, der gespeichert und wiederverwendet werden 
kann. Wie das mit dem C128 geschieht, soil nun erklart 
werden. 
SSHAPE 

Dies ist der Befehl, mit dem ein Bildschirmbereich in ei- 
nen String eingelesen werden kann. Seine Syntax ist 
SSHAPE A$,X1,Y1,X2,Y2 



CXI Y1)Q 



6(X2, Y2) 



Bild 6. Zur Syntax des SSHAPE-Befehls 



A$ ist hier dann eine beliebige Stringvariable, auch ein 
Array kann Verwendung finden. X1 bis Y2 bezeichnet die 
Eckkoordinaten des Rechteckes, dessen Inhalt als Shape 
definiert werden soil. Bild 6 soil das etwas verdeutlichen: 

(X1,Y1) gehoren zum linken oberen und (X2.Y2) zum rech- 
ten unteren Eckpunkt. Es ist auch mogiich, X2 und Y2 weg- 
zulassen. In diesem Fall werden durch den SSHAPE-Be- 
fehl einfach die aktuellen Koordinaten des Grafik-Cursors 
eingesetzt. 

Falls es noch unklar sein sollte: Im Gegensatzzu Sprites, 
diejedem Bildschirm-Modustrotzenfalsosowohl als Hires- 
oder Multicolorsprites im Text-, als auch im Hochaufld- 
sungs- und im Multicolormodus auftauchen konnen), sind 
Shapes fest mit dem aktuellen Modus verbunden. 

Ein Shape ist ein Grafikobjekt, kann daher auch nur in 
den Grafikmodi auftreten und definiert werden. Also in do- 
ners, die durch GRAPHICn erzeugt werden, wobei n von 1 
bis 4 geht. AuBerdem ist ein Multicolorshape auch nur im 
Multicolormodus ein solches. Schaltet man beispielswelse 
mittels GRAPHIC1 um in den normalen Hochaufldsungs- 
modus, wird auch unser Shape nur als hochaufgelostes 
sichtbar. 

Wie wir uns aus all dem schon fast denken kdnnen, ist 
das Koordinatensystem, auf das sich die Angaben X1 bis 
Y2 beziehen, das im jeweiligen Modus gultige. Im Normal- 



fall also im Hires-Modus X von bis 319 und Y von bis 199. 
Im Multicolormodus gehl X nur von bis 159. 

A$ ist ein String. Fur Strings gilt beim C128 die Begren- 
zung auf maximal 255 Byte. Ein durch SSHAPE in einen 
String zu schreibendes Gebiet darf also eine gewisse Gro- 
Be nicht iiberschreiten. Bezeichnen wir als 
DX = X2 - X1 
und als 
DY - Y2 - Y1 

dann gilt fur die Bytemenge im String im Hochaufldsungs- 
modus die Formal: 
Lh=INT((ABS(DX)+1)/8+.99)*{ABS{DY)+1)+4 

Im Multicolormodus gilt statt dessen die Gfeichung: 
lm=INT((ABS(DX)+1)/4+.99nABS(DY)+1)+4 

Die Addition von 4 am Ende der Formeln erglbt sich durch 
vier Byte, die den SchluB des Shape-String failden und 
SteuergroBen enthalten. 

Naturlich konnen Sie jedesmal, wenn Sie ein Shape er- 
stellen, von dem Sie argwdhnen, es konne zu groB sein fur 
den String, unsere Formeln anwenden. Eine Hilfe soil Ih- 
nen Listing 10 »SSHAPE-TABELLE«< geben. In der vorlie- 
genden Form druckt eseine Listeaus, in deren linker Spalte 
Werte fur eine Y-Differenz stehen. Rechts daneben sind die 
maximal zulassigen DX-Werte angegeben sowie die sich 
ergebende Stringlange. Auf diese Weise konnen Sie - aus- 
gehend von DY - mit einem Blick erkennen, wie groB DX 
sein darf. Es empfiehltsich, noch drei weitere Tabellen aus- 
zudrucken. Da ist zunachst einmal interessant, wie der 
Maximalwert von DY bei gegebenem DX aussieht. Zu die- 
sem Zweck ist lediglich die Reihenfolge des Ausdruckes 
und der Rechenoperationen zu andern: 

In Zeile 20 kommt dann X-DIFF vor Y-DIFF, Zeile 40 ent- 
haltX=0, in Zeile SOschreiben wir DO UNTIL X=320, in der 
nachsten Zeile 60 steht: X=X+1:Y=0. Zeile 70 wird zu DO 
U NTI L Y= 200 und Zei le 80 zuY=Y+1.Sch!ieBlich wird auch 
in Zeile 90 noch die Reihenfolge des Ausdruckes umge- 
stel It zu PRINT #1,X1,Y1,Z. 

Diese beiden Tabellen beziehen sich auf Shapes im 
Hochaufldsungsmodus. Zwei weitere Tabellen fur den Mul- 
ticolormodus bekommen Sie, wenn Sie in Zeile 30 die vor- 
hin angegebene Berechnungsfunktion zu diesem Modus 
einfugen. Nur die Zahl 8 muB dazu in eine 4 verandert wer- 
den. 

Sollte dann, trotz all dieser Berechnungsmoglichkeiten - 
man steht ja nicht jedesmal in die Tabellen - der zu spei- 
chernde Shape grbBer werden als 255 Byte, dann meldet 
unser Computer einen STRING TOO LONG ERROR. 

Einen Aspekt zum SSHAPE-Befehl mussen wir noch be- 
sprechen, weil es da einige Verwirrung geben kann: Wie 
reagiert SSHAPE auf ein durch SCALE verandertes Bild- 
schirmsystem? Die Koordinatenangabe bei SSHAPE muB 
dann ebenfalls in den aktuell gultigen Werten geschehen. 
Man muB sich also nicht um die Organisation des Koordina- 
tensystems kiimmern, denn durch SSHAPE wird automa- 
tisch die Umrechnung auf den normalen Bildschirm vorge- 
nommen. Lediglich bei der Berechnung der Stringlange 
mussen einige Korrekturen eingefugt werden. 

Nehmen wir an, wir hatten durch SCALE 1,XM,YM ein Sy- 
stem definiert, dann liegen (im Hochaufldsungsmodus) die 
VergrbBerungsfaktoren 
FX =XM/320 
FY =YM/200 

vor und die Beziehungen fur die Stringlange lauten dann: 
Hochaufldsungsmodus: 
Lh=INT{(ABS{DX*320/XM)+1)/8+.99)* 
(ABS(DY-200/YM)+1)+4 
Multicolormodus: 

Lm = INT((ABS(DX*160/XM)+1)/4+.99r 
(ABS(DY*200/YM)+1)+4 
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DX und DY sind dabei im aktuellen Koordinatensystem 
geltende Werte. 

Begniigen wir uns nun mit dem SSHAPE-Befehl {es ga- 
be noch einiges zu untersuchen) und wenden wir uns dem 
GegenstiJck, namlich dem GSHAPE-Befehl zu. 
GSHAPE 

Ein durch SSHAPE im String gespeichertes Bild kann 
durch diesen Befehl nun wiederauf dern Bildschirm darge- 
stellt werden: 
GSHAPE A$,X,Y,M 

A$ ist der uns nun schon bekannte Speicherstring, der 
durch SSHAPE definiert wurde. Es kann jede Stringvaria- 
ble Oder ein String-Array-Element verwendet werden. 

X,Y sind die Koordinaten im aktuellen System, an die die 
linke obere Ecke unseres Shapes gelegt werden soil. 

Interessant ist die Angabe von M. Hier dreht es sich urn 
einen Darstellungsmodus, von dem es hier vierMoglichkei- 
ten gibt: 
M = 0: Unser Shape wird genauso abgebildet, wie es 
definiert wurde. Schon an dieser Stelle auf dem 
Bildschirm vorhandene Objekte werden iiber- 
deckt. Dasselbe ergibt sich, wenn wir diesen Pa- 
rameter einfach weglassen. 
M =1; Das Shape wird invertiert abgebildet. Auch hier 

uberdeckt das Shape vorhandene Objekte. 
M = 2: OR-Modus: Bildpunkte werden sichtbar, wenn 
sie zum Shape Oder zu vorhandenen Objekten 
gehoren. Beide Bilder iiberlagern sich so. 
M = 3: AND-Modus:Bildpunkte werden nur dann ge- 
setzt, wenn sie sowohl zum Shape als auch zum 
Bildschirmobjekt gehoren. 
M = 4: EOR- { oder XOR-) Modus: Bildpunkte werden 
nur dann gesetzt, wenn das entsprechende Bit 
fur Shape und Bildschirmobjekt ungleich ist. 
Die Modi 2, 3, 4 sind etwas schwer vorstellbar. Zur Ver- 
deutlichungfindenSie hier ein kleines Demonstrationspro- 
gramm namens »GSHAPE-MODI« (Listing 10). Hier wird 
zuerst ein Shape definiert, dann der gesamte Bildschirm 
quergestreift und schlieBlich das soeben erstellte Shape in 
alien funf Modi darauf dargestellt. Die Wirkung ist auf diese 
Weise ganz gut zu erkennen, besonders bei den Modi 2, 3 
und 4. 

Der Modus 4 ist aufgrund der EOR-Behandlung interes- 
sant: Wird namlich auf dieselbe Stelle noch einmal das 
Shape im Modus4gezeichnet, dann verschwindetesganz 
und der Bildschirmhintergrund ist wieder vorhanden. Will 
man Shapes bewegen, ohne Bildschirmobjekte zu zersto- 
ren, dann ist diese Darstellungsweise ganz gut dazu geeig- 
net. 

Die Frage, wie viele Shapes man definieren und auch 
darstellen kbnne, erubrigtsich fast: Beliebig viele, solange 
der Speicherptatz fur die Strings reicht. Und davon haben 
wir eine ganze Menge! Man konnte sich also eine ganze Bi- 
bliothek von Hochauflosungs- oder Multicolorobjekten zu- 
legen und diese dann beiBedarfabrufen. SolltefureinOb- 
jekt der String zu kurz sein, kdnnen - ebenso wie wir es bei 
den Sprites schon praktiziert haben - mehrere Shapes ge- 
koppelt werden. Sie erkennen schon: Auch hier sind die 
Mbglich keiten sehr breit. 
Zusammenspiel von SSHAPE und GSHAPE. 

Eine Frage haben wir noch offengelassen, die eine recht 
verlockende Konsequenz in sich birgt: Wenn man mittels 
der SCALE-Anweisung die Systeme bei SSHAPE (also 
beim Aufbau des Shape) und bei GSHAPE (bei der Abbil- 
dung) unterschiedlich wahlt, kann man dann Shapes ver- 
kleinern oder vergroBem? 

Die Antwort ist leider nein. Bei GSHAPE werden nur die 
Koordinaten eines{des iinken oberen) Eckpunktes angege- 
ben. Lediglich auf den Darstellungsort hat somit ein unter- 



schiedliches Koordinatensystem eine Wirkung, nicht aber 
auf die Shape-GrbBe. 
Bewegen von Shapes 

Im Gegensatz zu den Sprites ist das Bewegen von Sha- 
pes eine langweilige Angelegenheit. Jedem Shape-Aufbau 
durch GSHAPE kann man ganz geruhsam zusehen. Zwar 
ist es durch Sequenzen wie: 
FOR I = TO 200 

GSHAPE A$,I,I4 

GSHAPE A$,l,l,4 
NEXT I 

mbglich, Shapes ohne Schaden fur den Bildschirminhalt 
uber den Sichtbereich Ziehen zu lassen. Das Ganze ahnelt 
aber bei weitem nicht der Sprite-Bewegung. Aus diesem 
Grund ist es anzuraten, bei der Bewegung von Bildschirm- 
objekten - wann immer moglich - Sprites zu wahlen. 

Shapes der Nachwelt erhalten 

Wir stehen bei den Shapes demselben Problem gegen- 
uber wie bei den Sprites. Auf welche Weise kann ein einmal 
erstelltes Shape fur weiteren Gebrauch beiseitegelegt wer- 
den? 

1. Shapes im Speicher 

a. Der Shape-String 

Durch SSHAPE wurde ein String geschaffen, der die 
gleiche Lebensdauer hat wie jede andere Variable: RUN 
und CLR Ibschen ihn. 

b. Shape im Sprite-Speicher 

Wir werden spater eine Mdglichkeit kennenlernen, die es 
untergewissen Umstanden erlaubt, ein Shape zum Sprite 
zu machen. Auf diese Weise gelangt das Muster dazu dann 
in den Speicherraum, der den Sprites vorbehalten ist und 
uberlebt, bis der Computer abgeschaltet oder der Speicher 
uberschrieben wird. 

2. Shapes auf Diskette oder Kassette 

Dam it wird es nun wirklicn interessant. Der Massenspei- 
cher kann Shapes »auf ewig« festhalten. 

a. Shape-Strings direkt 

Im Grunde genommen sollte es mbglich sein, den durch 
SSHAPE definierten String direkt als sequentiellen File auf 
Diskette oder Kassette abzulegen und zu lesen. Allerdings 
ergeben sich hier - wie auch schon bei den Sprite-Strings 
-Schwierigkeiten beim Lesen. Weil im Prinzip alle Bytewer- 
te von bis 255 auftreten konnen, also auch ein Wert, der 
einem Carriage Return oder einem Anfuhrungszeichen 
entspricht, wird der String nicht immer vollstandig und feh- 
lerfrei gelesen. Dazu kommt das Problem, daB die Shape- 
Strings unterschiedliche Langen aufweisen kdnnen. Wie 
bestimmt man das Ende eines solchen Files? 
b. Als ASCII-Werte speichern 

Ebenfalls bei den Sprites wurde diese Mdglichkeit schon 
angedeutet: 'den Shape-String auseinanderzunehmen 
undjedes Byte in Form seines ASCII-Wertes zu speichern. 
Eine Variante dieses Verfahrens zeigt Ihnen das Listing 12 
»SHAPE SPEICHERN«. Hier wird zuerst ein Shape (ein- 
fach ein Kreis) erzeugt und in A$ abgelegt. Ein Unterpro- 
gramm druckt auf dem Textbildschirm (fur Benutzer von 2 
Bildschirmen sofort, fiir andere erst spater sichtbar) die 
ASCII-Werte des Strings aus. In Zeile 40 wird der alte File 
SHAPE1 geloscht und dann ab Zeile 50 der neue auf Dis- 
kette abgelegt. Benutzen Sie eine Datasette, dann sind le- 
diglich in den Zeilen 60, 80, 120 und 180 die DOPEN und 
DCLOSE gegen OPEN und CLOSE mit den entsprechen- 
den Geratenummern auszutauschen. Nun sind wireigent- 
fich schon fertig: In Zeile 100 loschen wir alle Variablen, den 
Grafikbildschirm und starten den zweiten Teil des Program- 
mes, der nurzur Kontrolle den File einliest und unser Shape 
abbildet. Zusatzlich werden auf dem Textbildschirm wieder 
dieStringlange und die eingelesenen ASCII-Werte abgebil- 
det. Beide Ausdrucke lassen sich gut vergleichen (Benut- 
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zer eines Bildschirmes kommert In diesen GenuB, wenn sie 
nach Ende des Programmes durch GRAPHICO den Text- 
bitdschirm einschalten). 
c. Eine unorthodoxe Losung 

Etwas exotisch und daher hier nur kurz skizziert ist die 
folgende Vorgehensweise: Mittels des POINTER- 
Befehls(hieralsoPOINTER(A$))sucht man in BANK 1 den 
Stringdescriptor. Die dort genannte Adresse und Lange 
verhiift uns dazu, den Speicherbereich, in dem wir unseren 
String stehen haben, durch BSAVE abzuspeichern. 

Beim Wiedereinfaden muBte man zunachst einen String 
definieren, dann durch BLOAD dessen Inhalt an eine belie- 
bige Speicherstelle packen und den Stringdescriptor dar- 
auf richten. 

Das erscheint im ersten Moment ziemlich kompliziert zu 
sein, kdnnte aber - besonders bei Verwendung vieler Sha- 
pes - schneller funktionieren. Damit wurde beispielsweise 
ein festgeiegter Speicherbereich fur alle Shapes en bloc 
ein- oder auslesbar warden. Probreren Sie's doch mal! 

Shapes fur ein Listing 

a. Als Zeichenvorschrift 

Haufig werden Shapes durch einige wenige Grafik- 
Befehie erstellt. Die einfachste Methode - der wir uns auch 
bisher bedient haben in den Beispielprograrnmen - ist es 
daher, die Zeichenvorschrift ins Programm einzuarbeiten. 
Manchmal stoBt man damit aber an Grenzen: Wenn bei- 
spielsweise der Ausschnitt eines Multicolorbildes als Sha- 
pe verwendet werden soil, das auf dem Grafiktablett erstellt 
wurde oder wenn essich urn einTeil eines Fractals handelt, 
das 25 Stunden bis zur Fertigstellung dauert etc. 

b. Shapes in DATA-Zeilen 

Ahnlich wie wir bei Sprites einen DATA-Generator ver- 
wendet haben, dersich nach seiner Verwendung seibstta- 
tig Ibscht, geschieht das nun hier auch. Im Programm 
»SHAPE DATA« (Listing 13) ist auBerdem noch ein kleiner 
Testteil enthalten. 

Wie gehabt, wird hier zuerst ein Shape (ein Kreis) er- 
zeugt, dann endet das Programm an einem STOP in Zeile 
6. Wenn Sie mitdem 40-Zeichen-Bildschirm arbeiten, dann 
fiigen Sie bitte vor das STOP-Komrnando noch ein GRA- 
PHIC ein, denn alles, was nun folgt, ist Text. Das STOP- 
Kommando wurde eingebaut, urn Ihnen die Mogfichkeit zu 
geben, an dem Shape vor dem Auf ruf des DATA-Generators 
noch etwas zu verandern. Ist alles in Ordnung, dann geben 
Sie bitte CONT ein. Der DATA-Generator erzeugt nun acht 
Zeilen mit DATAs und dazu noch das Einleseunterpro- 
gramm sowie die Losehanweisung DELETE 63000-63012. 

Die erste Zahl in den DATAs ist die Stringlange, die als A 
spater beim Auslesen und Zusammenfiigen des Shape- 
Strings eine wichtige Rolle spielt. Ist das Programm mit 
dem Ausdrucken der neuen Zeilen fertig, dann bricht es ab. 
Durch die HOME-Taste gelangen Sie in die erste Zeile. Mit- 
tels mehrfach wiederholtem RETURN konnen nun alle 
neuen Zeilen ins Programm ubernommen und der Genera- 
tor geloscht werden. Hinterher sieht unser Programm dann 
aus wie in »SHAPE DATA 2« (Listing 13). Zur Kontrolle las- 
sen Sie doch mal dieses Programm durch RUN 10 starten. 
RUN loscht ja auch die Strings, so daB das nunmehr ge- 
zeichnete Shape aus den DATA-Zeilen wiederauferstanden 
ist. 

Die Vorgehensweise bei diesem Programm ist dieselbe 
wie beim DATA-Generator fur die Sprites. Allerdings werden 
hier die Werte nicht aus dem Speicher, sondern aus einem 
String geholt, der deshalb auch schon durch einen - zumin- 
destteilweisen - Program mlaufdef in iert worden sein muB. 

Wenn Sie mehrere Shapes auf diese Weise festhalten 
wollen, ist das Programm reiativ einfach umzubauen, am 
besten mittels eines String-Arrays und einer weiteren 
Schleife. 



Wenden wir uns nun dem Zusammenspiel von Sprites 
und Shapes zu: 

Erzeugen von Sprites aus Shapes. 

Anstatt mitdem SPRDEF-Befehl konnen Sprites auch re- 
gelrecht gezeichnet werden durch Grafik-Befehle im 
Hochauflosungs- oder im Mehrfarbenmodus. Die Nahtstel- 
le zwischen Sprite und Shape ist dabei der String, in den 



Shapes und Sprites 



unsere Zeichnung zuerst als ein Shape (mittels SSHAPE) 
eingeschrieben wird. Von dorl ist es dann durch SPRSAV 
in den Sprite-Speicher zu tibertragen. 

Eine Regel ist dabei zu beachten: Der Sprite-String liegt 
in seiner Lange fest. Im Normalmodus miissen wir immer 
von einem 24 mal 21 (das ist X mal Y) Raster ausgehen, im 
Mehrfarbenmodus vom 12 x 21-Muster. Eine SSHAPE-An- 
weisungmuB daher- falls wir ein Sprite konstruieren wollen 

- im Normalmodus lauten: 

SSHAPE A$,X,Y,X+23,Y+20 und im Multicolormodus: 
SSHAPE A$,XY,X+11,Y+20 

X und Y sollen die Koordinaten der linken oberen Ecke 
des gewiinschten Bildausschnittes sein. 

ist SSHAPE nicht in diesem Raster erstellt worden, kann 
sich allerlei Unsinn auf dem Bildschirm abspielen. 

Ein kleines Demoprogramm (Listing 13) namens "SHA- 
PE UND SPRITE* spielt diese Option durch. Zunachst wird 
ein Multicolorshape erzeugt und in Sprite 1 geschrieben. 
Eine Umstellung vom Multicolor- in den Hochaufldsungs- 
modus zeigt, daB das Sprite seine Farben behalt, das Sha- 
pe dagegen nicht. Ein zweites Shape erzeugt das Sprite 2, 
die beide dann uber den Bildschirm bewegt werden. Falls 
Sie nach Programmende mittels GRAPHIC noch auf den 
Textbildschirm (40 Zeichen) umschalten, sehen Sie noch 
einen Unterschied zwischen Shapes und Sprites: Letztere 
bleiben auch hier aktiv. 
Shapes aus Sprites bauen 

Naturlich ist auch der umgekehrte Weg moglich: Nam- 
lich Shapes aus Sprites zu konstruieren. Fiigen Sie einfach 
mal an unser letztes Programm aus Listing 13 -SHAPE 
UND SPRITE« folgende Zeilen an: 
130 CLR :REM LOESCHEN DER STRINGS 
150 SPRSAV 1,A$:SPRSAV 2,B$ 
160 GSHAPE A$,150,100:GSHAPE B$,200,100 

Uber den Sinngehalt solch einer Zuordnung laBt sich na- 
turlich streiten. Denkbar ware es, das anzuwenden bei 
Speicherung eines Shape-Musters im Spritespeicher und 
anschlieBendem Zurucklesen dieser Information. Dariiber 
hatten wir oben ber Aufbewahrung von Shapes fur die 
Nachwelt schon kurz nachgedacht. 
Wenn Shapes und Sprites zusamrnenstoBen 

Kollisionen von Sprites mit Shapes werden vom Compu- 
ter ebenso registriert, als waren es ZusammenstoBe mit 
Textbestandteilen. Sowohl der COLLISION- als auch der- 
BUMP Befehl konnen verwendet werden. In einer erweiter- 
ten Version unseres Programmes "SHAPE UND SPRITE" 
namens »SHAPE/SPR-KOLL« (Listing 14) werden alle Mog- 
lichkeiten, die wir in den letzten Abschnitten besprochen 
haben, ausprobiert. Dabei findet der COLLISION-Befehl 
Anwendung und Sprite 1 ist durch einen Joystick in Port 2 
steuerbar. Bei jedem ZusammenstoB wechselt der Sprite 
die Farben. 
Wann Shapes und wann Sprites? 

Jeder von Ihnen kann eigentlich nun die Frage beantwor- 
ten, wann welches der beiden Grafik-Objekte sinnvoll ein- 
zusetzen ist: Shapes und Sprites. 

- Bewegte Objekte sollten Sprites sein 

- Objekte, die in verschiedenen Grafikmodi (auch im 
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40-Zeichen-Textmodus) in gleicher Gestalt auftreten sol- 
len, konnen nur Sprites sein. 

- Statische Objekte in beliebiger Anzahl sind ais Shapes 
gut zu verwirklichen 

- Objekte, bei denen kein starr festgelegter Raster zugrun- 
degelegt wird, konnen Shapes sein. 



Nun sind Ihrer Phantasie keine Grenzen gesetzt: Bauen 
Sie sich ein Menu, in dem mit einem Sprite in Pfeil- oder 
Handform auf Symbole (Shapes) gedeutet wird, oder ba- 
steln Sie sich Schaltplane aus vorgefertigten Einzelteilen 
(Shapes) zusammen, die Sie mit einem Kran-Sprite aussu- 
chen und plazieren oder, oder. (H.Ponnath/sk) 



<IC9> 
<4S7> 
<D7K> 
<D1L> 



19 REM «*«** DATA-LADER FUER ALLE SPRITES »»#»» <A99> 
15 FAST <M2R> 

20 eosue 100: BSAVE "SPRITES1",DN B9.P35B4 TD P40 

75 <34©> 

39 BOSUB 190: B5AVE "SPRITES2" ,0N B0,P35B4 TO P4B 

95 <14S> 

40 BQSUB 100: BSAVE "SCENE1",BN B0,F35S4 TO P4095 <0D2> 
50 GDSUB 100: BSAVE "SCENE2",QN B0.P35B4 TD P4095 <35E> 
60 605UB 100: BSAVE "5CENE3",0N B0,P3584 TO P409S <2TA> 
65 SLOW <UVO> 
79 PRINT CHR*tl47S"ALi£ SPRITE-FILES SIND BESPEIC 

HERT" <R32> 

B9 END <PV6> 

100 REM #« DATEN IN SPR1TE-SPEICHER SCHREIBEN *» 

* 
110 FOR 1-3564 TO 4095: READ A: POKE I, A: NEXT I 
120 RETURN 

63000 REM ##+**** SPRITE-DATEN *####»•** 
63010 REN »•♦ DAT AS VON FILE SPRITES 1 »*« 

63020 DATA 000, 009, 999, 000, 090, 000, 000, 170,000,00 
1 ,254, 099, 002, 001, 000,004, 000,128,004, 204,1 
2B, 094, 000, 128,060,048,240,036,000,144,036, 

132 <9IT> 

63021 DATA 144,036,129,144,034,901,916,001,254,00 
0, 999, 1 32 , 900, 990, 132 , 000, 000, 1 32 , 090, 000, 1 
32,000,090,132,090,903, 135,000,900,000,000, 

909 <U6E> 

63922 DATA 009,000,000,000,000,900,999,170,990,99 
1,254,990,002,901,099,994,999,128,994,294,1 
29,994,999, 128,969,048,224,036,900, 160,036, 

132 <RSL> 

63923 DATA 169,036,120,160,034,901,032,001,254,93 
2,000,132,032,000,130,099,999,129,999,999,1 
2o | 1 £o i WVV f 1 Z9 f ™6 * ww3 f A *" * wft i www i Wow , www ^ 

099 <NLK> 

63924 DATA 999,990,000,000,000,000,000,170,000,00 
1,254,000,002,001,000,004,090,128,132,204,1 
2B, 132, 000, 126, 252, 946, 224, 994, 999, 169,994, 

132 <5SF> 

63025 DATA 169,994,129,169,992,991,932,991,254,03 
4 , 000, 132, 034 , 090, 967 , 254 , 099, 964 , 999, 999, 
64,999,999,964,999,991,192,999,099,999,090, 

999 <UB7> 

o3 w2o DAT ft Vwv , www f WW T VWW f www + www * www 1 ^ \fV^ WW 1 W 
1,254,990,902,991,908,994,999,136,094,294,1 
36, 132, 990, 136, 252,04a, 248,132,090, 136, 094, 
132 <6J3> 

63927 DATA 136,994,120,142,992,001,000,001,254,00 
0,000, 128,000,000,064,000,000,032,000,000,0 
32,000,000,032,000,000,224,009,990,990,990, 

990 <F2L> 

63928 DATA 999,099,999,009,900,192,000,170,096,00 
1 ,254,048,002,001,024,004,000, 140, 132,204,1 
39,132,000,136,252,048,248,004,990,128,004, 

132 <45P> 

63029 DATA 128,994,120,128,992,991,999,991,254,99 
9,999, 128,999,999,964,990,090,932,090,000,0 

3~" £L£Uh Artfl CiT •"> AAA ^-**J^ Ttlft flAa ifkAA Afi^rt AArt 
*- np WWW-p WWWf C->i f WWW j UVWj £-£^ i >OWW t WWJ^ PVB| *^^IJ^ 

000 <PRE> 
0-3939 D"Th www f wv « wB| 9wv^ BW| wOw , 2a5 , 1 7h t www * 1 fe 

1 ,254,999,162,991,999,936,990, 192,936,294,1 
69,936,990,144,060,048,248,094,000,128,004, 

132 <7HD> 

63031 DATA 128,904,129,128,992,991,999,991,254,90 
0,990,128,909,999,064,090,090,032,009,009,9 
T~i aa£i viaa A"m AAA fifw^ ""^^A rtArt Aftrt ftrtrt rtrtrt 

^j. T WW , WWW f W-J-i f WWW f WWW fi f <£nt j WWWip WWW-j WWW i WWW i 

099 <JQ6> 

63932 DATA 990,999,090,000,000,000,000,170,000,00 
1 ,254,000,002,001,900,004,000, 192,004,204, 1 
60,004,000,144,060,048,248,936,909,128,036, 

132 >:O0T> 

63933 DATA 128, 164, 129, 128, 99B, 991 , 000,033,254 ,00 
9, 91 6 , 12B ,009, 098, 964 , 000, 004 , 032 , 900 , 002, 
32 , 000 , 904 , 932 , 900 , 008 , 224 , 000 , 900 , 000 , 000 , 

999 <86D> 

63034 DATA 000,000,000,000,000,000,000,170,000,00 
1,254,000,002,001,000,004,000,128,004,204,1 
28 , 994 , 999, 12S, 028 , 948 , 224 , 029, 999, 1 69, 920, 

132 <:N17> 

63935 DATA 160,929,129,169,918,001,032,017,254,03 
2 , 91 6 , 1 32 , 932 , 03 1 , 252 , 032 , 000, 039 , 224 , 000, 9 
36,000,990,036,000,000,231,000,000,000,090, 
000 <9B8> 

63039 REM »«* DAT AS WON FILE SPRITES2 **» <CLJ> 

63040 DATA 985,985,985,196,179,169,111,255,249,11 
1,255,249,111,255,249, 109,085,121,109, 170, 1 
21,199,199,121, 109, 190, 121 , 109, 190, 121 , 109, 



Listing 1, Alle »ALLE SPRITES-. 

Dieser DATA-Lader erzeugt auf der Diskette die in den 

Beispielprogrammen benotlgten Sprite-Files. 

Bitte mit dem Checksummer 128 (Seite 158) eingeben. 



190 
63641 DATA 121,199,199,121,199,199,121,109,190,12 
I , 109, 170, 121 , 109,985, 121 , 1 1 1 ,255,249, I 11,2 
55,249, 1 1 1 ,253,249, 106, 170, 169,985,085,085, 
900 

63942 DATA 255,255,255,148,081,969,170,179,139,21 

3.921.985.162.138.941 .213.985.981.168.179.1 
69, 148, 9B1, 969, 179, 179, 163, 197,085,985,162, 
138 

63943 DATA 941 , 149,085,021 , 138, 170, 171 , 148, 081 , 96 
9,179,168,171,299,985,985,162,138,941,213,9 
69,985,170,942,171 , 148,017,069,255,255,255, 
999 

63044 DATA 009,000,001,000,000,003,000,000,007,00 

«,„,,. rffcl -.- iJcXf* AAA ,»'-l= AAA JT.^. A ■■.«□ ftAA ..[At* A 

, WWW if- VI J| WW»J t WWW T '-'■-.-J i OWW^ WWW-t W*tt * "TWi WVf W 

t7 * www i* OWi 1 V-5 1 w*M5 i 8Kj J ( 1 29 ^ 9HB + ww.5 + w 1 4 www f 
996 

63945 DATA 991 ,999, 012,991 ,999,924 , 129, 999, 04B, 12 
,9,099,096,129,990,192, 129,091,128,001,003,0 

00,001,006,000,001,012,000,001,031,255,255, 
000 

63946 DATA 128,999,999,192,999,999,224,090,099,17 
6,999,099,152,990,099,149,909,000,134,000,0 
99,131 ,999,999,129, 12B, 999, 128, 192,000, 128, 
096 

63047 DATA 000,148,048,000,148,024,000,148,012,99 
0,148,006,000,148,003,000,128,091,128,128,9 
99,192,128,999,996, 128,999,948,255,255,248, 
099 

6304B" DATA 031 ,255,255,012,000,001,906,000,001 ,09 
3,992,161,901,130,161,000,194,161,009,998,1 

61,009,959,161 ,990,024,991,909,012,001 ,000, 
O06 

63049 DATA 001 , 000, 003, 001 ,000,001 , 129,000, 009, 19 
3,000,000,097,000,000,049,000,000,025,000,0 

AA At T AAA AAA AAT AAA AAA AAt AAA AAA AAt 
vw^ W* Ji-^ WWW-f WV| WW* i W7| wWj WWi-j * w"i W-'TP^ '^W* t 

099 

63050 DATA 255,255,248, 12B, 000, 048, 128,000,096, 16 
8, 128, 192, 168, 129, 128, I6S, 003, 000, 165, 006,9 
00,162,012,000,128,024,009,128,948,900,128, 
096 

63951 DATA 000, 128, 192,090, 129, 128,000, 131 ,000, 09 
0,134,099,090,140,099,999, 152, 999,090, 176,0 
90,000,224,909,990, 192,990,900,128,900,000, 
999 

63952 DATA 125,245,087,109,101,086,109,182,166,10 
9,182,246,199,162,246,109, 1B2.246, 109, 1B2,2 
46,109,182,246, 1 09, 182, 246, 0B5, IB 1 ,086,085, 
161 

63953 DATA 986.195, 1B2, 179, 199, 182,255, 199, 182,25 
5, 109, 1H2, 255, 199, 182,255, 199, 1B2, 255, 107, 1 
82,255,109,182,255,109,102,255,174,186,255, 
009 

63954 DATA. 095,255,214,103,255,102,195,253,166,11 
0,118,182,111,154,246,111,235,246,111,255,2 
46,1 11 ,255,246, 111,219,259,111,219,235, 111 , 
085 

6305S DATA 085,111,154,106,111,219,111,111,235,11 
1,111,235,111,111,255,111,111,255,111,111,2 
55,111,111,255,111,111,255,111,111,255,111, 
999 

63959 REM •»» DAT AS YON FILE BCENE1 «•* 

63060 DATA 170,170,170,170,170,179,170,170,170,17 
0,170,170,165,085,090,165,085,090,165,985,0 
90,165,085,090,165,255,999,165,255,990,165, 
255 

63961 DATA 999,165,255,999,165,255,990,165,255,09 
9,165,255,990, 165, 085,090, 1 65, 90S, 090, 165,0 
85,090, 165,005,090, 170, 170,170,170,179, 179, 
000 

63062 DATA 170,170,170,170,170,170,154,170,166,15 
4,179, 166, 165, 9B3, 999, 165, 985, 999, 167, 085, 2 
1 B,l 67, 985, 218, 165, 235, 090, 165,235,090,165, 
233 

63063 DATA 090,165,235,090,165,235,099,165,255,09 
0, 165, 255,090, 167, 985, 21B, 167, 985, 2 18, 165,0 
85,990,165,985,999, 154, 179, 166,154,170,166, 
999 

63064 DATA 106,170,169,106,170,169,154,179,166,15 

4. 179. 166. 173.985.122.173.985.122. 167.985.2 
IB, 167,985,218, 165, 199,090,165,190,070,165, 
235 

63065 DATA 990,165,235,090,165,235,070,165,170,99 
0,165, 190,090,167,083,218,167,003,218,173,0 
85,122,173,085,122,134,170,166,999,179,165, 
999 

63966 DATA 196,170,169,106,170,167,134,170,166,14 
9,085,066,173,083,122,173,095,122,167,983,2 
16,167,255,218,165,170,070,165,170,999,165, 
233 

63067 DATA 070,165,195,999,165,235,999,165,170,09 
0,165,190,990,167,255,218, 167,005,210,173,0 
65,122, 173,085,122,147,003,986.099,179,165, 



<DKD> 
<D5L> 
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6306B DATA 106,170,169,106,170,169,149,095,096,14 
9, 085, 686,137, 065,11 8, 157,865, 110,151,255, 2 
14,151,255,214,151,170,214,151,179,214,151, 

63969 DATA 214,151,139,214,151,110,214,151,178,21 
4,151,170,214,151,253,214,151,255,214,157,8 
B5, 1 18, 157, 805, 118,149,865, 886,090,170, 165, 
000 

63070 DATA 106,170,169,106,170,169,161,065,094,18 
1,885,894,157,065,118,138,255,182,158,233,1 
50, 151, 178, 21 4, 15 1,048, 214, 131, 040, 21 4, 151, 
130 

63671 DATA 214,131,130,214,131,130,214,151,848,21 
4,151,840,214,151,170,214,150,255,150,158,2 
55,182, 157, 885, 118, 181,085,094,090, 170, 165, 

63072 DATA 106, 170, 169,065,085,085, 181 ,085,894, 18 

1.885.894. 159.255.246.158.255.182.150. 170.1 
58,151,170,214,151,848,214,151,000,214,151, 
138 

63973 DATA 214,151,130,214,151,130,214,151,040,21 

4.151 .040.214. 151. 170.214. 150.255.156.156.2 
55, 182,157,035,1 IB, 181, 085, 094, 098,178,165, 
809 

63074 DATA 065, 985, 085,685,083,095, 1 17, 6B5, 993, 12 
7,255,253,095,255,245,894,170,181,994,170,1 
81 ,994,900,181,094,099,181 ,994,020,181,094, 
020 

63975 DATA 181,094,820,181,994,000,161,994,999,18 
1,094,170,181,994,179,181,993,255,245,127,2 
55,253,117,085,993,085,085,085,685,085,985, 
999 

63079 REM ««* DATAS WON FILE 5CENE2 **» 

63980 DATA 213,985,087,213,065,987,127,253,253,12 
3,253,237,123,255,237,124,170,061,124,170,0 
61,126,063,189,126,965,189,126,020,189,126, 
929 

63681 DATA 189, 126, 02O, 189, 126,065, 189, 126,965 , IB 
9,124,170,961,124,179,061,123,255,237,123,2 
55,237,127,255,233,213,085,987,213,083,087, 
909 

63062 DATA 213,083,687,239,255,251,111,235,249,12 
3,233,237,120,170,043,124,170,061,124,963,0 
61 , 126,965, 189,126,683, 189, 126,920,189,126, 
929 

63683 DATA 189, 126,020, 189, 126, 883, 1B9, 126,065,18 
9, 124,965,061, 124,170,061,129, 170,945, 123,2 
55,237,111,255,249,239,253,251,213,863,987, 
089 

63684 DATA 255, 235, 255, 239, 235,251 ,239,255,231 ,25 
O, 170, 175, 250, 170, 175 , 248 , 900, 047, 248 , 060, 6 
47,248,683,047,248,935,047,246,125,947,248, 
123 

63085 DATA 047,248, 125, 947, 246, 085, 047,248, 965, 94 
7,248, 990, 047 , 248, 099, 047 , 230, 1 70, 1 73, 250, 1 
79, 175,239,255,251 ,239,235,251,255,255,255, 
900 

63066 DATA 191,255,254,239,255,251,239,255,251,24 
2,170,143,242,170,143,249,000,111,249,000,1 
11 ,248,215,047,248,215,047,248, 125,647,246, 
125 

63987 DATA 647,246,125,047,248,215,947,248,213,04 
7,249,006,111,249,900,111,242,170, 143,242,1 
79,143,239,233,251,239,255,251,191,255,254, 
000 

63988 DATA 191,233,254,239,255,251,234,170,171,24 
2, 170, 143,249,099,015,249,600,111,249,083, 1 
1 1, 248,21 5, 047, 249, 2S5, 647, 246, 125, 047, 248, 
123 

63069 DATA 047,248,125,947,246,253,047,248,215,94 
7,249,065,111,249,009,111,240,900,015,242,1 
70,143,234,170,171,239,255,251,191,255,254, 
000 

63990 DATA 191,255,234,234,170,171,234,179,171,22 
4,000,011,224,990,911,225,083,075,225,983,9 
75 , 223 , 255 , 073 ,225 , 255, 975, 225 , 253 , 075 , 225 , 
255 

63091 DATA 075, 225, 255, 07S, 225, 255, 975,223,233,07 
5,225,085,075,225,095,975,224,000,011,224,9 
90,011,234,176, 171,234,170,171,191,235,254, 
606 

63092 DATA 191,255,254,202,178,163,292,170,163,22 
8,000,927,228,000,027,227,985,203,227,083,2 
03,223,255,075,225,235,075,225,235,073,225, 
235 

63093 DATA 075,223,235,973,225,255,873,225,255,87 
3,227,985,203,227,085,203,228,000,027,228,0 
00,027,202,170,163,202,170,163,191,255,234, 

63094 DATA 170,179,179,138,170,162,128,006,082,16 
4, 000, 026,163, 0B3, 090, 163,065,292, 163,255,2 
02,161,235,674,161,233,074,161,235,074,16!, 
235 

63095 DATA 074, 161 ,235,074, 161 ,233,074, 161 ,255,67 
4,163,253,202,163,885,292,165,085,090,164,0 
00,026,126,009,002, 138,170,162,170,176, 170, 

63899 REM *•* DAT AS WON FILE SCENE3 »«» 

63100 DATA 170,170,170,128,000,062,128,990,002,13 
3,065,062,133,085,082,133,233,210,133,235,2 
10, 133,170,210, t3S, 170, 210, 133,170,219,133, 
170 

63101 DATA 216,133,170,210,135,170,210,133,170,21 
0,135,255,210,135,235,210,133,085,082, 133,0 
85, 962, 128, 060,902, 128,000, 062, 170,170,170, 
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63192 DATA 128,600,002,133,065,082,135,255,2(0,13 
3,170,210,135,170,216,133,170,210,133,170,2 
10, (33, 170,219, 133,170,210,135,170,210,133, 
170 

63103 DATA 210,135,170,219,133,170,210,135,170,21 
0,135,170,210,133,170,219,133,170,210,135,1 
70,210,135,233,210, 133, 0B5, 082, 129, 000, 002, 
000 

63104 DATA 000,000,990,021,085,084,031,255,244,03 
0, 170, 189, 030, 170, 180,030, 170, 169,030, 170, 1 
80,930,170,180,030,170,180,030,170,180,930, 
170 

63105 DATA 186,030,170,180,030,170,180,030,179,18 
0, 039, 176, 1 60, 830, 1 70, 180, 6i30, 170, 180, 030, 1 
79,189,031,233,244,021,085,064,000,000,000, 
669 

63106 DATA 883,895,083,127,233,233,122,170,173,12 
2,170,173,122,179,173,122,170,173,122,179,1 
73,122,179,173,122,170,173,122,(70,173,122, 
139 

63107 DATA 173,122,170,(73,122,(70,173,122,170,17 
3, 122, 170, 173, 122, 179, (73, 122, 179, 173, 122, 1 
70,173,122,170,173,127,235,253,085,083,085, 

63106 DATA 083,085,865,1(1,255,249,122,170,173,12 
2,170,173,122,170,173,122,170,173,122,170,1 
73,122,170,173,122,130,173,122,130,173,122, 
685 

63109 DATA 173,122,130,173,122,150,173,(22,170,17 
3, (22. 17», 173, 122, 170, 173, 122, 170, 173, (22,1 
70,173,122,170,173,111,255,249,083,085,865, 

63(10 DATA 169, 083, 106, 175, 253, 250, 191, 17e„254, 19 
O, 170, 190, 1B6, (70,174,122, 170, 173,122,150,1 
73,(22,130,173,122,150,173,122,083,173,(21, 
123 

631(1 DATA 169,122,985,173,122,130,173,122,150,17 
3,122,150,173,122,176,173,166,170,174,190,1 
70,190,191,170,254,173,255,250,169,083,106, 

63112 DATA 170,(70,170,173,235,250,191,235,254,19 
1,233,254,190,150,190,190,150,190,196,150,1 
90, 190, 130, 190, 1H9, 083, 126, 189, 125,126,199, 
253 

63U3 DATA 126,189,123,126,189,085,126,190,159,19 
O, 190, 150, 190,199, 150,190,190, 150,190,191,2 
55,254,191,235,234,175,255,230,170,170,179, 

63114 DATA 170,170,170,175,255,239,191,255,234,19 
1,253,254,191,985,254,169,083,126, 1B9, 125,1 
26,109,235,126,(69,195,126,189,193,126,189, 
195 

63115 DATA 126,189,193,126,199,253,126,189,125,12 
6,189,665,126,189,985,126,191,095,234,191,2 
55, 254,191 ,255, 234, 175, 255, 230, 179, 170,170, 



<CPB> 
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<PRE> 



Listing t. "Alle Sprites- (SchluB) 







19 REM •#««» TESTPROSRAHM 1 - COLLISION ••**• 


<A99> 




20 BLOAD "SPRITES2" ,ON B6 


<E8K> 




30 SPRCOLDR 3,6 


<6B0> 




46 MOVSPR 7,300,100s MOVSPR 8,309,290 


<68U> 




59 SPRITE 7,1,2,9,0,9,1s SPRITE 8, 1 , 1 , 1 , 1, ( , 1 


<U60> 




60 COLLISION 1,99 


<L2R> 




70 MOVSPR 8,+0,+S 


<H1N> 




80 GOTO 70 


<PN9> 




90 COLLISION 1 


<6F4> 




100 PRINT "KOLLISION ERFOLGT" 


<1D6> 




1(0 COLLISION 1,130 


<UL4> 




120 RETURN 


<4S7> 




130 COLLISION i 


<E33> 




140 PRINT "NOCH EINE KOLLISION" 


<S7Q> 




150 COLLISION 1,130 


<UT3> 




160 RETURN 


<4K7> 




Listing 2. (Collision von Sprites. 






Bitte mil dem Checksummer 128 (Seite 1S8) eingeben. 




10 REM *#••* TE5TPRQeRAHM 2 BUMP-BEFEHL *»*»» 


<A99> 




20 BLOAD "SPSITES2" ,0N BO 


<EBM> 




30 SPRCOLOR 3,6 


<6B0> 




40 MOVSPR 7,100,100s MOVSPR 8,150,290 


<IAE> 




59 SPRITE 7,l,2,O,0,0,Js SPRITE 8,1,1,1,1,1,1 


<U60> 




60 V»BUMP<l)j IF W>9 THEN BOSUB 85 


<032> 




70 MOVSPR B, + (,+3 


<BFS> 




80 GOTO 66 


<PV8> 




B5 PRINT ! PRINT "BUMP<!> ER6IBT DEN WERT"U 


<4FI> 




99 FOR 1=9 TO 7i A-2tls IF A AND V THEN PRINT "SP 






RITE "Itr'KQLLIDIERT 


<«M7> 




190 NEXT I 


<RJ4> 




110 RETURN 


<K07> 




Listing 3. Ein Pragramm zur BUMP-Abfrage 






Bitte mit dem Checksummer 128 (Seite 158) eingeben. 



M.IJI.lziilild.. 
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19 REM *»*«« TESTPR06RAMM 3 JOY-BEFEHL *««** <A99> 

29 BLOAD "SFRITES2",QN Be <EBM> 

39 SPRCDLOR 3,6 <6S9> 

40 MOVSPR 1,109, 100: MOVSPR s ,280,20*1 <UJU> 
50 SPRITE 1,1,2,0,0,0,11 SPRITE 8, 1 , 1 , I , 1 , 1 , 1 <UU3> 
60 COLLISION 1,110 <BDV> 

7© x=29©i y=299 <sih> 

80 ON JOY 12) GOSUB 190,200, 21 0,220,230, 240,250,26 

<5BF> 

90 MOVSPR B,X,Y <J91> 

100 GOTO B0 <SR6> 

110 COLLISION 1 <LC35> 

120 PRINT "KOLLI5ION ERFQLBT- <1T6> 

130 COLLISION 1,150 <V12> 

140 RETURN <4B7> 

1S0 COLLISION 1 . <B33> 

160 PRINT "NOCK EINE KOLLISION" <I7Q> 

170 COLLISION 1,150 <V93> 

180 RETURN <4B(7> 

190 X = X: Y-Y-l: RETURN <V6B> 

200 X-X+ll Y-Y-l I RETURN <73t> 

210 X-X+l: Y-Y: RETURN <HUV> 

220 X=X+1: Y=Y+ts RETURN <3R9> 

230 X = X: Y-Y+ll RETURN <BUS> 

240 X-X-l! Y-Y+l! RETURN <JVH> 

250 X-X-l 1 Y-Yl RETURN <BUR> 

260 X-X-l: Y-Y-l; RETURN <H7P> 

Listing 4. Steuern mittels JOY 



10 REM ««**« VERGLEICH SPRITEDATEN •*»»» <A99> 

20 REM IN SPRITESPE1CHER UNO IM STRING <AHA> 

30 DIM A*(7> <BKR> 

40 BLOAD "SPRITES1-.DN B0 <EBM> 

50 FDR J-0 TO 7 <4BK> 
60 i PRINT CHR* (147) CHR* ( 18>J+1" . SPRITE" CHR*(14 

6>i PRINT s SPRSAV .1 + 1, fit (.J I <JBL> 

70 I BANK 0: PRINT "DATENSPEICHERl " <OIB> 

80 : FOR 1=0 TO 63 <6QB> 

90 ! : PRINT (PEEK t3564+64*J+I> >| <S79> 

100 : NEXT 1 1 PRINT 1 PRINT "STRINGS " <339> 

110 : FOR K=l TO LENIA*<J1> <ORA> 

120 : ■ PRINT ASCIMlDtffiUJl ,k:,1 J ); <K92> 
130 ) NEXT K: PRINT : PRINT "BITTE TASTE DRUECKEN 

<1Q1> 

140 ! BET KEY B* <49E> 

150 : PRINT <JMJ> 

160 NEXT J <BP5> 

Listing 5. »VERGLEICH SPRDT«. 

Program m zum Vergleichen von Sprite mustern Im 

Speicher und im String. 



62999 REM **•- DAT AS AUS SPRITESPEICHER »*» 

63000 FAST I BANK 01 FOR J-0 TO 7 

63001 A*(J>="': FOR 1=0 TO 62: A*=STR* (PEEK (3384+ 
64-J+I)) 

63002 A*=RIGHT*<A*,LENCA*1 -1 > •. A*="«©«"+A*-. A*=RI 
BUT* (A*, 3) 

63003 A*(J)-A*<J)+A*+","l NEXT I 

63004 A*(J)=A*(J>+"9»0" 

63005 NEXT Jl SLOW 

63006 FOR J=0 TO 7i PRINT CHR*C147>1 

63007 PRINT 63929+2«J"DATA" LEFT* < A* (J J , 127) 
6300B PRINT 63021 +2* J " DATA" RISHT*(A*I Jl , 127} 1 PR 

INT "GOTO6390V' , 3 STOP 

63009 NEXT J: PRINT CUR* < 147) | 

63010 PRINT "63040 FORI =35B4T04 995: READS: POKE 1 ,0: 
NEXTIsRETURN- 

63011 PRINT "DELETE 63000-63011"! STOP 

Listing 6. -SPRITEDATAS-, 

Erzeugen von DATA-Zeilert aus Spritedaten 



<BLF> 
<BAM> 

<UJU> 

<V5B>- 
<2AP> 
<V64> 
<0M4> 
<ARM> 
<U3H> 

<BBI> 
<75L> 

<K9K» 

<KBP> 



10 REM *«**» VIER SPRITES • »*»» 


<A99> 


20 GOTO 110 


<NE7> 


30 Y-V-31 RETURN 


<O04>- 


40 X=X+3s V*Y-3s RETURN 


<FB1> 


50 X=X+3s RETURN 


<3G4> 


60 X-X+3: Y-Y+3: RETURN 


<DJ9> 


70 Y-V+3: RETURN 


<A04> 


B0 X=X-3s Y-Y+3S RETURN 


<JHH> 


99 X-X-3s RETURN 


<JC4> 


190 X-X-31 Y-Y-3: RETURN 


<P3P> 


110 BLOAD "SPRITES2",DN B0 


<BR6> 


120 PRINT CHRSd.47): COLOR 9,1: COLOR 4,1: COLOR 




5,8 


<PPD> 


130 X"50! Y-69 


<D40> 


140 MOVSPR 3,X,Yl MOVSPR 4,X+125,Ys MOVSPR 5,X,Y+ 




122: MOVSPR 6, X+125, Y+122 


<2CO> 


150 SPRITE 3,1,6,1: SPRITE 4,1,8,1: SPRITE 3,1,8, 




li SPRITE 6,1,8,1 


<I3I> 


160 DO UNTIL A=I0J 


<TEJ> 


Listing 7. -VIER SPRITES-. 




Demonstration zum Koppeln von Sprites. 





170 ! MOVSPR 4,-l,Yl MOVSPR 5,X,-1| MOVSPR 6,-1,- 




1 


<6LN> 


180 I A=A+1 


<V7D> 


190 LOOP 


<V7P> 


200 BANK 15: SYS 65520,10,201 A*-- JOYSTICK IN POR 




T2" 


<HDM> 


210 DO UNTIL J0Y(2)-12S 


<LHM> 


229 I COLOR 5,3 


<44F> 


230 : GOSUB 330 


<03T> 


240 ! COLOR 5,1 


<7CE>' 


259 : GOSUB 330 


<R3T> 


260 LOOP I X-RSPPOS(3,01 I Y=RSPP0S<3, 1) 


<B7U> 


270 COLOR 5,6: PRINT CHR* ( 147) I FOR 1-1 TO 501 NE 




XT 


<9BO> 


260 DO 


<SNJ> 


290 1 ON JOY (2) GOSUB 30,49,50,60,70,60,90,100 


<4TA> 


300 i MOVSPR 3,X,Yl MOVSPR 4,X+24,Vl MOVSPR S,X,V 




+21! MOVSPR 6,X+24,Y+21 


<RAL> 


310 LOOP UNTIL JDY(2>-128 


<801> 


320 END 


<146> 


330 SYS 65520,10,201 PRINT A*: FOR K-l TO 301 NEX 




T Ki RETURN 


<PBH> 


Listing 7. -VIER SPRITES- (SchluB) 





10 REM •**** EIN SPRITE-TRICK *»*«« <A99> 

20 8LOAD "SPRITESl" ,ON B0 <M8M> 

30 PRINT CHR* (147) <HA3> 

40 FDR 1-1 TO 8: MOVSPR 1,200,100s NEXT I <VR0> 

50 FOR I»l TO 10) FOR J=l TO B <BUP> 

60 IF J-l THEN SPRITE S,0t ELSE SPRITE J-1,0 <BE4> 

70 SPRITE J, 1,1+1, 1,1 , 1,9 <EVA> 

69 FOR K-l TO 25: NEXT K: NEXT J <VBO> 

90 NEXT I <0O4> 

100 SPRITE 8, 0S SPRITE 1,0 <A50> 

Listing 8. »SPRITE-TRICK«. Ein kleiner Trickf ilm. 



10 REM »imh>* 24 SPRITES »•»»« 








<A99> 


20 1-01 J-l: K-2i L-3i M-4s N-S: 0=6: 


P-7! 8*- 


»"1 




DIM A* (24) 










<E5G> 


39 BLOAD " SCENE 1" 










<L7C> 


49 FOR 1=1 TD 8: SPRSAV I 


MCI 


: NEXT 


I 




<7PU> 


59 BLOAD "SCENE2" 










<5RF> 


60 FOR 1 = 1 TD '8s SPRSAV I 


A*<I+8>: NEXT 




<BEF> 


70 BLOAD "SCENE3- 










<LJE> 


B0 FOR 1=1 TD 8: SPRSAV I 


A* (1+16): NEXT 




<PJT> 


90 PRINT CHR*(147) 










<HU1> 


190 SPRCDLOR 3,6: COLOR 


li COLOR 4, 


s COLOR 


s,a 


<60J> 


110 MOVSPR 1,62,86s MOVSPR 2,111,86: MOVSPR 3, 


160 




,86: MOVSPR 4,209,86! 


MOVSPR 5,62 


129 




<ftf7> 


120 MOVSPR 6,111,129! MOVSPR 7 


,160,129s MOVSPR 


B, 




209,129 










■:OP6> 




spri re 


4,1,1,1, 


Li 




SPRITE 3,1,2,1,1,1,1 










<2BT> 


140 SPRITE 4,1,11,1,1,1,1: 


SPRITE 


13,1,1,1 


,»■ 




SPRITE 6,1,5,1,1,1,1 










<KVA> 


150 SPRITE 7, I, 1,1, 1,1, Is 


SPRITE 8,1, 


16,1,1,1, 


I 


<VEJ> 


169 1-9 










<LEN> 


179 DO 










<LMN> 


160 ; I-I+li IF I>24 THEN 


I-ll 


SPRSAV 


A* ( I V ,1: 


EL 




SE SPRSAV fi*<I) ,1 










<H04> 


199 : J=J+lr IF J>24 THEN 


J-ll 


SPRSAV 


A*<J) ,2: 


EL 




SE SPRSAV A* (J), 2 










<H1E> 


209 s K=Ktli IF K>24 THEN 


K-l I 


SPRSAV 


A*(K) ,3: 


EL 




SE SPRSAV A*fK),3 










<368J 


219 : L-L+ls IF L>24 THEN 


L-ll 


SPRSAV 


A*<L) ,4: 


EL 




SE SPRSAV A* CD ,4 










<S5Q> 


220 : M-M+ls IF M>24 THEN 


M=l: 


SPRSAV 


A#<M) ,5: 


EL 




SE SPRSAV A*<M),3 










<L4S> 


230 i N-N-Hi IF N>24 THEN 


N=l: 


SPRSAV 


A*(N) ,6: 


EL 




SE SPRSAV AKht) ,6 










<U5M> 


249 S D-O+ls IF 0>24 THEN 


0=1: 


SPRSAV 


A*(0),7: 


EL 




BE SPRSAV A*tO) ,7 










<76G> 


259 : P-P+l: IF P>24 THEN 


R-li 


SPRSAV 


A*tP> ,B: 


EL 




SE SPRSAV A*(P) ,8 










<AAQ> 


269 i BET B*i IF B*="+" THEN EXIT 






<JBD> 


270 LOOP 










<V3P> 


280 END 










• H66 ■ 


Listing 9. -24 SPRITES- 













19 REM *»•*• SSHAPE TABELLE •-*-• 


<A99> 


20 FAST s OPEN l,4i PRINT»1 , "Y-DIFF. » , "X-DIFF. " , - 




STRINBLAENGE" 


<HU0> 


30 DEF FN H(X) = INT((ABS<X>+U/B+-99>*(ABSCY>+1>*4 


<FLF> 


40 Y-0 


<TNN> 


50 DO UNTIL Y-209 


<9CJ> 


60 1 Y-V+ll X-0 


<31S> 


70 s DO UNTIL X=329 


<IOT> 


B9 : : X-X+l 


<8EN> 


90 : I Z-FN HCX)! IF Z>255 THEN PRINTtl , Yl ,X1 ,Ilj 




EXIT 


<9DC> 


100 : t Xl-Xi Y1=Y: Z1=I 


<OFT> 


110 i LOOP 


<S3P> 


120 LOOP 


<J29> 


130 CLOSE 1: SLOW : END 


<I3D> 


Listing 10. -SSHAPE-TABELLE-. Eine Hllfe fur Shapes: 


Erne Tabelle wind gedruckt 





66 



u^a/ 













IC128 


GRUNDLAGEN 






18 REM »** DIE GSHAPE-HODI *** 

29 REM ERSTELLEN EINES SHAPE 

39 COLOR 9,1 1 COLOR 1,6: COLOR 4,1s GRAPHIC 1,1 


<A99> 

<AHA> 
<OPE> 




QOSUB 63013 
15 GSHAPE C*, 190, 198 
29 END 


<PQ0> 
<KRD> 






48 CIRCLE 1,19,19,19,19= BOX 1,9,9, 29, 28i PAINT 1 

,1,1; PAINT 1, 19,1: PAINT 1,1,19 
39 PAINT 1,19,19: CIRCLE 1,19,18,7,7; DRAM 1,10,9 
TO 19,29; DRAW 1,9,19 TO 29,19 


<191> 
<ESH> 




62999 REM *»»•«» ES FDLBT DER DATABENERATDR BZU D 

IE DATAS »*«»».» 
63999 PRINT CHR* (147) 63929-DATA" LEN(A*> 
63991 I«ls K'=W 


<DTM> 

<BLF> 
<BG7> 






69 SSHAPE A*, 9, 0,29, 29 

79 SCNCLR 1 

B9 REM BILD5CHIRMHINTERBRUND 

99 DX-5i D¥-5: X=9: ¥-9 

190 DO WHILE Xv51J 


<GLS> 
<P7UV 
<B18> 
<VUT> 
<9J6> 




63992 DO 

63893 ■ Z-8i PRINT 63821 +K" DAT A« , 

63984 : DO WHILE KLENIA*) 

63983 i : PRINT ASC<HID* (A*, I , 1) ) " , ", i 1-1*1: Z-Z 

+1 


<SN3> 
<CPN> 
<IKH> 
<KMT> 






110 : X-X+DXl ¥-Y+DY 

128 : DRAW 1,9,¥ TO X,9 

139 LOOP 

149 REN ABBILDEN DES SHAPE 

159 FOR 1=9 TO 4 

168 : SSHAPE A*, 19+35*1 , 196, I 

179 NEXT I 


<23H> 

<FHC> 
<N2P> 
<JIE> 
<P25> 
<E5F> 




63996 : : IF Z=19 THEN EXIT 

63897 : LOOP 

6399B i PRINT A5C<MID* CA»,I , 1 ) ) : I-I+li K-K+l 

63999 LOOP WHILE KLEN<A«) 

63919 PRINT 63921+K"DATA" ASC (MID* (A*, 1 , 1 > 1 

63811 PRINT "63815 READA:FORI-1TOA:READB: B*-CHR*( 


<9AA> 
<7UU> 
<JV9> 
<M6J> 
<BC4> 
<P07> 






109 REM KOMMENTAft 
190 COLOR 1,3 


<3K4> 
<SI2» 

<ne7> 




B ) : C*-C*+B* : NE XT I : RETURN " 
63912 PRINT "DELETE63988-63812" 


<759> 
<RKM> 






299 FOR 1=9 TO 4 

219 ; B*=RISHT*<STR*(I! , 1) 


<OIS> 

<2D9> 




Listing 13. -SHAPE DATA* (SchluB) 








228 ; CHAR 1, 2+7*1, 1H,B* 
238 NEXT I 

240 CHAR 1,1, 4, "DIE GSHAPE-NODI UND IHRE WIRKUNBE 
N: " , 1 


<K1T> 
<JH4> 


















<9Q0> 




19 REM ***** SHAPES ZU SPRITES UMWANDELN ***** 


<A99> 






259 CHAR 1,1,23,"BTTTE EIN6 TASTE" 


<IUA> 




15 REM H««u<4 MULTICOLOR-SPRITES ********** 


<ATB> 






269 BET KEY A* 


<M4D> 




28 COLOR 9,1: COLOR 1,6: COLOR 2,2: COLOR 3,3: CO 








279 GRAPHIC 9,1 


<3IH> 




LOR 4, li COLOR 3,2 


<D6Q> 






2B0 END 


<H66> 




38 GRAPHIC 3,li CIRCLE 1,5,19,3,19: BOX 2,9,9,18, 

28: DRAW 3,9,10 TD 19,18 
40 DRAW 3,3,0 TO S,28 


<96G> 
<A46> 






Listing 11. »GSHAPE-MODI«. Die 5 Shape- 






58 SSHAPE A*, 9, 0,1 1,20 

68 SPRSAV A*,li SPRCOLOR 6,3; MOVSPR 1,199, 188i S 


<K1.C> 






Darstellungsformen. 






PRITE 1,1,2,9,8,0,1 
63 SLEEP 2 

78 REM »»m NORMALER HIRESSPRITE •««•»«» 

S8 GRAPHIC 1,1: CIRCLE 1,59,18,19,10: CIRCLE 1,59 


<BK9> 

<AL7> 
<BPF> 














,10,7,7l CIRCLE 1,59,18,4,4 


<DEB> 








99 SSHAPE B*. 48,8,63,281 SSHAPE A*, 8, 8 


<SSL> 








199 SPRSAV B*,2l MOVSPR 2,289,299: SPRITE 2,1,6 


<PQ5> 






18 REM ***** SHAPE ERSTELLEN Km 


•;A99> 




119 MOVSPR 1,0*4: MOVSPR 2,98KB 

Listing 14. -SHAPE UND SPRITE-. 


■:HDe> 






29 COLOR 9,1s COLOR 4,1; COLOR 1,6: GRAPHIC l.li 
B*=CHR*(13> 

39 CIRCLE 1,18,10,18,18: SSHAPE A*,6, 0,20,28i EOS 
UB 239 

40 SCRATCH "SHAPE 1" 

58 REM ***** SHAPES AUF DISKETTE SPEICHERN ***** 


<3PS> 




Shapes werden zu Sprites. 








<5Q3> 






<5SP> 
<B9D> 












6» DUPEN *l,"SHAPEl",Ws PRINT* 1 


<NKH> 




18 REM HfM KOLL1SION VON SPRITES UND SHAPES **• 








79 FOR 1-1 TO LEN(A*>: PR1NT1U ,ASC <MID*(A*, I , 1 J > B 






•* 


<A99> 






*: NEXT I: PRINT*1,"ENDE"B* 


<B99> 




28 REM ***** SHAPES 7U SPRITES UMWANDELN ***** 


<AHA> 






09 DCLOSE tl 


<6T3> 




30 REM ••*•****•* MULTICOLOR-SPRITES ********** 


<APB> 






99 REM ***** VARIABLE LOESCHEN UND NEUSTART ***** 


<H91> 




48 COLOR 9,1: COLOR 1,6: COLOR 2,2i COLOR 3,3: CD 








100 CLR : GRAPHIC 1,1: SLEEP 2! RUN 120 


<R69> 




LOR 4,1: COLOR 5,2 


<A9Q> 






119 REM ***** SHAPES UIEDER VON DISKETTE HOLEN M 






58 BRAPHIC 3,1. CIRCLE 1,5,18,3,10: BOX 2,8,8,19, 








*** 


<IQB> 




29: DRAM 3,0,10 TO 19,19 


<P2B> 






129 DGFEN *1,"SHAPE1" 


<G2K> 




69 DRAM 3,5,9 TD 3,29 


<AC7> 






139 DO 


<HM7> 




79 GSHAPE A*, 9, 9, 1 1,28 


<ML4> 






149 ; INPUT#I,B* 


<HHM> 




B9 SPRSAV A*, Is SPRCOLOR 6,3: MOVSPR 1,190,199: 5 








158 I : IF B*-"ENEE" THEN EXIT 


<6H3> 




PRITE 1,1,2,0,9,9,1 


<5K8> 






168 : B-VALIB*): B*-CHR*«BJs AS-AS+B* 


<L9V> 




98 SLEEP 2 


<IE7> 






179 LOOP 


<78P> 




189 REM •***•****• NORMALER HIRESSPRITE *•»*•**•* 








109 DCLOSE Ml: G05UB 238 


<3B7> 




* 


<IIA> 






199 REr ***** SHAPE ZEICHNEN ***** 


<G03> 




119 GRAPHIC 1,1: CIRCLE 1,59,19,19,10: CIRCLE 1,5 








299 ESHAPE A* ,190, 199 


<D4A> 




0,19,7,7: CIRCLE 1,50,10,4,4 


<637> 






219 END 


<34E> 




128 SSHAPE B*, 48, 0,63, 20: GSHAPE A#,8,9 


<6NB> 






228 REM ***** KONTRDLLUNTERPRDGRAMM • »..* 


<JIE> 




139 SPRSAV B»,2i MOVSPR 2,289,290: SPRITE 2,1,6 


<9S5> 






238 FDR 1=1 TO LEN(A*>: PRINT ASCIMIO* ( A*, I , 1 > ) i t 






140 MOVSPR 1,9#4: MOVSPR 2,98#B 


<GSB> 






NEXT Is PRINT ; PRINT LEN (A*l I RETURN 


<T7E> 




150 SLEEP 2 

169 REM »*»*****.. LOESCHEN DER STRINGS •*•*••*«• 

* 
179 CLR 
1B9 REM ****•*•*** UEBERTRAGEN VON SPRITES IN SHA 


•:h.I7; 

<J2C> 
<2CB> 






Listing 12. -SHAPE SPEICHERN... Shapes retten au 




PES ********** 


<GI2> 






Diskette Oder Kassette. 






199 SPRSAV 1,A*: SPRSAV 2,B* 

299 GSHAPE A*, 158, 188: GSHAPE B*, 299, 198 

210 REM »*»»»•**»** STEUERN VON SPRITE 1 *»■****»** 

* 


<67S> 
<JOE> 

<JAD> 
<466> 








220 CHAR 1,28,8, "JOYSTICK PORT 2" 










<JOF> 








248 MOVSPR 1,9(18 


<9B1> 












259 X=RSPP05<I,9>: ¥-RGPPOS ( 1 , 1 ) s 1=6: J-3 
269 COLLISION 2,379 


<CSM> 
<BLS> 




















278 ON J0YI2) QOSUB 298,389,319,320,330,349,358,3 








1 REM ****** ERZEUBUN6 VON DATA- ZE I LEN AU5 SHAPE- 






68 


<049> 






STRINGS IH1ER fit! »**«»» 


<64Q> 




2S8 GOTO 270 


<QM7> 






2 REM 


<6SP> 




290 V»¥-2: MOVSPR 1,X,¥: RETURN 


<D2H> 






3 REM ****** PRDBESHAPE ERZEUGEN ****** 


<6CP> 




300 X-x+li ¥-¥-1: MOVSPR 1,X,¥: RETURN 


<6EB> 






4 REM 


<abq> 




310 X-X»2: MOVSPR 1,X,¥: RETURN 


<MHH> 






S COLOR 8,1: COLOR 4,1: COLOR 1,6; GRAPHIC 1,1: C 






320 X=X+1: V-V+t: MOVSPR 1,X,¥: RETURN 


<ABR> 






IRCLE 1,10,19,10,10: SSHAPE A*, 9,9, 29,29 


<E5B> 




330 ¥o¥+2: MOVSPR 1,X,¥: RETURN 


<331> 






6 STOP 


<CP3> 




340 X-X-l: V-¥+l: MOVSPR 1,X,¥: RETURN 


<97Q> 






7 REM ****** ERZEUGEN DER DATA! EI LEN ****** 


<6BR> 




358 X-X-2: MOVSPR l,X,¥l RETURN 


<QG1> 






9 GOTO 63990 


<904> 




369 X-X-It ¥-V-li MOVSPR l,X,¥: RETURN 


<32A> 






9 REM ****** NEUES PRDGRAMM ZUR KONTROLLE DER DAT 






379 COLLISION 2 


<EF4> 






AS ****** 


<74S> 




386 I-I+l: IF I>16 THEN 1-1 


<DKG> 






18 COLOR 0,1: COLOR 4,1: COLOR 1,3: GRAPHIC 1,1: 






396 J-J+3: IF J>16 THEN J-l 
489 SPRCOLOR I ,J 
419 COLLISION 2,376 
429 RETURN 


<UBP> 
<269> 
<01U> 
<4B7> 






Listing 13. ..SHAPE DATA*. 






Listing 15. »SHAPE/SPR-KOLL». 








Shapes in DATA-Zellen ablegen. 






Zusammenspiel von Sprites und Shapes. 






iJ^aj* 


SONDERHEFT 36 
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GRAFIK 



C128 



Lassen Sie Ihren C128 Landschaften 
und Figuren als dreidimensionale 
Hohenreliefkarten zeiehnen und stau- 
nen Sie, wie Berge und Taler auf Bild- 
schirm und Papier entstehen. 

as Programm »3-D-Landkarten« (Listing 1) erzeugt 
nach Eingabe von Koordinatenpunkten die pla- 
'nare Projektion eines Landschaftsreliefs. Neben der 
Bildschirmdarstellung ist auch eine Hardcopy-Routine ftir 
Ausdrucke in einfacher Oder doppefier GroBe vorgesehen; 
die erzeugten Grafiken konnen gespeichert und beliebig 
weiterverwendet werden. Die Bedienung des Programrns 
ist dank einer guten Dialogfuhrung sehr einfach, aller- 
dings sollte man bei komplexeren Bildern etwas Zeit fur 
Dateneingabe und Berechnungen einkalkulieren. 
Bevor Sie mit »3-D-Landkarten« arbeiten konnen, benbti- 
gen Sie eine topographische Landkarte, deren Hbhenlinien j 

in Form einzelner Koordinatenpaare eingegeben werden. J 



D 




3= 




C128 



GRAFIK 




: 



3 



Zur Bestimmung dieser Punkte legen Sie auf die Landkarte 
ein transparentes Papier mit Millimeterraster auf, Noch 
giinstiger ist es, die Vorlage mit Hilfe eines Fotokopiergera- 
tes auf Millimeterpapier zu ubertragen. Wahlen Sie nun 
den gewunschten Bereich aus der Karte aus und legen Sie 
fest, welche Werte verwendet werden sollen. 
Nach dem Programmstart fordert Sie »3-D-Landkarten« . 

zunachst auf, das Koordinatensystem einzurichten, also J 

den Wertebereich der X- und Y-Koordinaten festzulegen. JSSS 

Dabei werden Minimal- und Maximalwerte vorgegeben. "'"" |J 

AnschlieRend geben Sie Punkt fur Punkt die Koordinaten- ^ J V 

werte der einzelnen Hohenlinien ihrer Karte ein. Wahlen '.'I'.fc 

Sie den Abstand zwischen zwei Einzelpunkten nicht zu ge- " '"v™ 

ing. Andernfalls kostet die Ubertragung nicht nurZeit, son- 
rrt uberfordert vielleicht auch die Auflosungsmoglichkei- 
ten Ihres Bildschirms. So ergibt sich beispielsweise bei ei- 
ner Bildschirmskalierung von »1000/1000« fur einen Ab- — 
stand zweier Punkte mit dem Wert »5« lediglich ein Pixel in ~ 
der Darstellung. 
Alle Hohenlinien mussen in sich geschlossen sein, das 
heiBt erster und letzter Punkt mussen jeweils diesetben 
Koordinatenwerte aufweisen. Andernfalls kann das Pro- , 
gramm keine Abgrenzungen erkennen. Bei den Berech- _; 
nungen wird davon ausgegangen, daB der Punkt mit dem - — — 
Wertepaar »0/0« zur tiefsten Flache der Abbildung gehort. ■— 
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Solite dies einmal nicht der Fall sein, so sind die Zeiien 300 
und 1255 in Listing 1 entsprechend zu andern. 

Wenn Sie die Eingabe einer Hohenfinie abgeschlossen 
haben und weitere Linien derselben Hohe eingeben moch- 
ten.sobeantwortenSiedie Frage nach derX-Koordinate mit 
<P> (Linie an einem anderen Punkt fortsetzen, Zeile 
1000). Wollen Sie mit der nachsthdheren Linie fortfahren, 

Eingabe der Hohenlinien 

wahlen Sie hier < N > . Haben Sie die Eingabe aller Linien 
beendet, sogeben Sie <Q> ein. Solite Ihnen bei der Ein- 
gabe der Werte ein Fehler unterlaufen, so laBt sich dieser 
leicht beheben. Geben Sie einfach als nachstes Wertepaar 
noch einmal die richtigen Koordinaten ein und fahren Sie 
dann fort. Die dadurch entstehende Einzellinie wird spater 
bei der Umrechnung eliminiert. 

Nach dieser Eingabe der Koordinaten mu8 die Uberho- 
hung, also die Streckung des Profils in vertikaler Richtung, 
festgelegt werden (Zeile 350 ff.), Der Zahlenwert hier be- 
zieht sich auf den Abstand zwischen zwei H6henstufen der 
dreidimensionalen Grafik in Pixeleinheiten. AnschlieBend 
ladt das Programm sukzessive die vorher angelegten H6- 
henkarten nach und berechnet die tatsachlichen Vertikal- 



werte fur das Datenfeid »p%« (Zeile 380 ff.). Aus diesen Da- 
ten wird sodann (ab Zeile 600 bzw. 700) die Grafik erstellt. 
Das fertige Biid kann unter einem beiiebigen Namen (maxi- 
mal 13 Zeichen!) gespeichert werden (Zeile 800 f.), die da- 
zugehorige Farbdatei erhalt automatisch die Bezeichnung 
»Name/c«. Mit den Befehlen 
BL0AD "Name", ON B0 

und 

BLOAD "Name/c", ON B0 

holen Sie diese Files wieder in den Speicher und bringen 

Sie mit GRAPHIC 3 und GRAPHIC 1 wieder auf den 

Schirm. 

Neben Landschaftsprofilen, deren Eingabe viel Zeit be- 
anspruchen kann, eignet sich das Programm ebensogut 
zur Darsteilung der Projektionen geometrischer Korper, 
Dabei ist die Anzahl der einzugebenden Wertepaare erheb- 
lich geringer. Als Beispiel fur die Eingabe wird hier eine ein- 
fache Pyramide (Bild 1) vorgestellt, die sich fur eine Skalie- 
rung des Bildschirms in den Bereichen »1000/1000« wie 
folgt bestimmen laBt: 

1. Linie: 100/100 - 900/100 - 900/900 - 100/900 - 100/100 

2. Linie: 200/200 - 800/200 - 800/800 - 200/800 - 200/200 

3. Linie: 300/300 - 700/300 - 700/700 - 300/700 - 300/300 

4. Linie: 400/400 - 600/400 - 600/600 - 400/600 - 400/400 

(Ralf Kopp/Dr. Rudolf Egg/sk) 



l REM l ■###**^l-^n^!^»#»#^^**■*-^^***-^l»•♦•■•**■*■•»•••■ , 


<64Q> 


240 GUSUB 1 I 80 


<QRE> 


2 REM "»{335PACE)»" 


<6SP> 


243 GOTO L200 


<HBS> 


3 REM "•(3SPACEli!0eHENRELieF-,LANDKARTEN{7SPACE>*" 


<6CP> 


300 LOCATE 0,0 


<TMS> 


4 REM "•133SPACE>«"' 


■fiHO', 


303 GRAPHIC 3 


<A7D> 


5 REM "» FUER £128 UND £DMMODORE-BRUCKER »■' 


<6KB> 


310 PAINT 2,1,1 


<P5N> 


6 REM "«<33SPACE>»" 


<60R> 


31S S*=STR*(S>! N»="HOEHE-*S* 


<5SB> 


7 REM "*t3SFACE)82/BB(BSPAC£Ul.,iDPPeilSPACE>*- 


<6SR> 


320 BSAVE(N*>,GN B0,P0B192 TO P16383 


<DFP> 


B REM "»t33SPACEJ»" 


<70S> 


323 GRAPHIC 0,1 


C62HJ 


9 REM "***■•»#*»»*****##****»**###**##*****" 


<743> 


330 PRINT "<5DOWN>fiIE FOLBENDE TJERECHNUNG D. HDEH 




10 IF PEEK (2151 -9 THEN 19® I REM P 




ENPRQFILS" 


<R44> 


RUEFUNG 48ER/80ER-SCHIRM 


<N9B> 


335 PRINT " <DOWN)ERFQRDERT LANGE 1ECHENIEITEN, " 


<JB8>- 


13 PRINT " tCLR,5D0UN,RV50N,4SPACE}A C H T U N G ' 




340 PRINT " (DOWN)HUENSCHEN £IE HIERFUER DEN FWaT- 




<3SPACE>" 


<E3H> 


flODU9{3SPACEl 1J/N) "j 


<8D8>- 


20 PRINT "<3DOWN,RVSON» SCHALTE UM AUF 4B-ER SCHI 




345 INPUT F* 


<®LB> 


RMtZSPACEl" 


<1UH> 


3S8 PRINT " {DOWNJMELCHE ilEBERHOEMUNG DES 2ROFILS 




25 SLEEP S 


<A14> 


": ! REM UEBERHOEHUNG IST DER ABSTAND 


<6B5> 


30 SCNCLR 5 


<P7S> 


355 INPUT U ! R 




33 PRINT CHR*<27)+"X" 1 REM UM 




EM ZN.2.STUFEN. 1-1 PIXEL 


<7HK> 


SCHALTEN AUF 48 ZEICHEN 


<23t» 


360 IF U(KS+1)>5« THEN PRINT "fiRAFIk WIRD ZU HOCH 




100 GRAPHIC 0, 1 


<2IH> 


• KTTE NEW HAEHLEN!"! SOTO 350 


<09F> 


105 PRINT CHR*(14> 

110 PRINT "tCLR,4DQWN,3RIEHT,RVSQN,2SPACE)Jl E its 


<6T8> 


3*!S PRINT " (3DtlUN T RUSnN>«ElttCniUUU5(SHF.SPACE>aE.a.l 


<COV> 


MWT I" 


HF.SPACE}J.<SHF.SPACE>E{SHF.SPACEJ£, -IJ1I 




370 SLEEP 2 


<KU7> 


6 HI3SFACE3- 


<J8L> 


375 IF F«="J" THEN FAST 


<90N> 


115 PRINT "(3nOUN)aiE GEBEN DIE HDEHENLIMIEN EINE 




380 GRAPHIC 3,l! K-l 


<615> 


R LAND-" 


<SF?> 


3S5 DIM P7.( 100,80) 


<3AF> 


12® PRINT "KARTE IN £INZELKOORDIHATEN EIN." 


<EK9> 


390 K*=-STR* (K) ! N*-"KOEHE"*K* 


<18L> 


123 PRINT -^SINNEN SIE MIT DER TIEFBTEN UND" 


<20A> 


3<?5 BLOAD (N*) ,ON B8 : REM NACHLADE 




138 PRINT "FAHREN £IE AUFSTEIGEND FORT." 


<9KR> 


N DER VERSCH. HOEHENKARTEN 


<4L4> 


135 PRINT "flU-E A.INIEN MUESSEN IN SICH GESCHLOSSE 




4»9 FOR A-B1V2 TD 13872 STEP 320 


<RVL> 


N" : REM ABGRENZUNG IST ERFQRDER- 


<2BB> 


405 FOR B=0 TO 7 STEP 2 


<BCC> 


140 PRINT "SEIN, GGF . DURCH 1ANDPARALLELEN. " 




410 FOR C-9 TD 159 STEP 4 


<4PA> 


i REM LfCH.DA DIE H0EHEN5TUFEN 


<3E4> 


415 D-A-S192 


<ANQ> 


143 : 




428 DA=D/40 I REM AU 




: REM AUS DEM BILDSCHIRM 


<30L> 


F 1/4 VERKLEINERN UND 


<SP9> 


150 : 




425 DY-(0fl+8)/2 


<QT6> 


I REM ERRECHNET MERDEN 


<ASR> 


438 DX-C/2 t REM UM 




155 PRINT "SDORDINATEN MIT SIND VERBOTEN. JER " 




RECHNEN AUF ABSOLUTE 


<EBL> 


: REM 0/0 WIRD ALE AUBBANBS- 


<270> 


43S BP=A+B+B»(INT(C/4) ) 


<NS7> 


160 PRINT "£UNKT 0/0 GEHOERT ZUR TIEFSTEN ZLAECHE 




440 H-PEEK(BP) ■ REM HO 




." : REM PUNKT FUER PAINT BENUTZT 


<JIJ> 


EHENWERTE 


<DGE> 


165 PRINT "SIE KOENNEN JET IT £HR IQORDINATENSVSTE 




445 IF H>127 AND PX(D¥,DX)-0 THEN PX(DV,DX) =U*K 


<FVN> 


H" 


<15E> 


430 IF KM 27 THEN H-H-12B 


■:kbi> 


17© PRINT "EINRICHTEN. " 


<1F4> 


455 IF H>63 THEN H=H-64 


<H36> 


175 PRINT "X-KRE1CH VON I BIS 2" ! REM S 




46® IF K>31 THEN H-H-32 


<KV\ > 


KALIERUNQ 


<38A> 


465 IF H>15 THEN H=+4-16 


<KB3> 


IB® INPUT " (MIND. 161 /MAX. 1023) "; KM 


<S57> 


470 IF H>7 AND P7.(DY ,DX+1 )-0 THEN P%(D¥,DX+1 >"*1*K 


<59R> 


1B5 PRINT "V-KREICM UON 1 BIS ?■ 


<U2R> 


475 NEXT C 


<6KH> 


19® INPUT " (MIND. 201 /MAX. 1023) "<YM 


<KD6> 


480 NEXT B 


<AT1> 


195 S=l : REM ZA 




4B5 NEXT A 


•CUJS> 


EHLER(B) DER AKTUELLEN LINIE 


< 102> 


498 IF K<=S THEN 505 


<OCL> 


208 GRAPHIC 4,1 


<6IP> 


495 K-K+l 


<SNP> 


205 COLOR 9, I : COLOR 1,9: COLOR 2,B: COLOR 3,4: C 




588 SOTO 39® 


<PEB> 


OLOR 4,1 ! REM FARBEN FUER VERTIKALE 


<esb> 


395 FOR A-® TO 99 


<PDQ> 


210 : 




518 FOR B=8 TO 79 


<UK> 


s REM UND HORIZONTALE FLAECHEN 


<4BJ> 


315 IF F*/.(A,B>=® THEN PX (A,B) =U» (K+l ) 


<DJ9> 


213 PRINT ! PRINT "KIR BEG1NNEN MIT DER EINGABE" 


<SCT> 


520 NEXT B 


<AL1> 


220 PRINT "DER "iS;' 1 . HDEHENLINIE" 


<E30> 


523 NEXT A 


CURS> 


225 SLEEP 5 


<C*4> 


339 SLOW : GRAPHIC 8,1 


<VJT> 


23® SCALE 1,Z*XM,YH 


<:«P6> 


535 PRINT t PRINT I PRINT I PRINT 


<HDF> 


235 G06UB 1880 


<IJC> 


549 PRINT "BDECHTEN SIE DIE 3RAFIK" 


<P4P> 
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545 PRINT "{DGWN1NIEDRIGAUFLQESEND ( N > • 

556 PRINT ■ (DOMN>ODER" 

555 PRINT " {D0UN1H0CHAUFL0ESEND t H ) M 8 

56 INPUT GR* 

565 IF GR*«"H" THEN 700: ELSE 600 

600 GRAPHIC 3,1 

60S SCALE 

610 FOR Y=© TO 9? ; rem ie 

1CHNEN DES RELIEFS 
615 YC=Y+50 : REN N) 

EDRIGE AUFLOESUNG 
620 FOR X-0 TO 79 
625 XA-50-Y/2 
63* XB=INT<XA> 
635 XC-XB+X 

64 e yo=yc-p7.<y,x> 

6*5 DRAM 1,XC,YC TO XC,YD*1 

650 DRAW 3,XC,YD 

655 DRAW 2, IXC+l) , IYC-1 > TO (XC*1),YD 

660 NEXT X 

665 NEXT Y 

670 SOTO 800 

700 GRAPHIC 1,1: COLOR 1,2 

7«5 SCALE 

710 FOR ¥-0 TO 9"? STEP 2 i REH IE 

ICHNEN DES RELIEFS 
715 YC-Y+5© , REM HO 

HE AUFLOESUNG 
720 FDR X-l TO 79 
725 XA=S0-Y/2 
750 XB-INT(XA) 
735 XC=XB+X 

7*0 YD-YC-PX<Y,X>I YE-YC-PX<Y,X-I> 
745 DRAN 0,2»XC,YC TO 2*XC,YD+1 
750 DRAW 0,2»XC-1,YC TO 2*XC-1,YD+1 
755 DRAM 1,2«XC-2,YE TO 2»XC,YD 
760 NEXT X 
765 NEXT Y 
B00 GRAPHIC 0,1 
605 PRINT : PRINT "JJAME ZUM flBSPEICHERN DERBRAFIK 

B10 INPUT "MAX, 13 iglCHEN" ;NA* 

815 IF GR*»"H" THEN GRAPHIC ll ELSE GRAPHIC 3 

620 BSAVEINA*) ,DN B0,PBi92 TO P163B3 : RE 

M SICHERN OER FERTIGEN GRAF IK 
B2S BSAVEINA*)*"^", ON B0,P716B TO PB191 : RE 

M UNO DER ENTSPR. FARBEN 
B30 FOR Z-l TO S 
B35 N*="HQEHE"+5TR*<Z> , RE 

PI LOESCHEN DER ARBEITSDATEIEN 
B40 SCRATCHING) 
B45 NEXT 1 
B50 GRAPHIC 0,1 

B55 PRINT ! PRINT ! PRINT : PRINT 
B60 INPUT "HDECHTEN £IE EINE HARDCOPY tJ/N)"lX* 
865 IF X*="N" THEN BBS 
870 PRINT I INPUT "NORMAL) 1> ODER VERGROESSERT (2) 

"J XI 
675 IF X*-"l" THEN SOSUB 1500 
BB0 IF X*-"2" THEN GOSUB 2000 
885 SLOW 

890 IF GR*-"H" THEN GRAPHIC ll ELSE GRAPHIC 3 
B9S END 
1000 PRINT " £2UP,RUS0NJ&,INIE AN ANOEREM gUNKT FOR 

TSETZEN:£" : REM HILFEN ANZEIGEN 
1005 PRINT " CRVS0NJNAECH3TE J,INIE:iJ{3SPACE JSEENDE 

N;at7BPACEJ» 
1010 PRINT s PRINT 
1015 RETURN 
110* INPUT "OIP)X-,SODRDINAT£:";X 

= REM AU5GANBSPUNKT 6IMER LINIE 
1105 INPUT " tUP,2IRIGHT>Y-JCXJR0INATEl "JY 
1110 LOCATE X,V 
1115 RETURN 

1200 PRINT ■ UJP,39SPACE>" 
1205 INPUT "(UP>X-aOORDINATE!";Xt : RE 

M NAECHSTER PUNKT EINER LINIE 
1210 IF X*<="P" OR X*="N" OR X*-"E" THEN 1235 
1213 tNPUT "tUP,20RI6HT>Y-IPORDlNATE:' , sY* 
1220 XA=VAL(X*>: YA=VAL tY*) 
1225 DRAM 2 TO XA.YA ; REM L 

INIE ZEICHNEN 
1230 SOTO 1200 
1235 IF X*-"P" THEN 1240: ELSE IF X*="N" THEN 125 

5: ELSE 300 
1240 PRINT "<UP,3"JSFACE1" 
1245 GOSUB 1100 , REM AB 

SET ZEN IN OER GLEICHEN 
1250 GOTO 1200 : rem HO 

EHENSTUFE 
1255 LOCATE 0,0 : REM AU 

SGANGSPUNKT FUER PAINT 
1260 GRAPHIC 3 
1265 PAINT 2,1,1 ; REM AL 

LE BILDPUNKTE UEBER DER 
1270 : . REM (^ 

TUELLEN HOEHENLINIE 
I 275 • . ! REM WE 

RDEN NICHT WON PAINT 



<QCP> 
<7BK> 
<LQKM> 
<RTM> 
<B51> 
<D2N> 
<NI9> 

<UTB> 

<2QJ> 
<K9K> 
<C40> 
<0F*> 
<LNR> 
<9L8> 
<7DN> 
<RCD> 
<6SJ> 
<PVC> 
<DPS> 
<OIK> 
<T6B> 
<NM9> 

<KTJ> 

<2AJ> 
<K9S> 
<D*0> 
<2F*> 
<LWR> 
<QB5> 
<1E7> 
<SJE> 
<101> 
<9TC> 
<TRB> 
<6IH> 

<IM1> 
<VFS> 
<7HR> 



<CJB> 
<IM2> 

<KCC> 
<3HU> 
<TBT> 
<LIH> 



12B5 
1290 

1295 
1300 
1305 
1310 
1500 

1505 

1510 
1515 
1520 
1525 
1530 
1535 
1340 
1545 
1550 
1555 
1560 
1565 
1570 
1575 
1SB0 
1585 
1590 
1595 
1600 
1605 
1610 
1615 
1620 
1625 
1630 
1635 
1640 
1645 
1650 
1655 
1660 
1665 
1670 
1675 
1680 
I6B5 
2000 

2005 



FiFn BE 



<ITF> 


2010 


«3HX> 


2015 


<IB3> 


2020 




2023 


<RN2> 


2030 


<SK3> 


2035 


<99L> 


2040 


<70O> 


2045 


<D0H> 


2050 


<03Q> 


2055 




2060 


<IP2> 


2065 




2070 


<1LA> 


2075 


<FCQ> 


2080 


<GJ7> 


20B5 




2090 


<PFF> 


2095 


<NB3> 


2100 


<49L> 


2105 


<GN7> 


2110 


<95P> 


2115 




2120 


<GES> 


2125 


<QJC> 


2130 


<L9E> 


2135 


<;K6B> 


2140 




2145 


C2T4> 


2150 


<19G> 


2155 




2160 


<P0G> 


2165 


<9LR> 


2170 




2173 


<0H3> 


2180 




2185 


<69S> 


2190 




2195 


<TDW> 


2200 


<ONO> 


2205 




2210 


<JNK> 


2215 




2220 


£6BR> 


2225 




2230 


<40H> 





s t REM BE 

TROFFEN 

S*-BTR* ( S > : N*= " HOEHE " +S# 

BSAVE(N*),CN 80,P0B192 TO P163B3 3 REM AR 

BEITBKOPIE DEB BILDBCHIRMS 

S = S-M 

GRAPHIC 4,1 

PRINT : PRINT "£S FOLGT DIE JIINGABE" 

GOTO 220 

PAST : REn pu 

NKT-FUER-PUNKT-HARDCOPY 

DIM D7.(320,7) 

R GRAFIK 

OPEN 4,4 

PRINT«4,CHR*IB)J 

FOR N-8192 TO 16191 STEP 320 

FDR X=0 TO 7 

FOR Y-0 TO 319 STEP 8 

A^N+X+Y 

B-PEEKCA) 

IF 8>-=I28 THEN DX(V,V>=1: B=B-12B 

IF B>-64 THEN DX<Y+1 ,V1=] : B-B-64 

IF B>-32 THEN DX « Y+2, V) -Is B-B-32 

IF B>-16 THEN DX(Y+3,VI-1: 8=B-16 

IF B>=B THEN DK(Y+4,W)-Il B-B-B 

IF B>-4 THEN DX IY+5, V) =1= B-B-4 

IF B>-2 THEN D7.<V+6,V> -1 s B-B-2 

IF fr»l THEN DK(Y+7,V)-1 

NEXT Y 

W-U+l 

IF W=-7 THEN GOSUB 1620 

NEXT X 

NEXT N 

CLOSE 4 

RETURN 

U=0 

FDR H=0 TO 319 

P1"D7.IH,V)| DX1H.VJ-0 

P2=2*D7. tH,V+l) : DX<H,V*I>-« 

P3-4*D7.(H,V+2) : DX(H,U+2)=0 

P4=8*DX<H,V+3) : OX(H,V+3)-0 

P5-16*DKtH,U+4) ! Dy.(H,y+4)-0 

P6-32#DX<H,W+5): 07, (H. V*5>-0 

P7-64»DK(H,W+6) I DX(H,W+6)-« 

P=Pl+P2+P3-*-P4+P5+P6+P7+12B 

PRINTi4,CHR*(P)s 

NEXT H 

PRINT#4,CHR»(128) 

RETURN 

DIM SX 1320,7)3 DIM PAX(320): DIM PBX(320): R 

EM VERGOESSERTE HARDCOPY 

FAST : rem D 

ER BRAFIK 

OPEN 4,4 

PRINT*4,CHR*(8>i 

FOR N-B192 TO 16191 STEP 320 

FOR X=0 TO 7 

FOR Y-0 TO 319 STEP 8 

A-N+X+Y 

B-PEEK(A) 

IF BS-128 THEN DX(Y,W)-1: B-B-12S 

IF B>*64 THEN DX<Y+l,U)=l! B-B-64 

IF B>-32 T1CN DX<Y+2,U)=lg B»=B-32 

IF B>=16 THEN DV.( Y+3, V) = l ! B-B-16 

IF B>-8 THEN DXIY+4,y)"l! B-B-B 

IF B>*-4 THEN DX(Y+5,y)=ll B-B-4 

IF B>-2 THEN DX (Y+6,V>-1 3 B-B-Z 

IP B=] THEN DXIY+7,y»-l 

NEXT V 

V-V+l 

IF W-7 THEN GOSUB 2120 

NEXT X 

NEXT N 

PRINT**, CHR*(13) : CLOSE * 

RETURN 

V = 

FOR H-0 TO 319 

Pl-DXCH.V)! DX<H,V1=0 

P2-DX(H,V+l)s DX(H,V+l)-0 

P3"DX(H,V+Z>t DX<H,W+2)=0 

P*-DX1H,V*3>! DX(H,W+3}-0 

P5=DX(H,V+4>! DX(H,U+*)-0 

P6-DX(H,V+S)i DX(H,V*5>-0 

P7=DX(H,V+6): DX(H,W#6>-0 

PAX ( H) »3»P 1 + 1 2»P2+*8«P3*64«P**1 2B 

PB5UH>=P4+6#P5+24*P6+96*P7+12B 

NEXT H 

FOR H-0 TO 239 

P-PAXtH> 

PRINT»4,CHR«(P); 

PRINT«*,CHR«(P) ; 

NEXT 

FOR H-0 TO 239 

P-PBX(H) 

PRINT**, CHR*SP) j 

PRINT**, CHR* IP)! 

NEXT 

RETURN 



<997> 
<M0B> 

<FES> 
<609> 

'WO. 
<FLL> 
<222> 

<2flR> 

<RTP> 
<GHE> 
<C90> 
<U89> 
<PIL> 
<0B*> 
C4ER> 
<DSG> 
<SB4> 
<N3P> 
<*W> 
<AVV> 
<U2R> 
<VKT> 
<NFU> 
<UKA> 
■CBLSJ 
<A5R> 
<1TC> 

<:ftc> 

<P7N> 
<SML> 
<BB7> 
<7CP> 
<23J> 
<EBA> 
<FC1> 
<LUD> 
<IU9> 
C40J> 
<40N> 
<SSR> 
<JFU> 
<ORA> 
<10K> 
<V7F^ 
<«P7> 

<BR5> 

<64B> 
<09E> 
<DPU5 
<UG9> 
COIL> 
<1R2> 
<4MR> 
<ESB> 
<CK*> 
<77P> 
<KRV> 
<DRW> 
<I2R> 
<5KT> 

■;rfu> 

<6NA> 
<RJS> 
<Q3R> 
<7DM> 
<WC> 
<95N> 
<3EH> 
<GF7> 
<3C9> 
<63J> 
<69A> 
<MDJ> 
<G0W> 
<DJR> 
<UE7> 
<3P3> 
<4KF> 
<CFJ> 
<PTF> 
<HOK> 
<N3J> 
<B5G> 
<RR6> 
<RF*> 
<2C0> 
<E3J> 
<E98> 
<0WA> 
<OJE> 
<0CG> 
<D27> 



Listing 1. »3-D-Landkarten«. Basic-Listing filr den C128. 
Bitte mit dem Checksum mer 128 (Seite 158) eingeben. 
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nter Supra Basic haben Sie uber hundert neue Befeh- 
le zur Verfugung, die das an sich schon leistungsfahi- 
1 ge Basic 7.0 des C 128 noch weiter ausbauen. So bie- 
tet Supra Basic komfortabie Befehie zur Variabienmanipu- 
lation, ermoglicht auf einfache Weise Speicheroperatio- 
nen, die sonst den Assemblerprogrammierern vorbehalten 
sind und unterstutzt vor allem die Grafik des VDC. 

Variablenbefehle 



Alle verwendeten Befehie werden im Text gro8 geschrie- 
ben, Parameter klein. Parameter, die wahlweise angege- 
ben werden konnen, stehen in eckigen Klammern (»[« und 
»]«). MuB von mehreren Parametern mindestens einer an- 
gegeben werden, so sind diese durch Schragstriche {»/«) 
getrenht. 
CLEAR var 

Loscht die angegebene Variable und hinterlaBt sie in ei- 
nem definierten Zustand (0 Oder Leer-String). 
Stringl = CUT (string2) 

Entfernt alle Space- und SHIFT-Space-Zeichen am En- 
de eines Strings. 
Stringl = LCUT (String2) 

Entfernt aiie Space- und SHIFT-Space-Zerchen am An- 
fang eines Strings. 
CLFI. Feldvar(1), Feldvar(n) 

Loscht alle Variablen des angegebenen Fefdbereichs. 
Ohne FOR-NEXT-Schleife und schneller als LET. 
Stringl = DEC (String2) 

Entfernt das letzte Zeichen von String2. 
DUMP 

Zeigt alle benutzten Variablen an. Feldvariablen werden 
mit Dimensionen ausgegeben. 

String = DUP (Stringkonstante/Stringvar/Stringverket- 
tung, Multiplikator) 

DUP ist eine Anweisung zum Vervielfachen eines Strings 
(z, B.; y$ = DUP("TEST",2) ergibt *TESTTEST« in y$). Der 
Multiplikator darf Werte zwischen 1 und 255 annehmen. 
Wird durch die Duplizierung eine Stringlange von 255 Byte 
uberschritten, so erfolgt ein »string too long error*. 
EXCHANGE Var1, Var2 

Tauscht den inhalt von zwei Variablen aus, ohne dabei 
den Umweg liber eine dritte Variable (Dummy- Variable) zu 
gehen. 
EXFI. Feldvar1(1), Feldvarl(n), Feldvar2(m) 

Vertauscht den Inhalt des Bereiches von Feldvar1(1) bis 
zum letzten angegebenen Index (Feldvar(n)) derselben Va- 
riable {z.B. a$(1),a$(10) ) mit der neuen Variablen (Feldvar2) 
ab dem angegebenen Index (m) aus, z.B.: 

EXFI. a$(l) ^$(10)^1(12) 
INSERT (Stringl, Position, String2) 

Ftigt Stringl ab der angegebenen Position in String2 ein. 
TRANSFER vaii,var2 

Ubertragt den Inhalt von »var1« in »var2« und loscht 
»var1«. 
TRANFI. Feldvar1(1), FeldvaM(n), Feldvar2 

TRANFI. entspricht in etwa dem EXFI.-Befehl. Im Unter- 
schied zu diesem loscht er allerdings die Ausgangsvariable 
(Feldvart), 



ACHTUNG: 
CLEAR. CLFI.. EXCHANGE.EXFI., TRANSFER und TRANFI. ar- 
beiten nur bei Variablen des gleichen Typs korrekt! 
Vorsicht sollten Sie walten lassen. wenn Sie TRANFI. Oder EXFI. bei 
ein und derselben Feldvariablen anwenden: »TRANFI. a(12), a(24), 
a(28)« ist grundsatzlich ertaubl. kann aber zu unangenehmen Fehlern 
bis hin zu Datenverlusten fiihren, wenn der Zielbereich (Feldvar2) 
ganz Oder teilweise im Duellbereich liep* 



i 



i 



Eine sehr leistungsfahige Basic- Erweiterung stel- 
len wir Ihnen mit "Supra Basic« vor. Sie stellt unter 
anderem machtige G rati kbefe hie flir den 80- 
Zeichen-Modus des C128 zur Verfugung und 
zeichnet sich durch »Reset-Festigkeit« aus. 



VDC- und Grafik-Befehle 



Samtliche Grafik-Befehle beziehen sich - entgegen vielen 
anderen Basic-Erweiterungen - auf den 80-Zeichen-Mo- 
dus (VDC-Chip), da der Speicherbereich fiir den 40-Zei- 
chen-Modus bereits vom Prog ram m selbst beiegt ist. 

Alle Befehie, denen als Parameter eine Farbe ubergeben 
wird, verwenden folgende Tabelle fiir die Farbnummern: 

= Punkte loschen, 

1 = Punkte in Vordergrundfarbe setzen, 

2 = Punkte invertieren. 

Die Syntax der Befehie fur die VDC-Grafik stimmt im we- 
sentlichen mit den entsprechenden Befehlen fur die VIC- 
Grafik iiberein. 
GRAPHIC 1 

Schaltet die VDC-Grafik ein. 
GRCLR 

Loscht den Bildschlrmspeicher fiir die VDC-Grafik 
GRON 

Schaltet die VDC-Grafik ein und loscht den Bildschirm. 
GROFF 

Schaltet die VDC-Grafik aus, kopiert den Zeichensatz in 
das VDC-RAM und loscht den Bildschirm. 
VCOLOR farbe,fading 

»farbe« andert die Zeichenfarbe der Grafik. »fading« gibt 
eine Farbverschiebung an. Beide Parameter durfen nur 
Werte zwischen 1 und 16 annehmen. 
VLOCATE x,y 

Positioniert den unsichtbaren Grafik-Cursor an die ange- 
gebene Stella 
VDRAW farbe,x,y 

Setzt einen Punkt in der angegebenen Farbe 
VDRAW farbe,x1,y1 to x2,y2 [to x3,y3 [to xn,yn]] 

Zieht eine Linie von Position x1,y1 nach x2,y2 und - falls 
angegeben - von dort weiter nach x3,y3 usw. 
VDRAW to x,y 

Zieht eine Linie von der aktuellen Cursor-Position zum 
angegebenen Koordinaten punkt. 
VDRAW farbe,x,y to Lange;Winkel 

Zieht eine Linie vom angegebenen Punkt mit der ange- 
gebenen Lange und dem angegebenen Winkel (im Bogen- 
ma6). 
VBOXfarbe,x1,y1,x2,y2[,drehwinkel][,ausfullen] 

Zeichnet ein Rechteck mit der linken oberen Ecke x1,y1 
und der rechten unteren Ecke x2,y2. Vorsicht: Der Parame- 
ter »ausful!en« kann nicht im Zusammenhang mit der Farbe 
2 (invertieren) verwendet werden. 

VCIRCLE farbe.x,y, x-radius [,y-radius] [,anfangswinkel] 
[, end winkel] [.drehwinkei] [,gradzahl] 

Zeichnet einen Kreis Oder eine Ellipse (entsprechend den 
Werte n in »x-radius« und »y-radius«) mit dem Mittel punkt an 
der Position x,y und dem Radius x-radius. Wird fur y-radius 
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kein Wert angegeben, so ubernimmt Supra Basic den Wert 
von x-radius. Dabei soliten Sie jedoch beachten, da6 der 
C 128 in x-Richtung eine andere Auflosung hat (640 Punkte) 
als in y-Richtung (200 Punkte). 
VPAINT farbe, x,y 

Mit der Farbe 2 wird die ganze 80-Zeichen-Grafik inver- 
tiert. Die durch x und y markierte Position ist der Startwert 
fur das Ausfiiilen der Flache. 
VCHAR farbe,x,y, String 

Gibt die Zeichenkette ab dem angegebenen Punkt auf 
dem Grafik-Bildschirm aus. Der Startpunkt gibt die linke 
obere Ecke des ersten Zeichens an. Diese Adresse ist im 
Gegensatz zum original CHAR-Befehl pixelweise veran- 
derbar, also x-Achse bis 639 und y-AchseO bis 199 als Pa- 
rameter. Ist fiir »farbe« eine angegeben, so wird die Zei- 
chenkette revers ausgegeben. Ist sie 1, so wird die Zeichen- 
kette in normaler Schrift ausgegeben. Bei farbe = 2 wird 
die Zeichenmatrix mit dem Grafik-Bildschirm Exklusiv- 
Oder-Verknupft (invertiert). 
VDCSAVE [Adresse] 

Speichert das gesamte VDC-RAM in den reservierten 
Bereich ab $BF00. Von dort kann es mit 
BSAVE name j on b0, p-48896 to p65280 

auf Diskette gespeichert werden. Mit 
BLOAD name, on bO 

holt man es In den Speicher zurtick. Sollte eine Adresse 
angegeben sein, so wird der Inhalt des VDC-RAM ab der 
angegebenen Adresse abgelegt. 
VDCLOAD [Adresse] 

Kopiert den R AM-Bereich von $BF00 bis $FEFF ins VDC- 
RAM. Falls eine Adresse angegeben wurde, wird der Inhalt 
des Speichers ab dieser Adresse in das VDC-RAM kopiert. 
ZKR x,y 

Zeichnet an die Position x,y ein Zielkreuz mit der Farbe 
2 (in vers). 
VRDOT farbe 

Entspricht dem RDOT-Befehl unter Basic 7.0. 
SCREEN speicherstelle,wert 

Schreibt an die angegebene Speichersfelle des VDC- 
RAM den angegebenen Wert. 
x = INCSR (speicherstelle) 

Gibt den Wert aus, der an der angegebenen Speicher- 
stelle steht. Dabei muB »speicherstelle« ein Hex-Wert sein, 
also entweder mit einem Buchstaben anfangen Oder als 
Kennzeichnung ein »h« als erstes Zeichen haben. 
WVREG registernumrner,registerinhalt 

Beschreibt das Register mit dem neuen Inhalt. 
x = RVREG(negisternummer) 

Gibt den Wert des Registers aus. 
STRVDC adresse.string 

Schreibt den String ab der angegebenen Stelle in das 
VDC-RAM. 
XSTVDC adresse,string 

Schreibt den String ab der angegebenen Stelle in das 
VDC-RAM. Dabei wird vorher eine Wandlung der ASCII- 
Zeichen in Bildschirmcode vorgenommen. 
x = VDCSTR (adresse,anzahl) 

Erzeugt einen String mit der Lange »anzahl« und fiillt ihn 
mit den Zeichen, die ab der angegebenen Adresse im VDC 
stehen. 
PAGE [Seitennummer] 

Ohne Parameter schaltet PAGE auf die jeweils andere 
Textseite urn. Page 1 schaltet Seite 1 und PAGE 2 schaltet 
Seite2ein. Die Taste <ALT> entspricht dem PAGE-Befehl. 
DieTasten < ALT SHIFT > entsprechen PAGE 1. DieTasten 
<ALT CBM> entsprechen PAGE 2. 1st die Grafik einge- 
schaltet, Oder der aktuelle Ausgabe-Bildschirm im 40-Zei- 
chen-Modus, dann erfolgt durch den PAGE-Befehl oder die 
entsprechenden Tasten keine Reaktion. 



Speicheroperationen 



SETBOT bank, adresse 

Setzt die Untergrenze des Programm- (Bank 0) oder des 
Variablen-Speichers(Bank 1) auf die angegebene Adresse. 
Das Programm wird verschoben und geht so nicht verloren. 
Ist nicht geniigend Speicherplatz fiir die Verse hiebungfrei, 
so erhalt man einen »out of memory error«. Ist die Adresse 
in Bank kleiner 16385 oder die Adresse in Bank 1 kieiner 
81 92 sogibt der Computer einen ^illegal quantity error« aus. 
Bei SETBOT in Bank 1 werden alle Variablen geloscht. 
SETTOP bank, adresse 

Setzt die Obergrenze des Programm- (BankO) oder des 
Variablenspeichers (Bankl) neu. Wird eine Obergrenze 
des Speichers groBer 65279 gewahlt, so gibt die Basic-Er- 
weiterung einen "illegal quantity error« aus. Wird in der 
Programm-Bank eine Obergrenze von 48895 uberschrit- 
ten, so muB der Programmierer selbst darauf achten, daB 
der VDCSAVE-Befehl nicht sein Programm zerstort. Wird 
eine Obergrenze kleiner dem Ende des Basic-Programms 
(BankO) oder kleiner 8192 (Bankl) gewahlt, so wird ein out 
of memory error« ausgegeben. SETTOP in Bankl loscht al- 
le Variablen. 
RBOT (wert) 

Liefert die Untergrenze des Basic-Speichers in Bank 
oder 1 abhangig vom angegebenen Parameter. 
RTOP (wert) 

Liefert die Obergrenze des Basic-Speichers in Bank 
oder 1 abhangig vom angegebenen Parameter. 
BASIC (stringausdruck) 

Wandelt den im String enthaltenen Ausdruck in eine le- 
serliche Form urn, wie dies auch beim LIST-Befehl ge- 
schieht. Wird dabei eine Lange von 255 Zeichen uber- 
schritten, so erhalt man einen »string too long error«. 
BASLN (adresse) 

Dieser Befehl decodiert eine Basic-Zeile, die an der an- 
gegebenen Adresse (in Bank 0) beginnt, und legt diese in 
einem String ab. Falls sich durch die Decodierung eine Lan- 
ge ergibt, die groBer als 255 Byte ist, so wird ein -string too 
long error« ausgegeben. 

STRMEM adresse,string 

Schreibt die ASCII-Werte von »string« ab der angegebe- 
nen Adresse in die aktuelle Bank. 
strings = MEMSTR (adressejange) 

Dieser Befehl holt von der angegebenen Adresse derak- 
tuellen Bank so viele Zeichen, wie durch den Parameter 
Lange vorgegeben sind, und legt sie in einem String ab. 

MOVE queHbank,zielbank,anfadresse,endadresse,ziel- 
adresse 

Ubertragt einen Speicherbereich von »anfadresse« bis 
»endadresse« in »quellbank« in den Speicher ab»zieiadres- 
se« in der »zielbank«. 

MEMSWAP quell bank, ziel bank, anfadresse,endadres- 
se.zieladresse 

Tauscht einen Speicherbereich von »anfadresse« bis 
»endadresse« in der »quellbank« mit dem Bereich in der 
»zielbank« ab »zieladresse« aus. 
FILL bank,f£illwert,anfadresse,endadresse 

Belegt den angegebenen Speicherbereich in der ange- 
gebenen Bank mit einem Fullwert. 
DPOKE adresse.wert 

Dient zum Poken eines 16-Bit-Werts als 2 Byte im 
Low/High-Format des Betriebssystems. Hiermit kann auch 
der Interruptvektor verbogen werden. 
x = DPEEK (adresse) 

Liefert einen 16-Bit-Wert von 2 Byte, die im Low/High- 
Format ab der angegebenen Adresse im Speicher stehen. 
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HIDE [zeilennummer] 

Versteckt das Basic-Programm bis zur angegebenen 
Zeilennummer. Ohne »zeilennummer« wird das gesamte 
Programm versteckt. 
UNITE 

Bringt den versteckten Basic-Teil wieder zum Vorschein. 
MERGE programmname.8 

Bewirkt das Zu laden eines zweiten Basic-Programmes 
zum bereits im Speicher vorhandenen. Die Zeilennum- 
mern konnen nun mit RENUMBER verandert werden; sie 
mussen groBer sein als die des ersten Program ms. 
MERGE 2 

Verknupft die beiden Programme, so daB der erste Teil 
wieder zu sehen und zu nutzen ist. 
FIND text/befehl 

Listet alleZeilen, in denen »text«oder»befehl« vorkommt. 
Texte, die im Programm in Anfuhrungszeichen stehen, 
mussen auch hier in Anfuhrungszeichen stehen, da Supra 
Basic sonst nicht zwischen Befehl und Text unterschetden 
kann und es daher zu Fehlern kommt. Nach dem FIND- 
Befehl darf kein weiterer Befehl in der Basic-Zeile stehen, 
da dieser von der FIND-Routine als Suchobjekt angesehen 
wurde (auBer bei Text in Anfuhrungszeichen, wo nach dem 
zweiten Anfuhrungszeichen in der Basic-Zeile fortgefahren 
wird). 
CLIST 

Modifiziert die List-Routine. Beim Listen werden alle Be- 
fehle von Supra Basic und alle REM-Zeilen invers darge- 
stellt. Die formatzerstorenden Zeichen RETURN {chr$(13)), 
SHIFT-RETURN (chr${141)), ESC (chr$(27)) und 
DEL(chr$(20)) werden als chr$-Code in den Text eingefugt. 
AuBerdem wird mit dem Befehl WKEY (s.u.) auf einen ta- 
stendruckgewartet. Durch ein erneutes CLIST wird die Mo- 
difizierung aufgehoben. 
WKEY 

VeranlaBt den CLIST-Befehl, nach jeder angezeigten 
Seite auf einen Tastendruck zu warten. 
OLD 

Gegenbefehl zu NEW. Funktioniert nur, wenn seit dem 
NEW die Zeiger auf den Programmanfang nicht verandert 
und kein neues Programm eingegeben wurde. 
OLDKEY 

Durch diesen Befehl wird die Belegung der Funktionsta- 
sten, wie sie beim Einschalten vorliegt, wiederhergestellt, 
RELOCATE anfzeile, endzeile, zielzeile [.start - 
zeile_neu] [,Schrittweite] 

Verschiebt den Prog ram mbereich von »anfzei)e« bis ein- 
schlieBlich »endzeile« vor die »zielzeile«. Um den Bereich 
an das Programmende zu verschieben, mussen Sie bei 
»zietzeile« eine Nummer eingeben, die hoher ist als die der 
bisherigen letzten Zeile. Wenn »endzeile« kleiner ais "anf- 
zeile" ist, Oder »zielzeile« in dem zu verschiebenden Be- 
reich liegt, so gibt dies einen -illegal quantity error«. Nach 
dem Verschieben wird automatisch eine Neunumerierung 
aller Programmzeiien durchgefuhrt. Dabei betragt der 
Startwert und die Schrittweite jeweils 10. Die beiden letzten 
(wahlweisen) Parameter bestimmen, mit welcher Zeilen- 
nummer das Programm beginnen soil, und in welcher 
Schrittweite es durch numeriert werden soli (falls ein ande- 
rer Wert als 10 gewunscht wird). 
EXECUTE string 

Fiihrt den in »string« enthaltenen Basic-Befehl aus. Ist 
am Anfang des Strings eine Zeilennummer, so wird der 
String als Basic-Zeile in das Programm eingefugt. Das Pro- 
gramm darf jedoch in keinem Unterprogramm (GOSUB) 
und keiner Schleife (FOR... NEXT und DO... LOOP) veran- 



dert werden, da dadurch ein Absturz provoziert Oder das 
Programm zerstort werden kann. Sie sollten auch nicht ver- 
suchen, die Zeile zu andern, in der der EXECUTE-Befehl 
steht, da Sie sonst einen Fehler verursachen. 

Echtzeituhr 

SETTIME string 

Setzt die in dieser Basic-Erweiterung integrierte Echt- 
zeituhr und starlet sie. Der String muB sieben Zeichen lang 
sein und hat folgende Struktur: 

hhmmssz(mit hh ■ Stunden; mm = Minuten; ss = Se- 
kunden; z = Zehntelsekunden). 

Die Echtzeituhr benutzt den CIA 1 zum Timing. 
TIME (dummy) 

Gibt die Uhrzeit in folgendem Format als String aus : 

hh:mm:ss.z 



Sonstige Befehle 



XKEY (nummer.text) 

Entspricht dem KEY-Befehl, nur sind die Tastennum- 
mern um 1 kleiner und es konnen alle zehn Funktionstasten 
verandert werden. 
REPEAT 

Schaltet die gewohnte Tastenwiederholfunktion ein, die 
auch nach dem Einschalten aktiv ist. 
REPEATON 

Durch diesen Befehl werden nur noch SPACE, die Cur- 
sortasten, INST und DEL durch die Tastenwiederholfunk- 
tion unterstutzt. 
REPEATOFF 

Schaltet die Wiederholfunktion voilstandig ab. 
CUON 

Schaltet im Programmodus den Cursor ein (dies ist bei- 
spielsweise nutzlich fur Eingabeschleifen mit GET- oder 
GETKEY-Befehlen.) 
COFF 

schaltet den Cursor aus. 
LOCKS 

Schaltet die STOP-Taste und <STOP RESTORE > ab. 
UNLOCKS 

Schaltet die STOP-Taste und <STOP RESTORE> wie- 
der an. 
DINLOCK 

Schaltet auf den DIN-Zeichensatz um. Dieser kann an- 
schlieBend nicht mehr auf ASCII zuruckgeschaltet werden. 
DINFREE 

Gibt die Umschaltung von ASCII auf DIN wieder frei. 
WRUSR adresse 

Setzt den USR-Vektor auf »adresse*. 
LLIST [anfang ende] 

Listet das aktuelle Listing auf dem Drucker. Voreinge- 
stelltistGerateadresse4, Sekundaradresse7. Mit»anfang« 
und »ende« kann ein Teil bereich des Program ms angege- 
ben werden. 
LSET geratead resse.se kund a radresse 

Setzt Geratead resse und Sekundaradresse des 
Druckers fur LLIST und LPRINT 
LPRINT ausdruck 

Funktioniert wie der PRINT-Befehl, nur daB die Ausgabe 
auf den Drucker umgeleitet wird. Mit LSET konnen die 
Adressen eingestellt werden (voreingestellt sind 4 und 7). 
PAUSE [parameterliste,]wartezeft 

Wartet solange wie in »wartezeit« angegeben mit der Pro- 
grammausfuhrung. Wenn eine Parameterliste angegeben 
wird, muB der erste Ausdruck der Liste ein String sein. In 
der Parameterliste darf kein Komma vorkommen. 
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CENTRE pararneterliste 

Gibt die Pararneterliste zentriert in der aktuellen Zeile 
aus. 1st der Inhalt der Pararneterliste gr68er als die Anzahl 
der Spalten in der aktuellen Zeile, so erhalt man einen 
»string too long error«. 
AT (spalte,zeile) 

Posittoniert den Cursor an die angegebene Stelle auf 
dem Bildschirm. Hierdurch kann auch eine AusgabeauBer- 
halb des aktuellen Windows erfolgen (aber naturlich nur in- 
nerhalb des Bildschirms), allerdings durfen dann in der fol- 
genden Pararneterliste (des PRINT- Oder CENTRE-Be- 
fehls) keine Cursor-Steuerzeichen, kein DEL, kein INST, 
kein CLR und kein HOME vorkommen, well deren Funktio- 
nen sich nur auf das aktuelle Fenster beziehen konnen. 
DISK pararneterliste 

Sendet die Pararneterliste auf dem Befehlskanal an die 
Floppy. Voreingestellt ist Gerateadresse 8. 
DISET gerateadresse 

Mit diesem Befehl wird die voreingestellte Gerateadres- 
se (z.B. fur DISK) auf einen Wert von 8 bis 11 geandert.Bei 
anderen Werten wird eine Fehlermeldung angezeigt. 
TKEY 

Wartet auf einen Tastendruck. 

OFINPUT [text; pararneterliste,] variablenliste 

Ein modifizierter INPUT-Befehl. Die Pararneterliste er- 
moglicht das Ausgeben von Werten ahnlich wie mit dem 
PRINT-Befehl, allerdings konnen keine Kommata verwen- 
det werden, da diese das Trennzeichen zur Variablenliste 
darstellen. Text und Pararneterliste sind wie beim Original- 
INPUT-Befehl optional. Dies bedeutet, daB, wenn am An- 
fang kein Text in Anfuhrungszeichen steht, angenommen 
wird, da6 gleich hinter OFINPUT die Variablenliste beginnt. 
Bei Einlesen nur einer (!) Stringvariablen werden alle Zei- 
chen eingelesen (also auch Komma, Anfuhrungszeichen 
usw.). Die Tasten CRSR-aufwarts und CRSR-abwarts sind 
in ihrer Funktion blockiert. CRSR-rechts und CRSR-links 
funktionieren, aber Sie konnen mit diesen Tasten das Ein- 
gabefeld von maximal 160 Zeichen nicht verlassen. Das 
gleiche gilt fur die Tasten INST und DEL. Durch HOME kom- 
men Sie an den Anfang des Eingabefeldes. Durch CLR wird 
das Eingabefeid geloscht und der Cursor steht am Anfang 
des Eingabefeldes. 

INPUTFORM spalte, zeile, lange, kommentar, vorgabe, 
zugelassene zeichen, zielvariable 

Gibt an der angegebenen Stelle auf dem Bildschirm ei- 
nen Kommentar aus. Dahinter wird die Vorgabe ausgege- 
ben. Kommentar und Vorgabe konnen Parameterlisten wie 
beim PRINT-Befehl sein, nur durfen hier keine Kommata 
vorkommen, da diese die Trennzeichen zum nachsten Ab- 
schnitt bilden. »zugelassene zeichen« gibt an, welche Ta- 
sten auBer < SPACE >, <CRSR-rechts>, <CRSR- 
links>, <HOME>, <CLR>, <INST>, <DEL> und 
< RETURN > zugelassen sind. Die Eingabe wird in »ziel- 
variable« abgelegt. Das Eingabefeid beginnt mit dem Start 
der »vorgabe« und kann zwischen 1 und 160 Zeichen lang 
sein. Ansonsten verhalt sich INPUTFORM wie OFINPUT. 

DINPUT (abschluBzeichen,lange,filenummer) 

Liest aus dem geoffneten File einen String mit der ange- 
gebenen Lange, dabei werden alle Zeichen eingelesen 
(einschlieBlich chr$(0), chr$(13) ....). Die Lange darf maxi- 
mal 255 Byte betragen. Wahlweise kann auch auf ein be- 
stimmtes Byte hin die Eingabe vor Erreichen des letzten 
einzulesenden Zeichens beendet werden. Das AbschluB- 
zeichen wird nicht im String abgelegt. Um dies zu errei- 
chen, muB der ASCII-Wert dieses Zeichens als »abschluB- 
zeichen«angegeben werden. Soil auf jeden Fall die gesam- 
te Lange eingelesen werden, so muB der Wert fur das Ab- 
schluBzeichen zwischen 256 und 65535 liegen. 



RESET 

Fuhrt einen Warmstart durch. 
LWIND [zeile_1,[zeile_n]l 

Ohne Parameter wird das Bildschirmfenster gleich der 
maximalen GroBe. Mit nur einem Parameter wird diese Zei- 
le zum aktuellen Bildschirmfenster. Mit beiden Parametern 
wird das Bildschirmfenster von derersten bis zur letzten an- 
gegebenen Zeile neu definiert. 
CGOTO zeilennummer/label 

Springt an die angegebene Stelle. Dabei kann die Zeilen- 
nummer jeden Wert zwischen und 65535 annehmen. Der 
Befehl CGOTO wird nicht durch RENUMBER angepaflt. 
Die Zeilennummer kann auch als Variable Oder Formel an- 
gegeben sein, beispielsweise: 

CGOTO a*2+h-3 

»CGOTO label* dagegen springt in die Zeile, in der ein 
PROC-Befehl mit dem angegebenen Label steht. Es wird in 
der Zeile nach dem PROC-Befehl mit dem Programmab- 
lauf fortgefahren. 
CGOSUB zeilennummer 

Verhalt sich im wesentlichen wie das original GOSUB. 
Zusatzlich gelten die Regeln von CGOTO. 
PROC" label" 

Setzt eine Sprungmarke fur CGOTO und CGOSUB. Die 
Programmausfuhrung wird in der Zeile nach dem PROC- 
Befehl fortgesetzt. Trifft das Program m wahrend des nor- 
malen Program mablaufs auf einen PROC-Befehl, so wer- 
den alle Zeichen hinter PROC bis zum nachsten Doppel- 
punkt oder dem Zeilenende uberlesen. Folglich durfen im 
Labelnamen alle Zeichen auBer dem Doppeipunkt vorkom- 
men. Zwischen PROC und dem ersten Anfuhrungszeichen 
darf kein Leerzeichen stehen. 
ERASE 

Loscht ein Basic-Programm unwiderruflich. 
KILL 

fuhrt zum Absturz. Vorsicht!! KILL kann nicht abgebro- 
chen Oder ruckgangig gemacht werden. 

CODE programmname 

Verschliisseltein Basic-Programm. Dieser Code ist ohne 
fundierte Maschinensprachkenntnisse nur sehr schwer zu 
entschlusseln. Das codierte Programm kann anschlieBend 
mit DSAVE gespeichert werden. Zum sicheren Laden und 
Starten dieses Programms sollten Sie folgende Befehle 
eingeben: 

LOCKS : BLOADname , ONbO , p(DPEEK(45) ) : DP0KE462^ , DPEEK 
(174): DECODE programmname: RUN 

Bitte geben Sie diese Befehle im Direktmodus ein, kei- 
nesfalis programmgesteuert (es sei denn durch EXE- 
CUTE). 

DECODE programmname 

Decodiert ein vorher mit CODE verschlusseltes Basic- 
Programm. 

OFF[char] 

Schaltet die Basic-Erweiterung ab, gibt die blockierten 
Bereiche frei und setzt die alten Vektoren. Das Programm 
kann nicht wieder gestartet werden. Beftndetsich dagegen 
hinter OFF noch ein weiteres beliebiges Zeichen, so wird 
die Basic-Erweiterung abgeschaltet, aber die Bereiche 
nicht freigegeben. Durch Drucken der RESTORE- oder RE- 
SET-Taste wird die Basic-Erweiterung wieder aktivtert. Bel 
einem OFF ohne zusatzliches Zeichen ergibt sich folgen- 
der Ablauf : 

1. Das Basic-Programm bleibt bei $4000 stehen. 

2. Der Zeiger auf den Programmanfang wird auf die 
Adresse gesetzt, die nach dem Einschalten des Rechners 
als Programmstart definiert ist ($1c01). 

3. Alle Variablen werden geloscht. Die Common Area 
wird auf NormalgrQBe verkleinert. 
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van = USED (var2) 

Legt die Programm I ange des aktuellen Basic-Pro- 
gramms in »varl« ab. »var2« wird iediglich als Platzhaiter 
gebraucht. 
var = LOW (wert) 

Liefert das Low-Byte eines Wertes (entspricht also wert 
AND 255) 
var = HIGH (wert) 

Liefert das High-Byte eines Wertes (entspricht also wert 
/256) 
var = RAD (wert) 

Konvertiert einen Wert, der im BogenmaB vorliegt, zu 
Grad. 
var = DEG (wert) 

Konvertiert einen Wert, der im GradmaB vorliegt, ins Bo- 
genmaB. 
van = RBANK (var2) 

Legt die aktuelle Bank in »var1« ab, »var2« hat Iediglich 
Platzhalterfunktion. 
van = RDLINE (var2) 

Legt die letzte bearbeitete Data-Zeile in »var1« ab. 
van = PRGLINE (var2) 

Legt die Nummer der aktuellen Programmzeile in »var1« 
ab. 
van = INKEY (var2) 

Obergibt »var1« die Nummer der zuletzt gedriickten 
Funktionstaste: 

keine Funktionstaste 

1-8 <F1> bis <F8> 

9 < RUN/STOP > 

10 <HELP> 

var = EVAL (string) 

Wertet die in der Zeichen kette enthaltene Formel aus. 
ROUND {stellen, wert) 

Rundet »wert« auf eine Genauigkeit entsprechend der 
Anzahl von »stellen«. 



Zeiger von Supra Basic 


Adresse 


Funktion des Zelgers 


$2D/2E 


Anfang des Programmspeieriers 


$2F/30 


Anfang des Variable nspeic hers 


$2FC-315 


Basic- und Interrupt-Vektoren 


$AO0/A01 


Basic-Warmstart 


$A2E 


Beglnn des VDC Zeichen-RAM 


$A2F 


Begtnn des Attribut-RAM 


$1210/1211 


Ende des Basic-Programmes 


$1212/1213 


Ends des Prog ram m-Speic hers 



Tabelle 1. Diese Zeiger verwendet Supra Basic intern. Sie 
sollten mogfichst nicht verandeii werden. 

var = COT (wert) 

Legt den Cotangens von »wert« (der einen Winkel im Bo- 
genmaB darstellt) in »var« ab. 
var = LG (wert) 

Legt den Logarithmus von »wert«zur Basis 10 in »var« ab, 
var = FRAC (wert) 

Legt die Nachkommastellen von »wert« in »var« ab. 
var = ODD (wert) 

Gibt aus, wenn »wert« gerade ist und -1, wenn er unge- 
rade ist. 
var = MIN wert_1[,wert 2[,..,wert_n]] 

Gibt den kleinsten Wert einer beliebig langen Wertetiste 
an. 
var = MAX wert 1[,wert 2[,,,.wert_n]] 

Gibt den grbfiten Wert einer beliebig langen Werteliste 
aus. 



var = DIV(divicfend,divisor) 

Legt das Ergebnis der Division »dividend« /»divisor« als 
Ganzzahl ohne Nachkommastellen in die Variable »var«. 
var = MOD(dividend, divisor) 

Legt den Rest der Division »dividend« /»divisor« in die Va- 
riable »var«. 
var =$hexzahl 

Wandelt die folgende Hexadezimalzahl in etne Dezimal- 
zahl um. Die Hexadezimalzahl darf maximal 4 Stellen lang 
sein. 
var = %binzahl 

Wandeftdie folgende Binarzahl in eine Dezimalzahl um. 
Die Binarzahl darf maximal 16 Stellen lang sein. 
var = Sdezza hi/form el 

Wandelt den Wert des dezimalen Ausdruckes in einen 
String, der eine hexadezimale Zahl des gleichen Wertes 
enthalt. Die Stringlange betragt zwischen 1 und 4 Zeichen. 
var = #dezzahl/formel 

Wandelt den Wert des dezimalen Ausdruckes in einen 
String, der eine Binarzahl des gleichen Wertes enthalt. Die 
Stringlange betragt zwischen 1 und 16 Zeichen. 



Eingabehinweise 



Tippen Sie das Programm (Listing 1) mit dem MSE ab. Den- 
ken Sie daran, Supra Basic auf Diskette abzuspeichern, be- 
vor Sie den MSE verlassen. Starten Sie Supra Basic mit: 
BOOT "Supra Basic +" 

Nach dem Laden belegt das Programm den Bereich 
4864 ($1300) bis 16146 ($3F12). Die genaue Speicherbele- 
gung konnen Sie Tabelle 2 entnehmen. 

Wegen der Common-Area muB in der Bank 1 der 
Variablen-Beginn auf $2000 hochgesetzt werden. Dabei 
werden alie Variablen gelbscht. Des weiteren simuliert das 
Programm bei der Initialisierung den Befehl NEW. Trotz- 
dem kann es von einem Basic-Program m durch 

GRAPHIC I: BOOT "Supra Basic +" : OLD 

nachgeladen werden. 

Allerdings darf diese Zeile nur bei aktiviertem Supra Ba- 
sic eingegeben werden. Die in Tabelle 1 aufgefuhrten Zei- 



Speicherbelegung 


$0000-$1FFF 


Common Area Bank 


$2000-$3FFF 


Hier Hegt der obere Programmteil 


$4000-$BEFF 


Basic-Programmspeicher 


$BF00-$FEFF 


Zwischenspeicher fur das VDC-RAM 


$FFO0-$FFFF 


Kernel Bereich Bank 1 


$2000-$FEFF 


Variablenspeicher 


$FFO0-$FFFF 


Kerne I bereich 



Tabelle 2. So teilt sich der Speicher unter Supra Basic auf 

ger sollten niemals direkt verandert werden, um eine ein- 
wandfreie Funktion von Supra Basic zu gewahrleisten. 

Der Bereich in der Zeropage wird von Supra Basic nur als 
Zwischen- und Hilfsspeicher fur die verschiedenen Routi- 
nen genutzt und bleibt ansonsten frei. 

Da Supra Basic den Grafik-Speicher fur den 40-Zeichen- 
Bitdschirm selbst benbtigt, ist dieser Grafik-Modus bei akti- 
vierter Erweiterung nicht ansteuerbar, was bei den Mdglich- 
keiien, die die 80-Zeichen-Grafik nun taietet, wohl leichtzu 
verse hmerzen ist. 
Wichtig: 

Supra Basic ist reset-fest. Nach der Initialisierung kann 
es nur durch den Befehl OFF Oder Ausschaiten des Com- 
puters deaktiviert werden. Eine erneute Initialisierung nach 
OFF ist nicht mdgSich. (Martin llse/so) 
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Name 


Supra Basic + 1300 3ff9 


1538 


99 9a 02 bl 66 99 9d 02 


83 


.780 


ae el 20 dO 03 ce e2 20 


b3 












1540 
1548 


99 97 02 88 10 fO aO 40 
8c 00 ff a4 fe 8c 9d 02 


c2 ] 

37 J 


.788 

.790 


ce el 20 a5 63 20 06 18 
85 63 18 ad el 20 69 02 


83 

4b 






1300 


4c 4f 3a a5 30 85 62 a5 


3b 






1308 


2f 4c lb 13 20 92 13 20 


aa 


1550 


ad 97 02 38 e5 fe 8d 97 


Oc 3 


.798 


8d el 2p 90 03 ee e2 20 


a3 






1310 


c6 13 a5 61 18 69 07 90 


ff 


1558 


02 a5 fe 18 6d 98 02 90 


b4 3 


.7aO 


a5 64 20 06 18 85 64 ad 


db 






1318 


02 e6 62 85 61 c5 31 dO 


81 


1560 


03 ee 99 02 8d 98 02 ad 


82 J 


.7a8 


el 20 dO 03 ce e2 20 ce 


50 






1320 


eb a6 62 e4 32 dO e5 fO 


b7 


1568 


9d 02 18 6d 9a 02 bO 2c 


8f ] 


-7b0 


el 20 ee e3 20 dO 03 ee 


4c 






1328 


3b 20 92 13 a9 28 20 c8 


68 


1570 


6d 97 02 bO 27 20 88 86 


e2 J 


.7b8 


e4 20 20 49 18 bO 02 dO 


8e 






1330 


13 aO 04 20 00 43 85 fa 


bf 


1578 


a9 9d 85 70 a9 02 85 71 


03 1 


.7c0 


be a2 03 aO 00 a5 25 c5 


fO 






1336 


dO 03 20 c6 13 20 7a 13 


ad 


1580 


20 4e 87 a9 9a 85 70 a9 


c9 J 


.7c8 


34 dO 06 a5 24 c5 33 fO 


ba 






1340 


c6 fa dO f6 a9 29 20 c8 


8c 


1588 


02 85 71 20 4e 87 a9 97 


a4 ] 


.7dO 


la a5 24 dO 02 c6 25 c6 


58 






1348 


13 20 c6 13 aO 02 20 00 


la 


1590 


85 70 a9 02 85 71 20 4e 


f9 J 


.7d8 


24 20 b7 03 8d 03 ff 9d 


87 






1350 


43 aa cS 20 00 43 65 62 


93 


1598 


87 4c 36 14 4e ed a5 20 


60 J 


.7eO 


el 20 ca 10 ee 20 b5 4b 


c3 






13 58 


85 62 8a 18 65 61 90 02 


5c 


15a0 


3f 4b 4c ac 15 a2 7f dO 


33 J 


-7e8 


4c 5d 17 ad el 20 8d 31 


16 






1360 


e6 62 85 61 c5 33 dO cl 


c2 


15a8 


05 20 af 7a a2 00 8e 00 


5d ] 


.7fO 


11 ad e2 20 8d 32 11 ad 


9e 






1368 


a5 62 c5 34 dO bb 60 48 


33 


15b0 


ff 60 20 05 54 4c ac 15 


Od ] 


.7f8 


e3 20 8d 33 H ad e4 20 


07 






1370 


20 81 14 68 20 32 8e 4c 


c9 


15b8 


20 aO 86 4c ac 15 aO 00 


49 J 


.800 


8d 34 11 4c f2 9d 48 20 


f3 






1378 


d2 13 a5 fa Oa 69 04 a8 


ea 


15cO 


a2 00 8e 00 ff a5 65 dO 


6a ] 


.808 


49 18 bO 18 fO 16 68 dO 


8f 






1380 


20 00 43 aa 88 20 00 43 


d7 


15c8 


02 e6 66 e6 65 a5 fc dO 


b9 J 


.8.10 


16 aa a8 a5 25 c5 lc 90 


6c 






1388 


ca eO ff dO 02 e9 00 4c 


e4 


15dO 


02 c6 fd c6 fc bl fc a2 


24 1 


.818 


Of dO 06 a5 24 c5 lb 90 


c4 






1390 


6f 13 aO 01 20 00 43 85 


eb 


15d8 


00 8e 00 ff 2c 4c 16 10 


bd 1 


.820 


07 4c 3a 4d 68 a9 00 60 


la 






1398 


fc 48 88 20 00 43 85 fb 


07 


15eO 


12 48 bl 65 ae cl 15 8e 


9a ] 


.828 


bd el 20 8d 04 ff 91 24 


5e 






13a0 


Oa 90 08 68 Oa 90 30 a9 


3b 


15e8 


00 ff 91 fc ae d8 15 8e 


Of J 


.830 


8d 03 ff e6 24 dO 02 e6 


ba 






13a8 


25 dO 09 68 Oa 90 04 a9 


Od 


15 fO 


00 ff 68 91 65 a5 fc c5 


3f 1 


.838 


25 e8 eO 04 dO ea a9 80 


96 






13bQ 


24 dO 01 98 85 fd a5 fb 


67 


15 f 8 


fa dO e5 a5 fd e5 fb dO 


20 1 


.840 


60 ae 53 18 86 83 4e f9 


79 






13b8 


20 c8 13 a5 fc 20 c8 13 


dO 


1600 


bf a9 00 8d 00 ff 60 aO 


08 J 


.848 


20 20 57 25 bo 04 ce 53 


f8 






13c0 


a5 fd fO 13 dO 02 a9 2c 


le 


1608 


00 a9 00 8d 00 f f bl fa 


4b J 


.850 


18 18 60 00 a9 00 8d ec 


37 






13o8 


29 7f 48 20 81 14 68 20 


62 


1610 


a2 00 8e 00 ff 2c 4c 16 


15 J 


.858 


20 8d eb 20 20 5d 21 20 


ef 






i3ao 


df 90 a2 40 8e 00 ff 60 


52 


1618 


10 12 48 bl 65 ae Oa 16 


9a J 


.860 


a9 24 49 ff 48 20 5d 21 


ab 






13d8 


20 fl la 20 06 15 eO 01 


Oa 


1620 


8e 00 ff 91 fa ae 11 16 


76 ] 


.868 


68 20 al 24 ee ec 20 dO 


46 






13e0 


fO 60 bO 03 4c 28 7d a5 


d4 


1628 


8e 00 ff 68 91 65 e6 fa 


99 J 


.870 


eb ee eb 20 ad eb 20 c9 


If 






13e8 


fc a4 fd 85 66 84 67 20 


cf 


1630 


dO 02 e6 fb e6 65 dO 02 


lb J 


.878 


40 dO el 60 20 e5 55 20 


6b 






13f0 


9d la dO 06 20 09 lb 4c 


df 


1638 


e6 66 a6 fa e4 fc dO c9 


67 1 


.880 


86 03 f 4d c9 a3 fO 28 


3b 






13 f 8 


3c 14 a9 DO a6 fe 18 65 


36 


1640 


a6 fb e4 fd dO c3 a9 00 


ae J 


.888 


c9 a6 18 fO 23 c9 2c dO 


9b 






1400 


fb bO 46 ca dO f8 85 fa 


If 


1648 


8d 00 ff 60 00 a6 fe 8e 


30 J 


.890 


06 20 81 14 4c 80 03 e9 


f2 






1408 


20 ac 15 20 88 86 20 a5 


50 


1650 


00 ff aO 00 ad ef 03 91 


01 ] 


.898 


3b fO 30 20 ef 77 24 Of 


c5 






1410 


15 a6 fe aO 00 bl fc 91 


fl 


1658 


fa e6 fa dO 02 e6 fb a6 


33 3 


.8a0 


30 da 20 42 8e 20 9a 86 


ef 






l4l8 


64 e8 e4 fb dO f7 98 18 


fO 


1660 


fa e4 fc dO f2 a6 fb e4 


44 3 


.8a8 


20 e5 55 20 00 56 dO cf 


aa 






1420 


65 64 85 64 90 02 e6 65 


25 


1668 


fd dO ec a9 00 8d 00 ff 


aa ] 


.8b0 


08 38 20 8d 92 84 Ob 20 


48 






1428 


ca dO e8 a5 35 85 64 a5 


a5 


1670 


60 20 a5 15 a4 63 cO 02 


59 ] 


.8b8 


fl 87 c9 29 dO 13 28 90 


6c 






1430 


36 85 65 20 09 lb 20 81 


73 


1678 


dO 20 bl 61 85 65 88 bl 


fa ] 


.8cO 


06 8a e5 Ob 90 05 aa e8 


94 






1438 


14 20 e3 86 20 ac 15 ca 


77 


1680 


61 85 64 88 bl 61 fO 12 


dc ] 


8c8 


ca dO 09 20 80 03 4c 7f 


91 






1440 


86 Of 68 68 68 68 4c 56 


id 


1688 


aa 18 65 64 85 64 90 02 


e6 J 


.8d0 


18 4c 6c 79 20 00 56 dO 


56 






1448 


79 20 81 14 4e ed a5 20 


bf 


1690 


e6 65 8a 91 64 c8 a9 ff 


31 1 


.8d8 


ef 4c 28 7d 20 e2 18 4c 


b9 






1450 


5c 79 20 ef 77 a9 2d 8d 


03 


1698 


91 64 a4 63 a9 00 91 61 


94 ] 


8e0 


36 14 20 ee la aa dO fl 


24 






1458 


7e 14 a9 lc 8d 7d 14 a9 


35 


I6a0 


88 10 fb 8d 00 ff 60 aO 


a4 ] 


.8e8 


c4 ee bO ed 8c Oa 19 20 


cb 






1460 


3f 8d 77 14 20 dd 77 a4 


de 


I6a8 


7f 8c 00 ff ac e6 03 cO 


fd ] 


.SfO 


09 88 20 09 lb eO 19 bO 


e5 






1468 


67 a5 66 20 9d la fO 11 


dO 


I6b0 


02 dO 52 bl 61 85 fc 88 


2c ] 


.8f8 


eO 20 81 14 85 63 85 64 


le 






1470 


88 20 a5 15 bl fc a2 3f 


20 


I6b8 


bl 61 85 fb 88 bl 61 fO 


78 ] 


.900 


85 65 8a 48 ad Oa 19 4c 


Oe 






1478 


8e 00 ff 99 2d le 98 dO 


fl 


I6c0 


22 48 18 65 fb 85 fb 90 


b6 ] 


.908 


86 cc 00 a9 00 8d 56 19 


22 






1480 


ef a9 00 8d 00 ff 60 ae 


d4 


I6c8 


02 e6 fc 68 2c If 17 10 


c2 ] 


.910 


aO ff 20 le 2d 20 57 55 


58 






1488 


d5 03 48 ad 00 ff 48 20 


08 


I6d0 


09 91 fb c8 a9 ff 91 fb 


93 1 


.918 


20 81 14 20 57 19 c6 fd 


57 






1490 


81 14 bd fO f7 aa 68 8d 


3a 


I6d8 


dO 09 a5 63 91 fb c8 a5 


6a J 


.920 


2c 56 19 10 01 60 20 ed 


2f 






1498 


00 ff 68 60 20 ee la 20 


eO 


I6e0 


64 91 fb aO 02 bl 63 85 


66 J 


.928 


ff e8 8a e5 fd bO 03 4c 


05 






I4a0 


09 88 a9 00 8d dd 14 8a 


85 


I6e8 


fc 88 bl 63 85 fb 88 bl 


bf : 


-930 


49 14 4a 65 e6 8d Oa 19 


f8 






I4a8 


20 88 86 a8 a2 00 2c dd 


5a 


16 fO 


63 fO 12 18 65 fb 85 fb 


97 : 


-938 


a5 eb 20 03 19 a9 ff 85 


25 






I4b0 


14 30 03 20 87 14 8e be 


72 


16 f 8 


90 02 e6 fc a5 61 91 fb 


86 J 


.940 


fe a6 fc e8 86 fc e4 fd 


cb 






l4b8 


14 98 fO 10 88 a9 00 8d 


47 


1700 


c8 a5 62 91 fb ac e6 03 


2e : 


.948 


90 03 fO 01 60 bd 2d lb 


95 






l4c0 


00 ff bl 16 20 a5 15 91 


96 


1708 


bl 61 aa bl 63 91 61 8a 


a8 ] 


-950 


20 Oe 56 4c 4l 19 00 a9 


c6 






l4e8 


64 98 dO fO 20 09 lb ee 


5f 


1710 


2c If 17 10 02 a9 00 91 


24 ] 


-958 


79 8d 26 03 a9 ef 8d 27 


20 






I4d0 


dd 14 30 03 4c 36 14 20 


2b 


1718 


63 88 10 ec 4c 81 14 00 


82 ] 


.960 


03 ad f5 14 85 fd 60 48 


94 






l4d8 


81 14 4c e3 86 00 86 fb 


6d 


1720 


20 aa 21 a5 83 c9 02 8d 


3c 1 


.968 


a9 01 8d 87 03 20 57 19 


a7 






UeO 


ae f5 14 9d 2d lb ee f5 


95 


1728 


53 18 dO 03 4c 54 18 s2 


29 1 


.970 


68 4e 3f 4d 20 80 03 20 


ca 






l4e8 


14 dO 06 20 57 19 4c ed 


35 


1730 


04 20 52 9e 20 f2 9d 20 


fd ] 


.978 


fl la 20 12 88 aO 00 Oa 


62 






I4f0 


a5 a6 fb 18 60 00 20 ef 


51 


1738 


dc 21 20 49 18 bO 02 dO 


87 1 


.980 


48 a9 30 90 02 a9 31 99 


20 






I4f8 


77 a9 2d 8d 7c 14 a9 Id 


8a 


1740 


01 60 20 ea 92 8d 03 ff 


78 ] 


.988 


Id lb 68 c8 cO 08 90 ef 


d4 






1500 


8d 7d 14 4c '5f 14 20 dd 


ad 


1748 


a5 33 85 24 a5 34 85 25 


e9 i 


-990 


dO 02 a5 16 cO 10 90 e7 


2c 






1508 


77 a5 66 a4 67 85 fc 84 


20 


1750 


38 a5 35 e9 03 85 lb a5 


f9 1 


.998 


a2 10 aO 00 a9 lc 85 16 


28 






1510 


fd 20 09 88 86 fe 60 20 


93 


1758 


36 e9 00 85 lc a2 00 36 


17 ] 


-9a0 


a9 lb 85 17 e6 16 dO 02 


81 






1518 


06 15 20 5c 79 20 ef 77 


84 


1760 


63 86 64 ae e3 20 dO 03 


7e ] 


-9a8 


e6 17 ca fO 06 bl 16 c9 


c4 






1520 


20 dd 77 a5 66 a4 67 20 


2b 


1768 


ce e4 20 ce e3 20 20 49 


dd ] 


-9bO 


30 fO fl aO fe e8 8c dd 


Oe 






1528 


eO 87 a5 fc a4 fd 20 eO 


51 


1770 


18 bO 02 dO ee ee e3 20 


bl 












1530 


87 20 a5 15 aO 02 bl fc 


ae 


1778 


dO 03 ee e4 20 20 41 18 


5a I 


Jstin 


g 1. -SUPRA BASIC+« 
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19b8 


: 14 4c a7 14 20 80 03 eg 


04 


lclO 


: 00 00 00 


00 00 00 00 00 


11 


le68 


; 24 4c 75 le 20 ee la 20 


f6 


19e0 


: 23 90 04 c9 27 90 06 20 


b5 


1018 


: 00 00 00 


00 00 00 00 00 


19 


le70 


: 3d le 20 a9 24 a8 68 85 


2e 


19c8 


: c2 3c 4c da 78 a2 00 86 


cO 


lc20 


: 00 00 00 


00 00 00 00 00 


21 


le78 


: 16 68 85 17 4c d4 84 20 


c4 


19d0 


: Of 48 20 80 03 20 bl la 


48 


lc28 


: 00 00 00 


00 00 00 00 00 


29 


le80 


: 03 88 a5 16 85 fc a5 17 


f8 


19d8 


: bO 01 ca 8e 22 la a2 00 


Ob 


le30 


: 00 00 00 


00 00 00 00 00 


31 


le88 


: 85 fd a9 02 85 83 8a 48 


e6 


19e0 


: 20 c2 3c 68 c9 23 fO 8e 


10 


lc38 


: 00 00 00 


00 00 00 00 00 


39 


le90 


: 18 69 05 8d e7 20 38 e9 


84 


19e8 


; c9 25 fO 59 bO 35 20 80 


el 


lc40 


: 00 00 00 


00 00 00 00 00 


4i 


le98 


: Ob bO 02 a9 00 8d e3 20 


ed 


19f0 


: 03 9d Id lb c9 30 90 14 


f5 


lc48 


: 00 00 00 


00 00 00 00 00 


49 


leaO 


: a9 00 8d e4 20 8d e8 20 


9c 


19f8 


: c9 3a 90 08 c9 4l 90 Oc 


04 


lc50 


: 00 00 00 


00 00 00 00 00 


51 


lea8 


: a5 fe a6 fd 8d el 20 8e 


ba 


laOO 


: C9 47 bO 08 e8 eO 05 dO 


e5 


lc58 


; 00 00 00 


00 00 00 00 00 


59 


lebO 


: e2 20 8d e5 20 8e e6 20 


15 


laOS 


: e5 4c 49 14 20 c7 la bO 


f2 


lc60 


: 00 00 00 


00 00 00 00 00 


61 


leb8 


: 20 b4 If 68 8d e3 20 8d 


9b 


lalO 


: 03 4c 76 80 a9 Id 85 24 


c9 


lc68 


: 00 00 00 


00 00 00 00 00 


69 


lecO 


: e7 20 a9 00 8d e4 20 8d 


bd 


lal8 


: a9 lb 85 25 8a 4c 79 80 


47 


lc70 


: 00 00 00 


00 00 00 00 00 


71 


lec8 


: e8 20 a5 fc a6 fd 18 69 


57 


la20 


: 00 00 00 20 80 03 20 ef 


a5 


1C78 


: 00 00 00 


00 00 00 00 00 


79 


ledO 


: Oa 90 01 e8 8d e5 20 8e 


25 


la28 


: 77 20 ee la 20 d2 b8 8d 


45 


le80 


: 00 00 00 


00 00 00 00 00 


81 


led8 


: e6 20 38 e9 15 bO 06 ca 


9e 


la30 


: Id lb 8e le lb a5 16 20 


ba 


lc88 


: 00 00 00 


00 00 00 00 00 


89 


leeO 


: 10 03 a2 00 8a 8d el 20 


f7 


la38 


: d2 b8 8d If lb 8e 20 lb 


Sa 


lc90 


: 00 00 00 


00 00 00 00 00 


91 


leeS 


: 8e e2 20 4e b4 If a9 08 


74 


la4Q 


: a2 04 4e 9a 19 8e 9b la 


f3 


lc98 


: 00 00 00 


00 00 00 00 00 


99 


lefO 


: 8d 2f Oa a2 14 20 a3 24 


05 


la48 


: 8e 9c la 20 80 03 e8 eO 


34 


IcaO 


: 00 00 00 


00 00 00 00 00 


al 


lefS 


: a9 00 8d 2e Oa 8d 22 35 


ca 


la50 


: 12 fO b6 c9 30 90 10 c9 


lc 


lca8 


: 00 00 00 


00 00 00 00 00 


a9 


lfOO 


: a2 Oc 4c cc cd 20 ee le 


2b 


la58 


32 bO Oc 29 01 6a 2e 9b 


5e 


lobO 


: 00 00 00 


00 00 00 00 00 


bl 


lf08 


: a2 19 20 ab 24 09 80 29 


93 


la60 


■ la 2e 9c la 4c 4b la 20 


c4 


lcb8 


: 00 00 00 00 00 00 00 00 


b9 


If 10 


: bf 8e fO 20 4c a3 24 20 


09 


la68 


: c7 la bO 26 20 6e 86 20 


fd 


IccO 


: 00 00 00 


00 00 00 00 00 


el 


If 18 


: 05 If a2 18 20 ab 24 29 


9b 


la70 


bl la a5 24 85 3d a5 25 


3f 


lcc8 


: 00 00 00 


00 00 00 00 00 


e9 


lf20 


. 7f 20 a3 24 a2 13 a9 00 


86 


la78 


85 3e 20 81 14 20 e2 3c 


la 


lcdO 


: 00 00 00 


00 00 00 00 00 


dl 


lf28 


20 a3 24 aO 40 a2 12 98 


ca 


la80 


a2 f f 8e 22 la ee 87 03 


47 


lcd8 


: 00 00 00 


00 00 00 00 00 


d9 


lf30 


20 a3 24 a9 00 20 al 24 


30 


la88 


e8 20 45 la ce 87 03. 4c 


e3 


IceO 


: 00 00 00 


00 00 00 00 00 


el 


lf38 


ca 20 a3 24 88 10 ee 60 


05 


Ia90 


be la ac 9b la ad 9c la 


ae 


lce8 


: 00 00 00 


00 00 00 00 00 


e9 


lf40 


a2 00 8e fO 20 a2 19 20 


60 


la98 


4e c9 84 00 00 20 eO 87 


7e 


lcfO 


: 00 00 00 


00 00 00 00 00 


fl 


lf48 


ab 24 09 40 29 7f 20 a3 


a6 


laaO 


aO 7f 8c 00 ff aO 02 bl 


93 


lcf8 


: 00 00 00 


00 00 00 00 00 


f9 


lf50 


24 20 Oo oe 20 de 6a 60 


c5 


laa8 


66 99 fb 00 88 10 f 8 a8 


18 


IdOO 


: 00 00 00 


00 00 00 00 00 


01 


lf58 


20 f4 87 eO 25 bO Od 8e 


19 


iabO 


60 a5 3d 8d 20 la a5 3e 


ea 


IdOS 


; 00 00 00 


00 00 00 00 00 


09 


lf60 


e8 03 20 09 88 8a ae e8 


5c 


lab8 


8d 21 la 60 ad 20 la 85 


b8 


ldlO 


: 00 00 00 


00 00 00 00 00 


11 


lf68 


03 4c a3 24 4c 28 7d a9 


4e 


iacO 


3d ad 21 la 85 3e 60 20 


6e 


ldl8 


: 00 00 00 


00 00 00 00 00 


19 


lf70 


01 8d ef 20 20 aa 21 fO 


f5 


lac8 


86 03 90 12 c9 27 bO 04 


d7 


ld20 


: 00 oo oo 


00 00 00 00 00 


21 


lf78 


08 20 86 03 dO 03 4c a3 


30 


iadO 


e9 22 bO Oa c9 4l 90 04 


09 


ld28 


; 00 00 00 


00 00 00 00 00 


29 


lf80 


20 20 86 03 c9 2c fO 05 


7e 


lad8 


c9 5b 90 02 38 60 2c 22 


2f 


ld30 


00 00 00 


00 00 00 00 00 


31 


lf88 


c9 a4 fO 01 60 48 20 80 


c9 


laeQ 


la 30 f9 20 be la 20 ef 


92 


ld38 


00 00 00 


00 00 00 00 00 


39 


lf90 


03 a2 04 20 70 9e 8e e9 


f3 


lae8 


77 20 dd 77 18 60 38 bO 


9c 


ld40 


00 00 00 


00 00 00 00 00 


41 


lf98 


03 68 10 06 20 bl If 4c 


39 


lafO 


01 18 68 aa 68 a8 a5 17 


fd 


ld48 


00 00 00 00 00 00 00 00 


49 


lfaO 


81 If 20 f2 9d 20 do 21 


aa 


laf8 . 


48 a5 16 48 98 48 8a 48 


28 


ld50 


00 00 00 


00 00 00 00 00 


51 


lfa8 


ae e9 03 20 &3 20 4c 81 


7f 


IbQO . 


bO 01 60 20 da 77 4c 15 


12 


ld58 


00 00 00 


00 00 00 00 00 


59 


lfbO 


If 20 dc 21 a9 00 8d dd 


c7 


Ib08 : 


88 68 18 69 01 85 24 68 


95 


ld60 


00 00 00 


00 00 00 00 00 


61 


lfb8 


20 8d de 20 8d df 20 ad 


Oe 


lblO : 


69 00 85 25 68 85 16 68 


5b 


ld68 


00 00 00 


00 00 00 00 00 


69 


IfcO 


e5 20 ac e6 20 38 ed el 


fe 


lbl8 


85 17 6c 24 00 00 00 00 


e9 


ld70 


00 00 00 


00 00 00 00 00 


71 


lfc8 


20 aa 98 ed e2 20 a8 08 


03 


lb20 


00 00 00 00 00 00 00 00 


21 


ld78 


00 00 00 


00 00 00 00 00 


79 


lfdO 


8a 28 20 9c 9d 8d d3 20 


eO 


lb28 


00 00 00 00 00 00 00 00 


29 


ld80 


00 00 00 


00 00 00 00 00 


81 


lfd8 


8c d4 20 10 03 ee dd 20 


38 


lb30 . 


00 00 00 00 00 00 00 00 


31 


ld88 


00 00 00 


00 00 00 00 00 


89 


IfcO 


ad e7 20 ac e8 20 38 ed 


6b 


Ib38 


00 00 00 00 00 00 00 00 


39 


ld90 


00 00 00 


00 00 00 00 00 


91 


lfe8 


e3 20 aa 98 ed e4 20 a8 


71 


lb40 


00 00 00 00 00 00 00 00 


41 


ld98 


00 00 00 


00 00 00 00 00 


99 


IffO 


08 8a 28 20 9o 9d 8d d5 


e4 


lb48 


00 00 00 00 00 00 00 00 


49 


IdaO 


00 00 00 


00 00 00 00 00 


al 


lff8 


20 8c d6 20 10 03 ee de 


ab 


lb50 


00 00 00 00 00 00 00 00 


51 


lda8 


00 00 00 


00 00 00 00 00 


a9 


2000 


20 cc d4 20 90 Oc dO 05 


76 


lb?8 


00 00 00 00 00 00 00 00 


59 


ldbO 


00 00 00 


00 00 00 00 00 


bl 


2008 


cd d3 20 90 05 a9 02 8d 


9a 


lb60 


00 00 00 00 00 00 00 00 


61 


ldb8 . 


00 00 00 


00 00 00 00 00 


b9 


2010 


df 20 ad df 20 49 02 8d 


d6 


lb68 . 


00 00 00 00 00 00 00 00 


69 


IdcO : 


00 00 00 


00 00 00 00 00 


cl 


2018 


eO 20 aa bd d3 20 be d4 


45 


Ib70 . 


00 00 00 00 00 00 00 00 


71 


ldcS . 


00 00 00 


00 00 00 00 00 


e9 


2020 


20 Oa 8d d? 20 98 2a 8d 


2e 


Ib78 : 


00 00 00 00 00 00 00 00 


79 


lddO : 


00 00 00 


00 00 00 00 00 


dl 


2028 


d8 20 a8 ad d? 20 ae df 


e9 


lb80 : 


00 00 00 00 00 00 00 00 


81 


ldd8 : 


00 00 00 


00 00 00 00 00 


d9 


2030 


20 38 fd d3 20 8d db 20 


84 


ib88 : 


00 00 00 00 00 00 00 00 


89 


IdeO : 


00 00 00 


00 00 00 00 00 


el 


2038 


98 fd d4 20 8d de 20 a8 


9a 


lb90 : 


00 00 00 00 00 00 00 00 


91 


lde8 : 


00 00 00 


00 00 00 00 00 


e9 


2040 


ad db 20 38 fd d3 20 8d 


04 


lb98 : 


00 00 00 00 00 00 00 00 


99 


ldfO : 


00 00 00 


00 00 00 00 00 


fl 


2048 


d9 20 98 fd d4 20 8d da 


51 


IbaO : 


00 00 00 00 00 00 00 00 


al 


ldf8 : 


00 00 00 


00 00 00 00 00 


f9 


2050 . 


20 4c 76 20 20 6c 21 ad 


7d 


lba8 : 


00 00 00 00 00 00 00 00 


a9 


leOO : 


00 00 00 


00 00 00 00 00 


01 


2058 : 


dc 20 30 3e 20 8b 21 ad 


56 


lbbO : 


00 00 00 00 00 00 00 00 


bl 


le08 : 


00 00 00 


00 00 00 DO 00 


09 


2060 . 


d9 20 ac da 20 18 6d db 


00 


lbb8 : 


00 00 00 00 00 00 00 00 


b9 


lelO : 


00 00 00 


00 00 00 00 00 


11 


2068 : 


20 8d db 20 98 6d dc 20 


f2 


IbcO : 


00 00 00 00 00 00 00 00 


cl 


lel8 : 


00 00 00 


00 00 00 00 00 


19 


2070 : 


8d dc 20 20 a3 20 ae df 


2d 


lbc8 : 


00 00 00 00 00 00 00 00 


c9 


le20 : 


00 00 00 


00 00 00 00 00 


21 


2078 : 


20 bd el 20 dd e5 20 dO 


22 


IbdO : 


00 00 00 00 00 00 00 00 


dl 


le28 i 


00 00 00 00 00 20 03 88 


47 


2080 : 


d3 bd e2 20 dd e6 20 dO 


26 


lbd8 : 


00 00 00 00 00 00 00 00 


d9 


le30 : 


86 fc 20 


3d le a5 fc 4c 


80 


2088 ; 


cb 20 f2 9d ad ef 20 dO 


50 


IbeO : 


00 00 00 00 00 00 00 00 


el 


le38 : 


al 24 4c 


28 7d 20 40 le 


la 


2090 : 


01 60 a9 00 8d ef 20 4c 


9d 


lbe8 : 


00 00 00 00 00 00 00 00 


e9 


le40 : 


a2 12 a5 17 20 a3 24 e8 


b9 


2098 : 


a3 20 ad d7 20 ac d8 20 


bd 


lbfO : 


00 00 00 00 00 00 00 00 


fl 


le48 : 


a5 16 4c 


ce cd 20 ee la 


73 


20aO : 


4c 65 20 20 f9 20 ad 6b 


d9 


lbf8 : 


00 00 00 00 00 00 00 00 


f9 


le50 : 


98 4c 75 


le 20 ee la 4c 


aa 


20a8 : 


11 Od 6e 11 fO 23 20 76 


13 


loOO : 


00 00 00 00 00 00 00 00 


01 


le58 : 


75 le 20 


ee la aa dO da 


b2 


20b0 : 


21 20 f9 20 4c 7f 21 ad 


04 


1C08 : 


00 00 00 00 00 00 00 00 


09 


le60 : 


98 c9 25 


bO d5 aa 20 ab 


c7 


20b8 : 


e4 20 dO 13 a9 c7 cd e3 


lb 



78 
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TOOLS 




20cQ 


20 90 Oc a9 7f ed el 20 


90 


2318 ■ 


23 4c 4b 23 a9 68 aO 01 


fb ; 


!570 : 


8d 01 Oa 78 20 56 eO 58 


f8 




20c8 


a9 02 ed e2 20 bO 02 38 


4a 


2320 


20 70 9d 9d 31 11 98 9d 


cd ; 


578 : 


28 fO 10 20 80 03 a9 2b 


3e 




20dO 


60 18 60 00 00 00 00 00 


55 


2328 


32 11 a2 03 bd 54 11 9d 


ea ; 


580 : 


8d 19 03 a9 15 8d 18 03 


b4 




20d8 


00 00 00 00 00 00 00 09 


d9 


2330 


58 11 ea 10 f? a9 90 20 


15 ; 


!588 : 


4c 30 30 20 81 14 ad 06 


78 




20e0 


00 00 00 00 00 00 00 00 


el 


2338 


f3 9a a2 07 bd 54 11 9d 


oo ; 


>590 : 


d5 29 fO 09 04 8d 06 d5 


c8 




20e8 


00 00 00 00 00 00 00 00 


e9 


2340 


60 11 ca 10 f? 20 50 67 


6e ; 


!598 : 


a9 60 8d 00 13 20 a3 25 


eO 




20 fO 


00 7f bf df ef f7 fb fd 


46 


2348 


4c f 2 9d a2 02 20 le 9e 


aO : 


!5aO : 


4c ca 40 20 64 3b a9 e2 


f2 




20f8 


fe 20 b7 20 bO d3 ae e3 


le 


2350 


8a dO 03 4c 28 7d 8e 20 


76 ; 


!5a6 : 


20 af 02 88 a2 7f a'9 24 


47 




2100 


20 ae e2 20 ad el 20 48 


2f 


2358 


12 18 ad 20 12 6d 5c 11 


06 i 


!5bO : 


4c af 02 20 81 14 ad Oe 


e4 




2108 


29 07 8d ed 20 68 4a 4a 


d9 


2360 


8d 5c 11 90 03 ee 5d 11 


bi ; 


!5b8 : 


dc 09 80 8d Oe de ad Of 


87 




2110 


4a 18 7d e8 21 48 98 29 


ec 


2368 


a2 2d aO 2b 20 7c 9d bO 


ec ; 


!5eO : 


de 29 7f 8d Of dc 60 20 


5c 




2118 


Of aa 68 18 7d eb 21 8d 


70 


2370 


09 20 50 67 20 bl If 4c 


2f ; 


!5c8 : 


b3 25 a2 03 bd 08 dc 9d 


e2 




2120 


ee 20 b9 fb 21 69 00 8d 


83 


2378 


59 23 aO 2d 20 52 67 4c 


fb ; 


25dO : 


30 26 ea 10 f7 aO 03 a2 


9e 




2128 


eb 20 20 5d 21 20 a9 24 


d9 


2380 


bl If a9 00 20 aa 21 a2 


4c ; 


>5d8 


00 b9 30 26 48 29 fO 4a 


ac 




2130- 


ae ed 20 a4 83 fO lb eO 


If 


2388 


If 20 6d 9e a2 2b 20 52 


8f ; 


25eQ 


4a 4a 4a 9d 34 26 e8 68 


7f 




2138 


02 fO Ob 90 Of 3d lc 9d 


Oe 


2390 


9e 20 06 9e 8c 54 11 8d 


5e : 


25e8 


29 Of 9d 34 26 e8 88 10 


73 




2140 


■ a8 fO 02 aO 01 60 5d lc 


b6 


2398 


55 11 20 le 9e eO 02 90 


ic ; 


>5fO 


e8 2c 33 26 10 13 ad 34 


39 




2148 


9d 4c 55 21 id lc 9d 4c 


47 


23a0 


03 4c 28 7d 8e 6c 11 8a 


29 ; 


>5f8 


26 29 01 18 69 01 8d 34 


33 




2150 


55 21 3d fl 20 48 20 5d 


43 


23a8 


48 20 89 63 68 dO le fO 


2e ; 


2600 


26 ad 35 26 69 02 8d 35 


56 




2158 


21 68 4c al 24 a2 12 ad 


fO 


23b0 


03 20 Ob 64 20 bl If ad 


7a ; 


2608 


26 ad 35 26 c9 Oa 90 06 


52 




2160 


eb 20 20 a3 24 e8 ad ec 


f2 


23b8 


4e 11 dO f 5 a2 04 bd 5b 


7a ; 


2610 


38 e9 Oa ee 34 26 3d 35 


b2 




2168 


20 4c a3 24 ad df 20 dO 


18 


23c0 


11 9d 30 11 ca dO f7 8e 


fe ; 


2618 


26 ad 34 26 o9 02 dO Of 


« 




2170 


If ae dd 20 dO 09 ee el 


37 


23c8 


6c 11 60 a6 83 eO 02 90 


12 ; 


2620 


ad ^ 26 c9 04 dO 08 a9 


65 




2178 


20 dO 03 ee e2 20 60 ad 


ab 


23d0 


08 a2 00 8e 6e 11 4e 28 


cc : 


3628 


00 8d 34 26 8d 35 26 60 


9d 




2180 


el 20 dO 03 ce e2 20 ce 


28 


23d8 


7d a2 00 ad 49 11 4a 90 


c4 


2630 


00 00 00 00 00 00 00 00 


31 




2188 


el 20 60 ac df 20 dO el 


2d 


23e0 


02 a2 02 bd 60 11 8d 5a 


e5 


2638 


00 00 00 00 00 20 e7 25 


a3 




2190 


ae de 20 dO 09 ee e3 20 


a5 


23e8 


11 bd 61 11 8d 5b 11 a9 


9e 


2640 


20 52 14 a6 fb eO 07 fO 


28 




2198 


dO 03 ee e4 20 60 ad e3 


c5 


23f0 


00 a2 03 9d 56 11 ca 10 


ef 


2648 


03 4c 28 7d 20 ae 15 aO 


28 




21a0 


20 dO 03 ce e4 20 ce e3 


15 


23 fa 


fa a2 07 bd 31 11 48 ca 


Of 


2650 


02 a9 00 20 9c 26 Oa Oa 


62 




21a8 


20 60 ae fO 20 dO 03 4c 


ef 


2400 


10 f9 20 bl If a2 00 68 


23 


2658 


Oa Oa 20 9c 26 99 31 26 


43 




21b0 


79 aO a2 01 86 83 8d ee 


db 


2408 


9d 31 11 e8 eO 08 dO f7 


21 


2660 


88 10 ee ad 33 26 c9 20 


2d 




21b8 


20 20 86 03 fO 13 c9 2c 


11 


2410 


ad 5a 11 dO 05 ce 5b 11 


9f ; 


2668 


90 02 e9 06 c9 10 90 05 


9e 




21c0 


fO Of ad ee 20 fO 07 20 


67 


2418 


30 a2 ee 5a 11 a2 25 aO 


94 


2670 


e9 06 8d 33 26 c9 18 bO 


99 




21c8 


86 03 c9 a4 fO Od 20 f4 


b9 


2420 


lb ad 49 11 4a 90 02 aO 


f9 I 


2678 


20 c9 Oc 90 05 69 73 8d 


16 




21d0 


87 eO 03 9D 03 4c 28 7d 


c8 


2428 


19 a9 00 4a 48 20 6d 9d 


d6 


2680 


3} 26 a2 03 bd 30 26 9d 


01 




21d8 


86 83 e8 60 a2 07 bd 31 


22 


2430 


9d 31 11 98 9d 32 11 68 


3e ; 


2688 


08 dc ea dO f7 8a a2 06 


35 




21e0 


11 9d el 20 ca 10 f7 60 


Oa 


2438 


90 02 09 aO e8 e8 aO 19 


aa , 


2690 


20 9c 26 8d 08 dc 4e c7 


62 




21e8 


•00 20 40 00 50 aO fO 40 


57 


2440 


4e 49 11 90 02 aO lb 2e 


77 


2698 


25 4c 28 7d 85 fb bd 2d 


27 




21f0 


90 eO 30 80 dO 20 70 cO 


5e 


2448 


49 11 eO 27 fO dd a2 06 


eb 


26aO 


lc e8 20 90 03 bO a2 e9 


5f 




21f8 


10 60 bO 00 00 00 00 01 


67 


2450 


Oa fO bd 90 08 fe 31 11 


b3 


26a8 


2f 05 fb 60 20 c7 25 a2 


7f 




2200 


01 01 02 02 02 03 03 03 


8d 


2458 


dO 03 fe 32 11 Oa ca ea 


d2 


26bO 


00 aO 00 bd 34 26 18 69 


60 




2208 


04 04 04 05 05 05 05 06 


49 


2460 


10 fl 30 95 a2 la 20 ab 


fa 


26b8 


30 99 2d lb e8 c8 bd 34 


98 




2210 


06 06 07 07 07 08 08 08 


9d 


2468 


24 29 Of 85 fc 20 91 24 


f5 


26c0 


26 18 69 30 99 2d lb a9 


15 




2218 


09 09 09 Oa Oa Oa Oa Ob 


59 


2470 


86 fd 20 5c 79 20 91 24 


bO 


26e8 


3a c8 99 2d lb c8 e8 eO 


dO 




2220 


Ob Ob Oe Oc Oc Od Od Od 


ad 


2478 


18 8a 69 68 a2 23 20 a3 


48 


26dO 


06 dO eO a9 2e 99 2c lb 


42 




2228 


Oe Oe Oe Of Of Of Of 10 


69 


2480 


24 a6 fd bd 4c 6a Oa Oa 


83 


26d8 


e8 bd 34 26 18 69 30 99 


31 




2230 


10 10 11 11 11 12 12 12 


bd 


2488 


Oa Oa 05 fc a2 la 4c a3 


ec 


26eO 


2d lb a9 Oa 85 fd 4c 56 


6d 




2238 


13 13 13 14 14 14 14 15 


79 


2490 


24 20 f4 87 eO 11 bO 06 


58 


26e6 


2d a9 ff aO 00 a6 dl fO 


5c 




2240 


15 15 16 16 16 17 17 17 


cd 


2498 


eO 00 fO 02 ca 60 4c 28 


26 


26fO 


09 18 79 00 10 c8 c5 d2 


68 




2248 


18 18 18 19 19 19 19 la 


89 


24a0 


7d a2 If 20 45 a8 4c ec 


9f 


26f8 


90 f7 4c d4 84 20 ef 77 


29 




2250 


la la lb lb lb lc lc lc 


dd 


24a8 


cd a2 If 20 45 a8 4c da 


13 


5700 


• 24 Of 10 06 20 7e 18 20 


f7 




2258 


Id Id Id le le le le If 


99 


24b0 


cd ae fO 20 fO 03 4c 58 


Id 


2708 


: ef 77 20 da 77 20 15 88 


f4 




2260 


If If 20 20 20 21 21 21 


ed 


24b8 


69 4c 79 aO 20 f 1 la 20 


f4 


=710 


: 4c da 6b aO f f 20 le 2d 


8c 




2268 


22 22 22 23 23 23 23 24 


a8 


24e0 


f7 87 eO 02 90 10 f 03 


47 


2718 


: a9 2d 8d 7c 14 a9 lb 8d 


61 




2270 


24 24 25 25 25 26 26 26 


fd 


24c8 


4c 28 7d 20 57 25 90 02 


71 


2720 


: 7d 14 20 5f 14 a6 fb fO 


e4 




2278 


27 27 27 28 28 28 28 29 


b8 


24d0 


aO 00 a9 00 fO Oa 8a Oa 


78 


2728 


: 27 a9 00 9d 2d lb a5 3d 


94 




2280 


29 29 2a 2a 2a 2b 2b 2b 


Od 


24d8 


aa bd el 20 a8 bd e2 20 


21 


2730 


; 8d 53 27 a5 3e 8d 54 27 


d5 




2288 


2c 2c 2c 2d 2d 2d 2d 2e 


c8 


24e0 


aa 20 09 lb 8a 18 4c c9 


6e 


2738 


: a9 2d 85 3d a9 lb 85 3e 


87 




2290 


2e 2e 2f 2f 2f 30 30 30 


Id 


24e8 


84 20 2d 25 2c 00 d6 10 


ab 


2740 


: 20 Oa 43 20 ef 77 ad 53 


52 




2298 


31 31 31 32 32 32 32 33 


d8 


24f0 


fb ad 01 d6 a2 3f 8e 00 


3b 


2748 


: 27 85 3d ad 54 27 85 3e 


48 




22aO 


33 33 34 34 34 35 35 35 


2d 


24f8 


f f 91 f c a2 00 8e 00 f f 


c8 


2750 


; 4e 57 19 00 00 a5 00 09 


cd 




22a8 


36 36 36 37 37 37 37 38 


e8 


2500 


c8 dO e9 e6 fd a5 fd c5 


18 


2758 


: 40 85 00 a5 01 29 bf 85 


73 




22b0 


38 38 39 39 39 3a 3a 3a 


3d 


2508 


fe dO el 60 20 2d 25 a2 


38 


2760 


: 01 60 a5 00 29 bf 85 00 


al 




22b8 


3b 3b 3b 3c 3c 3c 3c 3d 


f8 


2510 


3f 8e 00 ff bl fc 20 ae 


73 


2768 


r 60 a9 ff dO 02 a9 00 8d 


3f 




22e0 


3d 3d 3e a9 00 20 aa 21 


4f 


2518 


15 2c 00 d6 10 fb 8d 01 


37 


2770 


: b2 27 a2 b3 aO 27 20 66 


65 




22c8 


a2 If 20 52 9e 20 06 9e 


8c 


2520 


d6 c8 dO eb e6 fd a5 fd 


fd 


2778 


: af 20 86 03 fO 2d c9 29 


2b 




22d0 


8c 54 11 8d 55 11 20 06 


e7 


2528 


e5 fe dO e3 60 20 86 03 


44 


2780 


: fO 29 20 5c 79 c9 2c fO 


11 




22d8 


9e 8c 56 11 bO 09 ad 54 


27 


2530 


fO 06 20 12 88 4c 3e 25 


94 


2788 


: 06 20 d7 77 4c 94 27 aO 


ca 




22e0 


11 8d 56 11 ad 55 11 8d 


54 


2538 


a9 bf aO 00 85 fd 84 fe 


3d 


2790 


: 00 20 d4 84 a9 b3 aO 27 


6f 




22e8 


57 11 20 06 9e 8c 5c 11 


73 


2540 


18 69 40 85 fe a9 00 a2 


50 


2798 


: 20 54 af 08 2c b2 27 10 


e4 




22f0 


8d 5d 11 20 06 9e 8c 5e 


b8 


2548 


12 20 a3 24 e8 20 ce cd 


36 


27a0 


: 05 28 bO d5 90 cc 28 90 


dl 




22f8 


11 8d 5f 11 20 06 9e 85 


82 


2550 


a8 a2 If 8e 00 d6 60 a2 


60 










2300 


77 98 a4 77 20 77 9a a2 


49 


2558 


03 86 83 20 b7 20 bO 04 


ea 










2308 


2d aO 2b 20 7c 9d 90 06 


57 


2560 


20 a3 20 18 60 08 20 51 


e6 










2310 


20 lc 23 4c 4b 23 20 2a 


33 


2568 


42 a9 03 8d 00 Oa a9 40 


69 


Llstln 
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C128 



27a8 


: dO bO c? a9 b3 aO 27 4c 


6d 


2a00 


c9 22 dO 08 a4 fb fO 04 


05 


2e58 


: b8 2c 3d a5 2e 59 ba 2e fb 


27b0 


: 63 af 00 00 00 00 00 00 


eb 


2a08 


20 80 03 98 9d 2d lb e8 


be 


2c60 


: 99 ba 2e 20 d8 cd 24 83 f9 


27b8 


: 20 ee la 98 29 01 49 01 


ab 


2al0 


a8 dO ea a5 2e a6 2d c8 


ee 


2c68 


; 10 06 ae b8 2c 3d ad 2e fa 


27e0 


: a8 88 20 09 lb 98 18 4c 


45 


2al8 


dO 23 ad 23 30 fO 01 60 


99 


2c70 


: c8 59 ba 2c 99 ba 2c 20 79 


27c8 


: 3c 79 20 ee la aa dO 04 


e9 


2a20 


20 98 55 aO 02 20 ec 42 


4f 


2c78 


: 5d 21 88 b9 ba 2c 20 ca e2 


27d0 


: cO Oa 90 03 4c 28 7d 8e 


2f 


2a28 


aa c8 20 ee 42 20 25 51 


38 


2c80 


: cd c8 b9 ba 2c 20 ec cd Oa 


27d8 


: la 28 8c lb 28 20 5c 79 


75 


2a30 


20 b5 4b aO 00 20 ec 42 


4b 


2c88 


: c8 cO 10 fO 11 a9 50 18 a2 


27e0 


: 20 d7 77 20 09 lb ae la 


26 


2a38 


aa c8 20 ec 42 85 62 86 


d3 


2c90 


: 6d ec 20 90 03 ee eb 20 25 


27e8 


: 28 fO 08 20 17 8b ce la 


cc 


2a40 


61 20 ee 42 dO 15 8d 23 


67 


2c98 


• 8d ec 20 4c 4d 2c e6 83 06 


27 fO 


: 28 dO f8 20 51 af 08 a9 


c8 


2a48 


30 60 c8 e8 bd 2d lb fO 


8b 


2ca0 


: e6 83 4c 95 2b 00 80 eO 44 


27f8 


: 76 aO 8f 20 5d af 20 lb 


bO 


2a50 


c9 20 ec 42 dd 2d lb fO 


42 


2c a8 


eO fO f8 fc fe ff 7f 3f 4a 


2800 


: af 20 2d af ae lb 28 fO 


47 


2a58 


fl dO 29 88 84 fa aO 04 


b7 


2cbO 


• If Of 07 03 01 00 00 00 89 


2808 


: 08 20 38 8b ce lb 28 dO 


a8 


2a60 


a2 00 20 ec 42 fO ee c9 


la 


2cb8 


• 00 00 00 00 00 00. 00 00 b9 


2810 


: f8 28 90 03 20 33 af 4c 


94 


2a68 


22 dO 06 a9 01 45 fa 85 


da 


2ec0 


00 00 00 00 00 00 00 00 cl 


2818 


: 4b af 00 00 20 ee la 20 


5d 


2a70 


fa a5 fb c5 fa dO Od 88 


70 


2ec8 


00 00 48 68 30 12 c9 20 e2 


2820 


: 09 88 86 fd 20 3d le aO 


74 


2a78 


20 ec 42 c8 e9 fe fO 04 


18 


2cd0 


90 Ob e9 60 90 04 29 df f2 


2828 


: 00 a2 If e4 f d dO 10 f 


62 


2a80 


e9 ce dO cd c8 dO 39 60 


d9 


2cd8 - 


bO 02 29 3f 60 09 80 60 cd 


2830 


: 03 20 fl la a9 2d 85 16 


49 


2a88 


a9 00, fO Ob 85 2e a9 00 


3f 


2ce0 


29 7f c9 20 90 09 c9 7f b7 


2838 


: a9 lc 85 17 4e 61 2d 20 


f8 


2a90 


85 2d a9 00 8d 89 2a 60 


a5 


2ce8 


dO 02 a9 5e 09 40 60 09 16 


28-40 


: da cd 99 2d lc c8 dO e3 


20 


2a98 


ad 89 2a dO Oa a5 2d 8d 


4e 


2cf0 


cO 60 20 12 88 So 7c 14 32 


2848 


: 20 55 14 a4 fb 84 fd 88 


99 


2aa0 


8f 2a a5 2e 8d 89 2a 60 


02 


2cf8 


8d 7d 14 20 87 14 8e 77 8f 


2850 


: b9 2d lc 20 ca 2c 99 2d 


7a 


2aa8 


20 98 2a 20 35 2a 85 2d 


c2 


2d00 


14 20 5e 79 20 ef 77 4c 63 


2858 


: lc 98 dO f3 fO d3 20 55 


4e 


2abO 


84 2e 4c 2c 91 fO 18 20 


25 


2d08 


64 14 20 55 14 a9 00 a6 05 


2860 


: 14 a4 fb 84 fd 88 b9 2d 


bb 


2ab8 


12 88 e6 16 dO 02 e6 17 


72 


2dl0 


fb 9d 2d lc a9 2d 85 61 86 


2868 


: lc 20 74 28 99 2d lc 98 


5b 


2ac0 


20 64 50 20 98 2a a5 61 


5f 


2dl8 


a9 lc 85 62 aO 00 85 fd 99 


2870 


: dO f3 fO bd c9 5e fO le 


bd 


2ac8 


85 2d a5 62 85 2e 60 20 


25 


2d20 


ad 27 03 c9 14 dO 03 4c c7 


2878 


: c9 20 bO 03 69 40 60 c9 


8c 


2adO 


d5 2a 4c c3 2a ad 10 12 


ba 


2d28 


bO 2d a9 de 8d 26 03 a9 le 


2880 


. 40 90 fb c9 60 bO 03 69 


ab 


2ad8 


ac 11 12 38 e9 02 bO 01 


Oe 


2d30 


14 8d 27 03 a9 00 8d f5 f2 


2888 


' 80 60 c9 80 90 ee c9 cO 


e4 


2ae0 


88 85 61 84 62 60 fO 16 


2d 


2d38 


14 98 fO Oc 30 Oa a5 fd 3c 


2890 


90 f5 18 69 cO 60 a9 ff 


04 


2ae8 


c9 f9 fO 01 60 20 .45 a8 


78 


2d40 


20 32 8e 20 04 56 aO 04 9e 


2898 


■ 60 00 a9 ff dO 02 a9 00 


26 


2af0 


a2 4c bd a8 ee 9d 00 10 


37 


2d48 


cO ff fO a5 84 4b 84 11 ef 


28a0 


8d 99 28 20 12 88 20 4f 


8c 


2af8 


ca 10 f7 4c 80 03 aO 01 


f6 


2d50 


20 44 51 20 57 19 20 fl 8d 


28a8 


14 20 3d le aO 00 a2 If 


b2 


2b00 


98 91 2d 20 4f 4f 4c 82 


56 


2d 58 


la a9 2d 85 16 a9 lb 85 69 


28b0 


e4 fb dO 01 60 b9 2d lc 


87 


2b08 


4f 20 45 a8 4c 6f cd 20 


85 


2d60 


17 a2 ff 8e dd l4 a6 fd af 


28b8 


2c 99 28 10 03 20 ca 2c 


72 


2bl0 


45 a8 4o 9f cd d8 20 3d 


4f 


2d68 


4c a7 14 20 ee la 85 62 2c 


28c0 


20 cc cd c8 dO ea 20 ^ 


62 


2bl8 


f6 c9 ff dO 10 20 al 3a 


Oa 


2d70 


84 61 20 09 lb aO 02 20 ed 


28e8 


14 a4 fb 98 fO Ob 88 b9 


3d 


2b20 


a9 40 8d 18 03 a9 fa 8d 


d4 


2d78 


ee 42 aa c8 20 ec 42 4c 54 


28d0 


2d lc 29 7f c9 20 fO f3 


8f 


2b28 


19 03 20 36 30 4c 40 fa 


ee 


2d80 


le 2d 20 12 88 8d la 12 01 


28d8 


c8 84 fd 4c 31 28 20 55 


6b 


2b30 


a9 00 dO 02 a9 ff 8d If 


5d 


2d88 


8c 19 12 60 dO Ob 20 c2 9d 


28e0 


14 a4 fb fO f4 88 4e d9 


dc 


2b38 


17 20 fc 8b 20 5c 79 20 


lb 


2d90 


3c a9 ff 8d 22 Oa 4c 80 f7 


28e8 


28 20 55 14 a4 fb fO e9 


ba 


2b40 


d7 77 2c If 17 30 14 20 


45 


2d98 


03 c9 91 dO 04 a9 00 fO 6e 


28f0 


aO 00 a2 01 20 Of 29 4c 


11 


2b48 


f9 8b 20 5b 2b a9 5e aO 


35 


2da0 


f2 c9 fe dO Ob 20 80 03 Oa 


28f8 


d9 28 20 55 14 a2 ff aO 


3Q 


2b50 


00 20 24 8a a9 59 aO 00 


a3 


2da8 


c9 43 dO 04 a9 40 dO e3 6f 


2900 


00 e8 e4 fb fO d3 bd 2d 


2c 


2b58 


4c 2e 88 a9 59 aO 00 20 


ed 


2db0 


4c 6c 79 a2 f f dO 02 a2 b9 


2908 


lc 29 7f c9 20 fO f2 e4 


fl 


2b60 


le 8a 4e fb 8c 20 fc 8b 


2b 


2db8 


00 8e ed 2d 20 81 14 20 "bf 


2910 


fb fO c6 bd 2d lc 99 2d 


61 


2b68 


20 fb 8e a9 59 aO 00 4c 


11 


2dc0 


bd ff a2 04 aO 07 20 ba de 


2918 


lc e8 e8 dO f2 fO ba 20 


d6 


2b70 


2e 88 20 aa 21 20 Of 88 


aO 


2dc8 , 


ff 20 cO ff a2 00 20 e9 46 


2920 


ee la ae d5 03 aO 00 a9 


Oa 


2b78 


8c b5 2e 8d b6 2c 98 29 


Id 


2dd0 : 


ff 20 86 03 2c ed 2d 30 29 


2928 


16 20 74 ff 48 ae d5 03 


c3 


2b80 


07 8d b8 2e 20 09 88 8e 


8b 


2dd8 : 


06 20 e2 50 4c e2 2d 20 82 


2930 


c8 a9 16 20 74 ff aa 68 


19 


2b88 


b7 2e 20 4f l4 a5 fb fO 


88 


2de0 : 


57 55 20 98 ^ a9 00 20 eO 


2938 


a8 4e el 24 20 12 88 84 


el 


2b90 


2a a2 00 fO 27 ae b9 2c 


51 


2de8 : 


c3 ff 4c cc ff 00 20 f4 c2 


2940 


fa 85 fb 20 Of 88 a2 fa 


b5 


2b98 


ad b5 2c 18 69 08 8d b5 


a6 


2df0 : 


87 8e ee 03 20 09 88 8e 64 


2948 


8e b9 02 48 98 aO 00 78 


be 


2baO 


2c 90 03 ee b6 2c a9 02 


2a 


2df8 : 


c5 2d ad ee 03 8d c3 2d a3 


2950 


ae d5 03 20 77 f f c8 68 


19 


2ba8 


cd b6 2c 90 Oe dO 07 a9 


c4 


2eOO : 


60 ad 10 12 ae 11 12 38 a9 


2958 


ae d5 03 20 77 ff 58 60 


4f 


2bb0 


78 cd b5 2c 90 05 e8 e4 


aO 


2e08 : 


e5 2d bO 01 ca 18 69 01 e5 


2960 


4c 28 7d dO 03 4c 24 ca 


f2 


2bb8 


fb 90 01 60 8e b9 2c bd 


2b 


2elO : 


90 01 e8 a8 8a 38 e5 2e ce 


2968 


20 f4 87 eO 19 bO fl 86 


ec 


2b cO 


2d lc 20 ca 2c a2 00 86 


42 


2el8 : 


4c e5 24 ac d5 03 4c d4 46 


2970 


fc 20 86 03 fO Oe 20 09 


90 


2bc8 


fe Oa 26 fe Oa 26 fe Oa 


17 


2e20 : 


84 20 el a7 dO 17 78 a9 Id 


2978 


88 eO 19 bO e3 e4 fc 90 


47 


2bdO 


26 fe 85 fd e6 83 a2 01 


ab 


2e28 : 


2e 8d 01 Oa 8d a7 25 a9 9c 


2980 


df 8a dO 02 a6 fc a5 fc 


fc 


2bd8 


8e 00 ff 24 fl 30 Oc ad 


17 


2e30 : 


3a 8d 00 Oa 8d af 25 20 9d 


2988 : 


85 e5 86 e4 20 50 cl a9 


Id 


2be0 


2c Oa 29 02 a8 dO 04 a9 


10 


2e38 : 


8b 25 4c 3a 2e 60 20 el da 


2990 : 


00 4c Oe 56 20 a6 29 a5 


ab 


2be8 


dO dO 02 a9 d8 18 65 fe 


b8 


2e40 : 


a? do fa a9 00 78 85 fe lb 


2998 : 


dO dO Ob a5 d3 29 ef a8 


df 


2b fO 


85 fe aO 00 &2 00 bl fd 


09 


2e48 : 


85 24 a5 2d 85 fa a5 2e 11 


29a0 ; 


dO 04 a5 dl fO fl a9 00 


5b 


2b f 8 


24 83 10 02 49 ff 9d ba 


a3 


2e50 : 


85 fb ad 10 12 85 fc ad dd 


29a8 : 


85 dO 85 dl 60 fO 08 20 


If 


2c00 


2c e8 a9 00 9d ba 2c e8 


3d 


2e58 : 


11 12 85 fd 20 9a 35 24 87 


29b0 : 


f 4 87 eO Oa 4c e7 60 a2 


ac 


2c08 


c8 eO 08 dO e9 ea 20 81 


c5 


2e60 : 


d7 30 03 20 c4 77 58 4c 16 


29b8 : 


ff aO 00 e8 a9 08 85 77 


04 


2c 10 


14 ac b8 2c 98 fO Od 5e 


30 


2e68 : 


d9 51 ad 73 2e 49 ff 8d Oc 


29cO : 


bd 00 10 fO 19 86 fc 85 


64 


2cl8 


b9 2c 7e ba 2e 88 dO f7 


18 


2e70 : 


73 2e 60 00 08 2e 73 2e If 


29c8 : 


78 a2 06 bd e3 29 ca dO 


If 


2c20 


ca ca 10 ed ae b7 2c ae 


a8 


2e78 : 


30 04 28 4c 51 51 28 10 9e 


29d0 : 


02 05 fc 20 69 92 8a 10 


Od 


2c28 


b6 2c ad b5 2o 4a 4a 4a 


e9 


2e80 : 


le c9 ff 10 la 24 11 30 ec 


29d8 : 


f2 20 3f 61 a6 fc eO 09 


be 


2c30 


c6 83 18 7d e8 21 48 98 


57 


2e88 : 


16 c9 8f dO 07 a9 12 20 e7 


29e0 : 


dO d9 60 2c 30 20 59 45 


2e 


2c38 


29 Of aa 68 18 7d eb 21 


00 


2e90 : 


Oc 56 a9 8f c9 fe fO 61 3f 


29e8 : 


4b 58 20 86 03 a8 fO 59 


24 


2e40 


8d ee 20 b9 fb 21 69 00 


fl 


2e98 : 


c9 ce fO 70 4c 63 51 c9 eb 


29f0 : 


a2 00 86 fb 8e 23 30 c9 


Oa 


2c48 


8d eb 20 aO 00 20 5d 21 


aO 


2eaO : 


Od fO Of c9 14 fO Ob c9 ab 


29f8 : 


22 dO 11 e6 fb 20 9c 5d 


91 


2c50 


20 d8 cd 24 83 10 06 ae 


02 


2ea8 : 


8d fO 07 c9 lb fO 03 4e 86 
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TOOLS 




2eb0 


32 51 8d ed 03 a5 4b 48 


c7 


3108 : 


85 fc ad 11 12 85 fd c6 


6c 3 


360 : 


04 56 ca dO fa 8e 81 32 


ea 




2eb8 


a5 11 48 a? 55 48 8e ee 


5c 


3110 : 


fd aO fd bl fc fO 03 4c 


Of 3 


368 : 


4c 48 33 c9 9d dO Oe ae 


d4 




2ea0 


03 8c ef 03 20 45 a8 20 


75 


3118 : 


21 2e c8 dO f6 20 81 14 


3b ; 


370 : 


82 32 fO 58 ce 82 32 ce 


ba 




2ee8 


7d f f 22 12 43 48 52 24 


18 


3120 : 


4c fe 2a 20 fl la 20 f7 


da 3 


378 : 


82 32 4c ce 32 c9 Od fO 


88 




2ed0 


28 00 20 81 14 ae ed 03 


a5 


3128 : 


87 8a fO Oa ca dO 10 a4 


2e j 


380 : 


51 2c 80 32 10 f4 ae 7e 


ae 




2ed8 


20 32 8e 20 45 a8 20 7d 


ce 


3130 : 


39 a5 3a 4e 3e 31 ae 12 


78 : 


388 : 


32 dd 2c lc fO ec be 2e 


f9 




2eeO 


ff 29 92 00 ae ee 03 ac 


eO 


3138 : 


12 ad 13 12 4o eO 24 4c 


id : 


390 : 


lc CO 9d dO 08 09 20 90 


fe 




2eeS 


ef 03 68 85 55 68 49 ff 


el 


3140 ; 


28 7d 20 fl la 20 f7 87 


ff ; 


398 : 


30 c9 41 90 dd cO Id dO 


09 




2ef0 


85 11 68 85 4b a9 22 do 


f5 


3148 : 


8a fO Oa ca dO fl a4 2f 


b4 : 


3a0 : 


08 c9 30 90 24 e9 3a 90 


46 




2ef8 


b6 aa c8 20 ec 42 dO 03 


64 


3150 : 


a5 30 4c 3c 31 a4 2d a5 


eO : 


3a8 : 


dl cO 13 dO 10 c9 4l 90 


2e 




2fOO 


4e 32 51 84 4b c9 27 bO 


4b 


3158 : 


2e 4c 3c 31 a9 f f 20 Od 


17 : 


3b0 


18 e9 5b 90 e5 c9 bb 90 


50 




2f08 


16 4c 95 51 aa c8 20 ee 


If 


3160 : 


19 a5 f d dO 01 60 20 81 


7c ; 


3b8 


10 c9 bf 90 bd cO 93 dO 


80 




2fl0 


42 dO 03 4c 32 51 84 4b 


5b 


3168 : 


14 85 90 a9 08 20 bl ff 


eO : 


3c0 


08 c9 el 90 04 c9 de 90 


5a 




2fl8 


c9 Ob bO 07 4c af 51 a2 


41 


3170 : 


24 90 10 05 a2 05 4c 3a 


7d : 


3c8 


bl ca dO bd 4c ec 32 20 


ff 




2f20 


00 fO 02 a2 ff 8d ed 03 


97 


3178 


4d a9 6f 20 93 ff 24 90 


65 ; 


3d0 


6e c2 ad 7c 32 85 e8 ad 


e9 




2f28 


8e ee 03 8c ef 03 a9 12 


62 


3180 . 


30 f2 a2 00 bd 2d lb 20 


c4 : 


3d8 


7d 32 85 e9 a9 Od 20 cf 


30 




2f30 


20 Oc 56 ad ed 03 ae ee 


31 


3188 


a8 f f a5 90 dO 05 e8 e4 


4e : 


3e0 


33 a2 00 fO 03 20 e5 90 


6c 




2f38 


03 ac ef 03 20 a3 3b 29 


4c 


3190 


fd dO f 1 20 ae f f 4c 43 


is ; 


J3e8 


c9 Od fO 15 9d 00 02 e8 


ca 




2f40 


7f 20 Oc 56 a9 92 20 Oc 


65 


3198 


92 20 f4 87 eO 08 90 9f 


38 : 


!3f0 


ec 7f 32 90 fO 2c 80 32 


11 




2f4S 


56 ad ed 03 c9 56 dO 03 


e9 


31a0 


eO Oc bO 9b 8e 6c 31 60 


fe ; 


3f8 


30 07 eO al 90 e? 4c ed 


6d 




2f50 


20 94 29 a9 00 4c 2e 51 


f8 


31a8 


20 d9 84 ad 49 3c dO 37 


b4 ; 


i400 


a5 a9 00 9d 00 02 a2 f f 


c8 




2f58 


aO ff 20 le 2d 20 ee la 


87 


31bO 


20 f6 14 a6 fb a9 00 9d 


6d 


1408 


aO 01 20 9S 55 ad 00 02 


Ob 




2f60 


20 09 88 8a 48 a5 16 8d 


9d 


31b8 


2d Id a5 3d 8d fb 31 a5 


4e ; 


1410 


dO 06 20 a2 52 4c 92 52 


b6 




2f68 


fb 31 a5 17 8d fc 31 20 


Oe 


3lc0 


3e 8d fc 31 a9 2d 85 3d 


bf : 


i4ia 


86 45 84 46 20 a9 15 85 


d9 




2 f70 


09 88 86 15 20 fd 90 20 


76 


31c8 


a9 Id 85 3e 20 86 03 90 


8c ; 


)420 


4b 84 4c a2 01 b5 3d 95 


f3 
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f9 


31e8 


6c 79 20 80 03 4c d7 31 


7d ; 


S440 


3e 20 b8 15 20 If 79 20 


80 




2f98 


06 ac fc 31 dO 01 ca 20 


da 


31fO 
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al 
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ce 
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9e 
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a3 
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3f 


32e8 
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64 


3540 
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67 


32f0 


: 90 32 a5 dO 05 dl fO fa 


b5 


3548 
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7b 
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3f 
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if 


3a40 : 


f8 b9 2d lb 91 61 60 00 


69 


3c98 : 


3c 20 c2 3e 4e a2 4a 20 60 
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3ca0 : 


80 03 c9 9c d0 03 4c 6c 


d7 


3de8 : 


52 41 4e 46 49 ae 44 55 


dd 


3ef0 


44 45 c3 44 45 43 cc 00 f2 


3ca8 : 


79 20 f4 87 eO 01 fO Oc 


51 


3dd0 : 


4d dO 50 41 47 c5 50 52 


4a 


3ef8 


bO 24 e5 2a 7e le 64 25 2e 


3cb0 : 


90 07 eO 05 fO 03 4e 28 


45 


3dd8 : 


4f c3 4d 4f 56 c5 46 49 


85 


3f00 


81 23 2e le 63 24 16 If dO 


3eb8 : 


7d 4c 6c 6b ee 93 3c 4c 


f9 


3de0 : 


4e ce 53 45 54 42 4f d4 


4e 


3f08 


19 If 3f If 57 If 6e If eb 


3ee0 : 


05 If a5 3d dO 02 c6 3e 


lb 


3de8 : 


53 45 54 54 4f dO 56 43 


d9 


3fl0 


c2 22 e8 24 Ob 25 3b 29 bb 


3ec8 . 


c6 3d 60 56 4c 4f 43 41 


df 


3df0 


48 41 d2 4d 45 4d 53 57 


f2 


3fl8 


62 29 93 29 ae 29 e9 29 27 


3cd0 . 


54 c5 4f 4c c4 5a 4b <32 


56 


3df8 


41 dO 44 49 53 eb 44 49 


13 


3f20 


87 2a a? 2a b6 2d ed 2d d2 


3cd8 • 


4f 46 c6 56 42 4f d8 53 


6f 


3e00 


53 45 d4 52 45 4c 4f 43 


fO 


3f28 


2f 30 35 30 08 2b Oe 2b 2b 


3ce0 . 


43 52 45 45 ee 56 43 4f 


92 


3e08 


41 54 c5 45 58 45 43 55 


f5 


3f30 


a9 2f 23 30 aO 32 69 2e dd 


3ce8 


4c 4f d2 47 52 4f ee 4? 


e3 


3el0 


54 c 5 4c 50 52 49 4e d4 


b6 


3f38 


3e If 3d 2e 20 2e 97 30 4d 


3cf0 


52 43 4c d2 47 52 4f 46 


22 


3el8 


49 4e 50 55 54 46 4f 52 


aO 


3f40 


e6 30 Oa 19 3c ff fc 26 e8 


3cf8 


c6 57 56 52 45 c7 56 44 


be 


3e20 


cd 56 50 41 49 4e d4 53 


56 


3f48 


54 27 61 27 9d 28 e2 36 80 


3d00 


52 41 d7 56 43 49 52 43 


02 


3e28 


54 52 4d 45 cd 48 49 44 


6e 


3f50 


76 36 3c 36 f8 35 de 36 d8 


3d08 


4c c5 56 44 43 53 41 56 


d5 


3e30 


c5 55 4e 49 54 c5 57 52 


d2 


3f58 


72 36 02 13 6a 34 48 35 9c 


3dl0 


c5 56 44 43 4c 4f 41 c4 


48 


3e38 


55 53 d2 52 45 50 45 41 


a4 


3f60 


5f 35 59 35 19 37 7a 38 fd 


3dl8 


44 50 4f 4b c5 4e 57 49 


70 


3e40 


d4 53 45 54 54 49 4d c5 


ea 


3f68 


71 2b 53 35 5b 31 98 31 ee 


3d20 


4e c4 54 4b 45 d9 58 4b 


6a 


3e48 


58 53 54 56 44 c3 00 49 


If 


3f70 


bd 38 a7 31 b2 2d 34 32 23 


3d28 


45 d9 46 49 4e c4 4d 45 


df 


3e50 


4e 53 43 d2 56 -?2 44 4f 


lb 


3f78 


If 17 fl 2c b4 2a 87 2a 34 


3d30 


52 47 45 b2 4d 45 52 47 


a4 


3e58 


d4 52 56 52 45 c7 4e 4f 


98 


3f80 


81 2d 8b 2d 3c 26 99 28 cc 


3d38 


e5 4e 4c 49 53 d4 4c 53 


13 


3e60 


d7 48 49 47 c8 44 50 45 


11 


3f88 


6c le be 24 5a le 4d le bf 


3d40 


45 d4 4c 4f 43 4b d3 55 


75 


3e68 


45 cb 52 42 41 4e cb 55 


dO 


3f90 


54 le If 29 lb 2e 01 2e 64 


3d48 


4e 4c 4f 43 4b d3 43 55 


04 


3e70 


53 45 c4 52 41 c4 44 45 


b7 


3f98 


8a 30 7b 30 5a 30 6a 30 50 


3d5Q 


4f ce 43 4f 46 c6 43 47 


f7 


3e78 


c7 43 4f d4 4c c7 52 44 


24 


3fa0 


4c 30 d8 13 42 31 23 31 39 


3d58 


4f 54 cf 43 47 4f ^3 55 


14 


3e80 


4c 49 4e c5 44 55 dO 52 


94 


3fa8 


53 30 34 2b 30 2b 65 2b ce 


3460 


c2 4f 46 49 4e 50 55 d4 


eb 


3e88 


42 4f d4 52 54 4f dO 50 


95 


3fb0 


17 15 dc 18 e9 26 9c 14 f6 


J3d68 


43 4c 49 53 d4 57 4b 45 


4e 


3e90 


52 47 4c 49 4e e5 44 49 


79 


3fb8 


Oa 2d 6b 2d 58 2f ac 26 d7 


3d70 


d9 45 52 41 53 c5 4b 49 


cc 


3e98 


d6 4d 4f e4 46 52 41 c3 


05 


3fe0 


13 27 6d 27 69 27 bB 27 a8 


3d78 


4e ce 43 4f 44 c5 44 45 





3ea0 


49 4e 53 45 52 d4 41 d4 


08 


3fc8 


ca 27 le 28 48 28 5e 28 c2 


3d80 


43 4f 44 c5 43 45 4e 54 


75 


3ea8 


49 4e 4b 45 d9 4d 45 4d 


4c 


3fd0 


c6 28 fa 28 de 28 e9 28 95 


3d88 


52 e5 52 45 53 45 d4 50 


4d 


3eb0 


53 54 d2 42 41 53 49 c3 
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3fd8 


a2 f f 78 9a d8 20 42 e2 49 


3d90 


: 41 55 ^3 e5 44 49 4e 4c 


6a 


3eb8 


42 41 53 4c ce 44 49 4e 


ea 


3fe0 


20 09 el 20 93 eO 20 56 6f 


3d98 


: 4f 43 cb 44 49 4e 46 52 


c9 


3ec0 


50 55 d4 54 49 4d c5 45 


lb 


3fe8 


: eO 20 00 cO 20 7a 41 20 Oc 


3da0 


: 45 e5 53 54 52 56 44 c3 


98 


3ec8 


56 4l ec 4d 49 ce 4d 41 


5e 


3ff0 


■ 45 40 20 4f 3a 4c 3c 40 bf 


3da8 


: 45 58 43 48 41 4e 47 c5 


22 


3ed0 


: d8 4f 44 c4 52 4f 55 4e 


8b 


3ff8 


. 00 08 f7 00 f7 00 f7 21 9e 


3db0 


: 45 58 46 49 ae 43 4c 45 


9d 


3ed8 


j C 4 56 44 43 53 54 d2 41 


e6 






3db8 


: 41 d2 43 4c 46 49 ae 54 


cf 


3ee0 


: 53 43 42 c9 42 49 41 53 


b9 






3dc0 


: 52 41 4e 53 46 45 d2 54 


33 


3ee8 


: c3 43 55 d4 4e 43 55 d4 


lb 


Listing 1. (SchluB) 



Power 128 ist ein machtiges Werkzeug 

fur den C128 mit der Floppy 1571. 

Nahezu alle erdenklichen Manipulationen 

im Directory einer Diskette 

lassen sich mit diesem 
Programm durchfuhren. 



POWER 128 



■S \ ffJ 




ower 128 ist ein reinrassiges Maschinensprachepro- 
gramm, das ein HbchstrnaR an Komfort bei der Arbeit 
mit Disketten bietet. Es hat eine exzellente Benutzer- 
fuhrung durch Menus, die mit den Funktionstasten aufge- 
rufen werden, arbeitet im 80-Zeichen-Modus des C 128 und 
zeigt stan dig das aktuelle Laufwerk und Ausgabegerat in 
der Titeileiste an. 
Power 128 (Listing 1) ist sowohl allein lauffahig alsauch 



von einern Basic-Programm aufrufbar. Das Maschinenpro- 
gramm belegt den Speicherbereich von $1300 bis $8908 in 
Bank und von $EA00 bis $FDFE in Bank 1 , Es wird entwe- 
der gebootet Oder nach dem Laden mit »SYS 4864« gestar- 
tet. Durch eine eingebaute Schnittstelle kdnnen Sie Power 
128 fur Ihre persbniichen Bedurfnisse erweitern: Die Ta- 
stenkombination < SHIFT RUN/STOP > wird in alien Pro- 
grannmtetien abgefragt, aber nirgends fur ein Unterpro- 
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gramm verwendet. Hier kbnnen Sie Ihre eigenen Unterpro- 
gramme einbinden (Tabelle 1). 
Nach dem Start des Program ms mit 

BOOT "POWER 128" 

erscheint ein Ubersichtsmenii, das die Auswahl aus neun 
Hauptfunktionen mittels der Funktionstasten erfaubt. Ein 



Schnittstelien 


$1300 




Startadresse 


$1711 




Einsprungadresse fOr Basic-Programme 


$139F 




Adresse des ersten Laufwerks 


$13A0 




Adresse des zweiten Laufwerks 


$19DF 


• $19EE 


Trennzeile 


$3783- 


$3785 


Platzhalter fur Erweiterung. Dieser 
besteht aus drei »NOPs« und wird bet 
<SHIFT-RUN/STOP> angesprungen (kann 
beispielsweise mit »jsr xxxx« ausgefGI it warden). 



Tabelle 1. Hier finden Sle die wichtigsten Schnittstelien 

Druck auf <ESC> beendet das Programm und fuhrt ent- 
weder zurtick in den Direktmodus Oder in das Basic-Pro- 
gramm, von dem Power 128 aufgerufen wurde. 

Detaillierte Beschreibung der Funktionen 

Nahezu alle Optionen des Programms werden iiber die 
Funktionstasten aufgerufen. Diese sind: 

< F1 > Extended Directory 

In diesem Menu stehen folgende Funktionen zur Verfu- 
gung: Mit <F7> kann zwischen den beiden voreingesteil- 
ten Diskettenstationen umgeschaltet werden, mit <F8> 
die Ausgabe auf den Monitor oder auf einen angeschlosse- 
nen Drucker gelenkt, mit <HELP> das »Standard-Direc- 
tory« ausgegeben oder mit < ESC > die Routine veriassen 
und ins Hauptmenu zuriickgesprungen werden. Mit < F1 > 
startet man nun die Ausgabe des ausfiihrlichen Directory. 
Folgende Disketten-Daten werden ausgegeben: 

- Header 
-ID 

- Disk-Format 

- Anzahl Boot-Blbcke 

- Disk-Status (Read Only, Read/Write) 

- Anzahl Directory-Eintrage 

- Anzahl freie Blbcke (laut BAM) 

- Anzahl belegter Blocke (Summe der File-Langen) 

- Gesamt-Kapazitat der Diskette 

Zusatzlich wird bei der Druckerausgabe noch die Etnga- 
be des aktuellen Datums oder einer Kommentar-Zeile an- 
gefordert. Fur jeden Directory-Eintrag werden folgende Da- 
ten ermittelt und ausgegeben: 

- File-Name 

- File-Typ 

- File-Status 

- Anzahl belegter Blbcke 

- Track und Sektor des ersten Blocks jedes Files 

- Start-Adresse aus File-Header 

- Endadresse (maximal) 

Bei REL-Files wird zusatzlich die Lange des Datensatzes 
angegeben. Die Ausgabe kann durch einen kurzen Druck 
auf die Space-Taste angehalten und durch eine weitere Be- 
tatigung von <SPACE> fortgesetzt werden. 

Sind alle Eintrage analysiert und ausgegeben, kann die 
nachste Diskette eingelegt und mit <F1 > der Ablaut wie- 
derholt werden. <ESC> beendet das Unterprogramm 
und fiihrt zuriick ins Hauptmenu. 

<F2> Save and restore Directory Tracks 

Besonders bei professioneller Software ist es empfeh- 



lenswert, vor Manipulationen des Directory, wie Sortieren, 
File-Status-Manipulationen etc. die komplette Directory- 
Spur in einem externen Filezusichern. Diese Funktton wird 
hier angeboten: 

<F1 > Einlesen der Directory-Spur in den Speicher 
<F3> Einlesen eines Directory-Save-Files in den 

Speicher 
<F4> Speicherinhalt in Directory-Spur schreiben 
<F6> Speicherinhalt in Directory-Save-File schreiben 

Demzufolge wird eine Directory-Spur durch <F1 > und 
<F6> gesichert sowie durch <F3> und <F4> restau- 
riert 

Des weiteren stehen noch folgende Funktionen zur Ver- 
ftigung: 

< F7> Umschalten zwischen verschiedenen 

Diskettenlaufwerken 
<HELP> Standard-Directory 
<ESC> zuruck ins Hauptmenu 

<F3> Modify BAM & Directory 

Folgende Unterfunktionen stehen zur Auswahl: 

< F1 > BAM modifizieren 
<F2> Diskette formatieren 

< F3 > Directory-Eintrage modifizieren 

< F4> Diskette validieren (Boot-Sektor wird 

beriicksichtigt). 

< F7> Laufwerk wechseln 
<HELP> Standard-Directory 

Die einzelnen Funktionen von <F1 > (BAMmodifizieren) 
sind folgendermaBen zu bedienen: 
<F1 > Header der eingelegten Diskette andern 
<F2> Summe freier Blocke auf setzen 
<F3> ID andern (maximal fun* Zeichen!) 
<F4> Summe freier Blbcke auf Maximalwert setzen 
<+ > nSchste Bildschirmseite 

< U > Update (Anderungen auf Diskette 

zuriickschreiben) 
<ESC> Zuruck zum aufrufenden Untermenii 
<F2> (Diskette formatieren) sendet den Formatbefehl 

des DOS an die Floppy. Vorher werden 

Disknarne und ID abgefragt. 

< F3> (Directory-Eintrage modifizieren) stellt Directory- 

Eintrage dreispaltig und farbcodiert dar. Die Vor- 
einstellungen der Farben kbnnen anhand der 
POKE-Liste in Tabelle 2 modifiziert werden. Die 
Farbgebung wird durch den Filetyp bestimmt; 
voreingestellt sind folgende Werte: 



Farben 



$1363 


Textfarbe 


$1366 


Kopfzeile 


$1369 


Standard 


$136C 


Fshlermeldungen 


$136F 


Anweisungen 


$1372 


Mitteilungen 


$2B63, $2B6F 


DEL-Ftles 


$2B64, $2B7C 


SEQ-Files 


$2B65, $2888 


PRG-Files 


$2B66, $2B94 


USR-Files 


$2B67, $2BA0 


REL-Files 


$53AC 


Menuieisten 



Tabelle 2. In diesen Speicherstellen sind die Farben 
abgelegt 



DEL 


Rot 


SEQ 


Braun 


PRG 


Gelb 


USR 


Griin 


REL 


Blau 
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Folgende Funktionen stehen zur Auswahl: 

< F1 > Directory alphabetisch sortieren 
<F2> File-Lange ausgewahlter Files = 

<F3> Extension »,U(Laufwerk]« an einen Filenamen 
hangen. Dies dient zum bequemeren Laden 
von Programmen. 

< F4> File-Lange ausgewahlter Files auf den Wert 

65535 setzen. 

< F5> beliebige Extension an einen Filename hangen 

< + > nachste Bildschirm-Seite anzeigen, falls nicht 

alle Eintrage auf einen Screen passen. 

< U > Update, Anderungen werden gespeichert 
<ESC> zuruck zum aufrufenden Untermenu. 

Ein Beispiel zur Funktion <F5>: 

Um eine beliebige Extension an einen oder mehrere File- 
namen anhangen zu kbnnen, wird man nach <F5> zu- 
nachst aufgefordert, in einem einzeiligen Eingabefenster 
die gewunschte Extension einzugeben (AbschluB mit RE- 
TURN). 1st die Extension definiert, wird man aufgefordert, 
die Kennzahlen des oder der Files einzugeben, die diese 
Extension erhalten sollen. Diese Eingabe kann also f Or nur 
ein File Oder auch fur einen ganzen File-Block erfolgen. 
Soil eine Extension (beispielsweise »,8«) an mehrere Files 
angehangt werden, so sind die erste und letzte Nummer 
des Fileblocks durch Bindestrich getrennt anzugeben. 

1st die Eingabe korrekt , wird die Extension angehangt, 
wenn nicht, wird eine neuerliche Eingabe verlangt. Durch 
Eingabe von »0« kann man die File-Auswahl jederzeit ab- 
brechen. 

< F4> Diskette validieren {Boot-Sektor wird 

berucksichtigt!) 
<F7> Umschalten zwischen verschiedenen 

Diskettenlaufwerken 
<HELP> Standard-Directory 

< F4> Protect and Release Disks & Files 

Setzt oder loscht den Schreibschutz f Or ganze Disketten 
durch Andern des Disk-Form at-Kennbytes und fur einzelne 
Files durch Anderung des Typ-Bytes. Damit ist es mogiich, 
das leidige DOS-Problem der 1571 ohne Anderung des 
DOS-ROMs und ohne Verwendung eines Diskmonitors zu 
jjmgehen. 

< F1 > Diskette schutzen 

<F2> Diskettenschreibschutz loschen 

<F3> Files schutzen 

<F4> Files freigeben 

<F7> Disketten-Station wechseln 

<HELP> Directory 

<ESC> zuruck ins Hauptmenu 

Bei den Funktionen <F1> und <F2> gentigt es, die 
Anweisungen auf dem Bildschirm zu befolgen. Bei F3 und 
F4 wird zunachst die Directory-Spur eingelesen und der In- 
halt in gewohnter Form auf dem Bildschirm angezeigt. Nun 
kann man die zu schutzenden oder die freizugebenden 
Files anwahlen und nach AbschluB des Auswahl-Vorgangs 
mit »U« die Veranderungen auf Diskette zuruckschreiben. 

<F5> Sort & Modify Directory-Entries 

Zunachst hat man die Wahl, den Sortier- und Modifizier- 
Vorgang zu starten, mit <F7> die Disketten-Station zu 
wechseln, mit <HELP> das Directory auf den Bildschirm 
zuholen oder mil <ESC> zuruck ins Hauptmenu zusprin- 
gen. 

Entscheidet man sich dafiir, mit <SPACE> den nach- 
sten Menupunkt anzuw&hlen, so wird man aufgefordert, 
entweder die Diskette einzulegen und <SPACE> zu 
drucken Oder die Aktion mit <ESC> abzubrechen. Nach 
dem Einlesen der Diskette hat man folgende Moglichkei- 
ten: 

< F1 > Files oder File-B!6cke verschieben 



< F2 > Directory-Eintrage entfernen (mit 

Sicherheitsabfrage) 
<F3> Trennzeile einfugen 
<F5> Directory alphabetisch sortieren 
<F6> Directory nach der File-Lange sortieren 

< U > Update (Anderungen auf Diskette 

zuruckschreiben) 
<ESC> zuruck ins aufrufende Submenu 

Die Syntax bei File-Verschiebungen lautet bei Einzel- 
File-Verschiebungen: 
<ziffer1 >-<ziffer2> 

Das File auf Position »ziffer1« wird von seiner momenta- 
nen Position nach »ziffer2« verschoben. 

Bei Block-Verschiebungen ist die Syntax folgenderma- 
Ben: 

< ziffeM >- < ziffer2 > - < ziffer3 > 

Dabei werden die Files aus dem Bereich »ziffer1« bis 
»ziffer2« nach »ziffer3« verschoben. 

Lbschungen werden nur fur Einzelfiles akzeptiert, um 
unbeabsichtigtes Loschen zu vermeiden. 

<F6> Directory selektiv ausdrucken 

Mitdieser Funktion kann man ein Directory platzsparend 
ausdrucken, Man hat dabei sogar die Mbglichkeit, die be- 
ndtigten Eintrage zu selektteren, bevor diese an den 
Drucker geschickt werden. Die zur VerfOgung stehenden 
Einstiegsfunktionen sind: 
<F7> Laufwerk wechseln 
<HELP> Directory auf den Bildschirm holen 
<ESC> zuruck ins Hauptmenu 

Betatigt man die SPACE-Taste, so gelangt man - nach 
Etntegen der gewunschten Diskette und Bestatigung mit 
nochmaligem < SPACE > - in ein Untermenu, das folgen- 
de Funktionen zur Verfugung stellt: 

< F1 > File(s) verschieben 

< F2> Eintrage aus der Druckliste entfernen 
<F3> Trennzeile einfugen 

< F5> Remark-Zeile eingeben (60 Zeichen stehen zur 

Verfugung) 

< F7> Ergebnis auf dem Bildschirm zeigen 

< F8> Setzt das Ende der Druck-Liste auf eine 
beliebige Position 

< P > Druckvorgang starten 

<+ > nachste Bildschirmseite anzeigen 

Ist der Drucker nicht angesch lessen, erscheint eine Feh- 
lermeldung, die - nach entsprechender Korrektur - mit 
SPACE zu quittieren ist. 

<F7> Disk-Labels drucken 

Mit dieser Funktion kann man sich bequem Disk-Etiket- 
ten zusammenstellen und drucken. Zu Anfang holen Sie 
sich-wie unter <F6> beschrieben-das Inhaltsverzeich- 
nis der gewunschten Diskette. Nach dem Einlesen der Dis- 
kette stehen folgende Funktionen zur Verfugung, die auch 
in der Menu-Leiste angezeigt werden: 
<F1 > File(s) verschieben 
<F2> Eintrage entfernen 

< F3 > Trennzeile einfugen 

< F5> Remark-Zeile einfugen (45 Zeichen) 
<F7> bringt das Etikett auf den Bildschirm 
<F8> Kopfzeile eingeben 

<+> weiterblattern 

<P> Druckvorgang einleiten 

<ESC> zuruck ins aufrufende Untermenu 

Fur jedes Diskettenlabel stehen drei Spalten mit je elf 
Zeilen zur Verfugung, insgesamt sind also bis zu 33 Eintra- 
ge mogiich. Dazu sollten Sie aber wissen, da8 fur jede 
Trennzeile (<F3>) und fur jede Kommentarzeile (<F5>) 
eine ganze Zeile - der Platz von drei Eintrage n - benbtigt 
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wird. Die Kopfzeile (<F8>) ist so aufgebaut, daB die letz- 
ten sechs Zeichen in doppeiter Hone und Breite gedruckt 
werden. 

Die Druckeranpassung ist derzeit auf den Epson-FX85 
abgestimmt, kann aber anhand der POKE-Liste in Tabelie4 
auf jedenanderen Druckereingestellt werden. Falls Sie die 
Parameter der Etiketten verandern wollen, verwenden Sie 
bitte Tabelle 3. 

<F8> Boot-Help 

Dieser Menupunkt ist eine groBe Hilfe bei der Erstellung 
von Boot-Sektoren. Es handelt sich urn die erste veroffent- 
lichte Routine, die es erlaubt, Assembler-Programme von 
bis zu 16 Blocken Lange auf die Bootspur zu legen. 

Nachdem Sie <F8> gedruckt haben, steht Ihnen ein 
Untermenii mil folgenden Funktionen zur Verfiigung: 

< F1 > Boot-Sektor(en) generieren 
<F2> Boot-Sektor(en) kopieren 

< F4> Boot-Sektor loschen 
<F8> Diskette formatieren 
<F7> Laufwerk umschalten 
<HELP> Directory anzeigen 
<ESC> zuruck ins Hauptmenu 

Die einzelnen Meniipunkte sind - mit Ausnahme der 
Sektor-Generierung ( < F1 >) - durch die Benutzerfuhrung 
weitgehend selbsterklarend. Wenn Sie mit <F1> einen 
neuen Boot-Sektor generieren, offnet sich ein neues Unter- 
menii mit folgenden Punkten: 

< F1 > stellt verschiedene Boot-Varianten zur Verfugung 

< F3 > Assemblerprogramm in Boot-Sektoren eintragen 



< F5 > Assemblerprogramm booten 

< F7 > Laufwerk umschalten 

< HELP> Directory anzeigen 
<ESC> zuruck zum aufrufenden Menu 

Falls Sie sich fur < F1 > entschieden haben, werden Sie 
aufgefordert, die Diskette einzulegen, auf der der Boot- 
Sektor erzeugt werden soil. Danach geben Sie die Meldung 
ein, die wahrend des Boot-Vorgangs erscheint und wahlen 
das File, welches gestartet werden soil. AuBerdem haben 
Sie noch die Moglichkeit, eine bis zu 60 Zeichen lange Zeile 
mit Basic-Befehlen einzugeben, wobei die einzelnen Be- 
fenle durch einen Doppelpunkt getrennt sein miissen. Die- 



Etiketten 


$1F41 


Anzahl Spalten 


$2042 


Gesamtlange des Etiketten-Header 


$2043 


Lange des Etiketten-Header (links) 


$2044 


Linge des Etiketten-Header (rechts) 


$2045 


Anzahl Zeilen fur Files 


$2046 


Anzahl Spalten 


$2048 


Anzahl Zeilen zwischen den Etiketten 


S21FE 


Anzahl Leerzeichen zwischen den Spalten 



Tabelle 3. Mit Hilfe dieser Speicherstellen kdnnen Sie das 
Etlkettenformat andern 

se Befehle werden nach AbschluB des Boot-Vorgangs - 
aber noch vor dem eigentlichen Programmstart - ausge- 
fuhrt. 
Wollen Sie start eines Maschinenprogramms ein Basic- 



Name 


: power - 128/vl.l 1300 6919 


1438 

1440 
1448 


: 24 ca 20 74 13 20 65 13 
: a2 00 aO 47 20 c3 25 ad 
: 90 13 c9 03 dO 10 20 7d 


46 


1580 


: 69 00 8d 2a 15 e6 ff a9 


6e 


1300 


: 4c c2 16 20 24 ca 20 5f 


Of 


03 
3e 


1588 
1590 


: 00 8d 2b 15 aO 00 20 e6 
: 24 bl fe 20 fl 24 8d 27 


15 

15 


1308 


; 13 20 b3 25 20 74 13 20 


ef 


1450 


: ff 4d 4f 4e 49 54 4f 52 


ad 


1598 


: 15 c8 20 e6 24 bl fe 91 


e5 


1310 


: 65.13 20 7d ff 20 20 44 


el 


1458 


: 20 20 00 4c 6b 14 20 7d 


e5 


15 aO 


: 87 20 fl 24 18 e6 87 90 


30 


1318 


: 52 49 56 45 20 23 20 00 


e9 


1460 


: ff 50 52 49 4e 54 45 52 


86 


15a8 


: 02 e6 88 ee 28 15 ee 2b 


5a 


1320 


: ad 7c 33 20 ft> f9 48 8a 


a2 


1468 


: 20 20 00 20 77 13 20 36 


99 


15b0 


: 15 ad 2b 15 c9 09 dO 2d 


8c 


1328 


: 20 d2 ff 68 20 d2 ff 60 


18 


1470 


■ 24 20 5f 13 20 71 13 20 


f9 


15 b8 


: ad 27 15 fO 06 ce 28 15 


fe 


1330 


: ad 91 13 f 10 20 7d f f 


81 


1478 


7d ff 4f 55 54 50 55 54 


39 


15c0 


4c 85 15 a9 00 a2 fd 85 


61 


1338 


: 50 52 49 4e 54 45 52 20 


c6 


1480 


2d 44 45 56 49 43 45 20 


ef 


15c8 


: fc 86 fd 18 ad 28 15 0a 


Oe 


1340 


: 20 00 4c 52 13 20 7d ff 


e6 


1488 


43 48 41 4e 47 45 44 20 


f9 


15d0 


• 90 02 e6 fd 85 fc aO 00 


9d 


1348 


■ 4d 4f 4e 49 54 4f 52 20 


43 


1490 


54 4f 20 44 45 56 49 43 


ef 


15d8 


• 98 20 e6 24 91 fc e8 91 


06 


1350 


20 00 20 77 13 20 36 24 


bb 


1498 


45 20 23 00 ad 90 13 20 


a2 


15e0 


• fc 20 fl 24 60 18 ad 29 


bd 


1358 


20 68 13 20 5f 13 60 a9 


d9 


l4a0 


fb f9 20 d2 f f 20 63 13 


c3 


15e8 


15 69 20 90 03 ee 2a 15 


46 


1360 


93 2c a9 97 2c a9 99 2c 


35 


l4a8 


60 a9 01 ac 8f 13 ae 90 


20 


15 fO 


8d 29 15 85 fa ae 2a 15 


00 


1368 


a9 9f 2c a9 96 2c a9 9e 


dO 


I4b0 


13 20 ba ff a9 00 20 bd 


18 


15f8 


86 fb aO 00 20 e6 24 bl 


dl 


1370 


2c a9 95 2c a9 12 2e a9 


8b 


I4b8 


ff 20 cO ff a2 01 20 e9 


3e 


1600 


fa 20 fl 24 c9 00 dO 03 


fl 


1378 


92 2c a9 0d 2c a9 02 2c 


9d 


14c0 


ff bO 04 20 cc ff 60 20 


ab 


1608 


4e ae 15 a9 00 a2 fd 85 


3e 


1380 


a9 82 2c a9 Of 2c a9 8f 


c3 


I4c8 


45 24 ad 90 13 20 c7 31 


50 


1610 


f c 86 fd 18 ad 28 15 0a 


56 


1388 


2c a9 07 20 d2 ff 60 00 


fd 


I4d0 


ad al 13 8d 90 13 a2 00 


fl 


1618 


90 02 e6 fd 85 fc aO 00 


e5 


1390 


03 00 01 00 00 00 00 00 


d4 


I4d8 


8e 91 13 4c de 14 20 cc 


26 


1620 


ad 29 15 ae 2a 15 20 e6 


17 


1398 


00 00 00 00 00 0c 00 08 


09 


l4e0 


ff a9 01 38 20 c3 ff 60 


de 


1628 


24 91 fc e6 fc 8a 91 fc 


95 


13a0 


09 03 05 20 f9 24 20 74 


9a 


I4e8 


20 de 14 ad 90 13 48 cd 


90 


1630 


20 fl 24 4c ab 15 00 00 


3f 


13a8 


53 20 fl 24 60 20 36 24 


34 


14 fO 


al 13 f 07 ad al 13 a2 


bl 


1638 


00 ad 36 16 ae 37 16 85 


67 


13b0 


20 5f 13 ad 7c 33 48 20 


bd 


I4f8 


00 fO 06 ad a2 13 ae 92 


4a 


1640 


fc 86 fd 18 ad 38 16 0a 


0b 


13b8 


2a 28 68 cd 7c 33 fO 6e 


cc 


1500 


13 8d 90 13 8e 91 13 20 


62 


1648 


48 a9 00 65 fd 85 fd 68 


e6 


I3c0 


20 24 ca 20 b3 25 20 74 


77 


1508 


a9 14 68 60 a9 0a 8d 7b 


fa 


1650 


18 65 fc 90 02 e6 fd 85 


c6 


13c8 


13 20 65 13 20 7d ff 20 


d5 


1510 


33 a9 Id a2 15 85 89 86 


64 


1658 


fc aO 00 20 e6 24 bl fc 


f9 


13d0 


20 44 52 49 56 45 20 23 


26 


1518 


8a 20 16 30 60 42 2d 50 


ab 


1660 


aa c8 bl fc 20 fl 24 85 


a7 


13d8 


20 00 ad 7e 33 20 fb f9 


0b 


1520 


20 31 33 20 30 30 30 00 


ef 


1668 


f d 86 f c 60 8d cl 16 18 


63 


I3e0 


48 8a 20 d2 ff 68 20 d2 


39 


1528 


00 00 00 00 a9 30 a2 fe 


cd 


1670 


98 6a cl 16 8d cl 16 c8 


c3 


13e8 


ff 20 77 13 20 36 24 20 


be 


1530 


85 87 86 88 ad 81 33 10 


ff 


1678 


20 e6 24 bl f c 20 fl 24 


2b 


13 fO 


b3 25 20 71 13 20 7d ff 


94 


1538 


03 a9 00 2c a9 ff 8d 27 


b5 


1680 


48 ad 91 13 fO Id 30 25 


69 


13 fs , 


41 43 54 55 41 4c 20 44 


la 


1540 ; 


15 a9 00 8d 28 15 aO 00 


89 


1688 


18 68 c9 20 bO 05 a9 2e 


81 


1400 : 


52 49 56 45 20 43 48 41 


f5 


1548 : 


20 e6 24 91 87 18 e6 87 


fa 


1690 


4c ae 16 c9 5f 90 17 c9 


5c 


1408 . 


4e 47 45 44 20 54 4f 20 


f6 


1550 : 


90 02 e6 88 a9 01 91 87 


a4 


1698 


aO fO 13 c9 eO fO Of a9 


d3 


1410 : 


44 52 49 56 45 20 23 00 


7c 


1558 : 


20 fl 24 a9 00 a2 fd 85 


c7 


I6a0 . 


2e dO 0b 68 85 f4 c9 14 


55 


1418 : 


ad 7c 33 20 fb f9 eO 31 


4a 


1560 : 


fc 86 fd a9 00 a2 ea 85 


20 


16a8 


dO 04 a9 2e 24 68 c9 11 


79 


1420 : 


dO 06 48 8a 20 d2 ff 68 


cO 


1568 : 


fe 86 ff aO 01 20 e6 24 


b2 


16b0 : 


bO 02 a9 2e 20 d2 ff cc 


c4 


1428 : 


20 d2 ff 20 68 13 60 20 


96 


1570 : 


bl fe 91 87 20 fl 24 18 


48 


16b8 : 


cl 16 dO bb a9 00 85 f4 


ca 


1430 r 


e8 14 cd 90 13 fO 71 20 


66 


1578 : 


a9 00 69 e2 8d 29 15 8a 


64 


16c0 . 


60 00 20 b3 77 ae 00 ff 


8c 
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Drucken 


$138F 


Einstellen der SekundSr-Adresse 


$1392 


Druekertyp ($01: nicht CBM-Drucker, 




$FF: CBM oder kompatibel) 


S139D 


Formfeed fur Drucker 


$13A2 


Druckeradresse 


Steuerzeichen: 




$2297 - $229B 


Elite 


$2290 - $22A0 


Pica 


$22A1 - $22A5 


Eng ein 


$22A6 - S22AA 


Eng aus 


$22AB - $22AF 


Breit ein 


$22B0 - $22B4 


Fett ein 


$22B5 - $22B9 


Fett aus 


$22BA - $22BE 


Doppel! ein 


S22BF - $22C3 


Doppelt aus 


$2204 - $2208 


Subscript ein 


$2209 - $22CD 


Superscript ein 


$22CE - $22D2 


Sub-/Superscript aus 


$22D3 - $22D7 


Zeilenvorschub 


$22D8 - $22DC 


linken Rand setzen 


$22DD - $22E1 


unteren Rand Idschen 


$22E2 - $22E6 


unteren Rand setzen 


$22E7 - $22EB 


Unterstreichen ein 


$22EC - $22F0 


Unterstreichen aus 


$22F1 - $22F5 


Drucker initialisieren 


$22F6 - $22FA 


Vorschub um eine halbe Zeile 


$22FB - $22FF 


Blattlange setzen 



Tabelle 4. Dlese Adressen steuern die Druckeranpassung 

Programm booten, so ist die einfachste Mbglichkeit, dieses 
von den oben erwahnten Kommandozeilen aus aufzurufen. 
Nachdem Sie alle Eingaben abgeschlossen haben, wer- 



den Sie aufgefordert, eine Diskette einzuiegen, die mit der 
Bootspur beschrieben wird, 

Mit <F3> konnenSieemAssemblerprogramm.dasSie 
vorher gespeichert haben, auf die Bootspur schreiben. Die- 
se Vorgehensweise eignet sich besonders, um ein Pro- 
gramm zu »verstecken«, denn Programme, die auf der 
Bootspur abgeiegt sind, warden nicht im Directory ange- 
zeigt, sondern beim Reset ausgefuhrt. 
<HELP> Standard-Directory ausgeben 

Naturlich ist auch fur alle gesorgt, die nicht darauf ver- 
zichten wollen, ihr Directory in der gewohnten Weise zu se- 
hen, Ein Druck auf < HELP > bring! das Directory in der ge- 
wohnten Weise auf den Biidschirm. Zusatzlich konnen Sie 
unter folgenden Moglichkeiten wahlen: 

< F1 > Anzeige alter PRG-Files 

< F2 > Anzeige alter USR-Files 

< F3 > Anzeige alter SEQ-Files 
<F4> Anzeige alter REL-Files 
<F7> Laufwerk umschalten 

<F8> Ausgabe zwischen Drucker und Monitor 

umschalten 
<ESC> zuriick Ins Hauptmenu 

Jede andere Taste (einschliefilich < HELP>) bringt ein 
vollstandiges Directory auf das aktuelle Ausgabe-Gerat. 

<ESC> Programm beenden 

Damit wird das Programm zwar beendet, aber nicht aus 
dem Speicher entfernt, es bleibt resident und kann jeder- 
zeit mit SYS 4864 wieder gestartet werden. 

{Johann Waldhausl/so) 



16c8 


a9 00 8d 00 ff ad 06 d5 


06 


1810 


a9 0a 8d 74 25 18 ad 9a 


af 


1958 : 


29 


20 


le 


2d 20 f f lb 20 6d 


16d0 


09 07 8d 06 d5 8e 00 ff 


53 


1818 


13 6d 98 13 48 ad 9b 13 


fl 


1960 : 


bl 


2c 


a9 


00 4c bl 19 e9 dc 


16d8 


a2 80 86 f7 a9 00 20 90 


97 


1820 


6d 99 13 aa 68 18 6d 9c 


aa 


1968 ; 


83 


fO 03 4c 79 19 20 92 b4 


16e0 


ff a9 17 a2 69 85 2d 86 


52 


1828 


13 48 8a 69 00 aa 68 aO 


67 


1970 : 


lc 


20 


bl 


2c a9 00 4c bl bd 


I6e8 


2e 18 69 02 8d 10 12 8a 


74 


1830 


00 20 24 25 68 8d 74 25 


fd 


1978 ; 


19 


c9 


86 


fO 03 4c 8f 19 33 


16fO 


69 00 8d 11 12 a9 01 a2 


97 


1838 


60 ad 90 13 c9 03 dO 03 


f3 


1980 : 


a9 


lb 


a2 


le 20 ff 22 20 ee 


X6f8 


41 85 2f 86 30 85 31 86 


99 


1840 


20 62 13 60 ad 90 13 e9 


al 


1988 : 


bl 


2c 


a9 


00 4c bl 19 c9 04 


1700 


32 85 33 86 34 a9 ff a2 


68 


1848 


03 dO 03 20 68 13 60 20 


59 


1990 : 


85 


fO 


03 


4c a5 19 a9 02 a6 


1708 


e9 85 35 86 36 85 39 86 


53 


1850 


36 24 20 5f 13 20 6e 13 


9e 


1998 : 


a2 


13 


20 


ff 22 20 bl 2c Oe 


1710 


3a aO 00 a9 01 99 00 10 


Cd 


1858 


20 b9 25 20 7d ff 49 4e 


3c 


19a0 : 


a9 


00 4c 


bl 19 c9 55 fO aa 


1718 


c8 cO 0a dO f8 s2 81 8a 


9d 


1860 


53 45 52 54 20 44 49 53 


65 


19a8 : 


03 


4c 


bl 


19 20 84 33 a9 a7 


1720 


99 00 10 c8 e8 eO 8b dO 


3c 


1868 


4b 20 54 4f 20 42 45 20 


2c 


19b0 : 


lb 


c9 


lb 


dO 03 4c bb 19 44 


1728 


f6 20 f9 24 20 5b 53 20 


9c 


1870 


48 4l 4e 44 4c 45 44 20 


b5 


19b8 : 


4c 


Oa 


19 


20 5f 13 a9 00 89 


1730 


a6 28 20 fl 24 ad 9f 13 


85 


1878 


41 4e 44 20 48 49 54 20 


56 


19c0 : 


60 20 e6 24 20 77 la aO d6 


1738 
1740 


8d 1c 01 4c d4 34 a9 00 


33 


1880 


20 20 12 Of 20 20 53 50 


08 


19c8 : 


00 


bl 


fc 


aa c8 bl fc c8 d5 


aa 4c 16 2f a9 ff a2 00 


al 


1888 


41 43 45 20 20 92 8f 00 


95 


19d0 : 


c8 


91 


fc 


88 8a 91 fc ce 78 


1748 


4c 16 2f a9 00 a2 ff 4e 


4e 


1890 


20 68 13 20 e4 ff c9 lb 


59 


19d8 : 


Oe 


la 


ad 


Oe la cd Of la al 


1750 


16 2f a9 ff aa 4c 16 2f 


2c 


1898 


fO 04 c9 20 dO f5 60 a2 


84 


19e0 : 


bO 


e2 


20 


fl 24 60 80 12 b3 


1758 


a9 00 a2 ea 85 fc 86 fd 


5e 


18a0 


11 aO Oa 20 c3 25 20 6e 


4b 


19e8 : 


00 


2d 


2d 


2d 2d 2d 2d 2d bb 


1760 


a9 00 8d 98 13 8d 99 13 


aa 


18a8 


13 20 7d ff 50 4c 45 4l 


2a 


19f0 : 


2d 


2d 


2d 


2d 2d 2d 2d 2d fO 


1768 


aO 04 20 e6 24 bl fc 18 


e3 


18b0 


53 45 20 53 45 4c 45 43 


6b 


19f8 ; 


2d 


00 


00 


00 00 00 00 00 26 


1770 


6d 98 13 8d 98 13 90 04 


0c 


18b8 


54 20 3a 20 00 a9 17 a2 


9e 


laOO : 


00 


00 


00 


00 00 00 00 00 01 


1778 


ee 99 13 18 c8 c8 c8 c8 


82 


18c0 


la 60 20 4f 18 c9 lb dO 


da 


la08 : 


00 


00 


00 


00 00 00 00 00 09 


1780 


cO 48 fO'fS cO 8d 90 e5 


46 


18c8 


03 4c bb 19 20 5f 13 20 


8d 


lalO : 


00 


00 


00 


00 00 00 00 00 11 


1788 


■ ad 93 13 f 14 aO dd 18 


dO 


18d0 


c2 24 20 44 17 ad 81 33 


80 


lalS : 


00 


00 


00 


00 00 00 00 00 19 


1790 


bl fc 6d 98 13 8d 98 13 


54 


18d8 


10 03 4c bb 19 20 2c 15 


62 


la20 : 


00 


00 


00 


00 00 00 00 00 21 


1798 


90 03 ee 99 13 18 c8 dO 


4f 


18e0 


20 5F 13 20 72 2b 20 7a 


6f 


la2S : 


00 


00 


00 


00 00 00 00 00 29 


17a0 


ef 20 f 1 24 60 ad 74 25 


30 


18e8 


13 20 aa 2a a9 00 8d 38 


3c 


la30 : 


00 


00 


00 


00 00 00 00 00 31 


17a8 


48 a9 0a 8d 74 25 aO 00 


ec 


18f0 


16 ad 38 16 8d d8 2c a9 


51 


la38 : 


00 


00 


00 


01 20 e6 24 20 63 


17b0 


ae 99 13 ad 98 13 20 24 


90 


18f8 


06 a2 00 20 2e ca 20 5f 


ec 


la40 : 


77 


la 


aO 


00 bl fc 8d 10 46 


17b8 


25 68 8d 74 25 60 a9 00 


ff 


1900 


13 a9 03 a2 10 aO 03 20 


4f 


la48 : 


la 


c8 


bl 


fc 8d 11 la 4c 35 


17c0 


8d 9a 13 8d 9b 13 8d 38 


0a 


1908 


d7 2b 20 e4 ff c9 2b fO 


f6 


la50 : 


55 


la 


20 


77 la aO 02 bl bb 


17c8 


16 ee 38 16 20 39 16 a5 


96 


1910 


03 4c 2d 19 20 b3 25 ae 


39 


la58 : 


fc 


88 


88 


91 fe c8 c8 cS b7 


17d0 


• fc dO 05 a5 fd dO 01 60 


55 


1918 


38 16 eO 90 fO 05 ad bO 


f5 


la60 : 


bl 


fc 


88 


88 91 fc ee Oe 9b 


17d8 


aO lc 20 04 25 a8 8a 18 


01 


1920 


2c fO ce a9 00 8d 38 16 


27 


la68 : 


la 


ad 


Oe 


la cd Of la fO bf 


17e0 


6d 9a 13 8d 9a 13 98 6d 


90 


1928 


fO c7 4c bl 19 c9 81 fO 


Od 


la70 : 


el 


90 


df 


20 f 1 24 60 a2 9c 


17e8 


9b 13 8d 9b 13 4c o9 17 


cd 


1930 


03 4c 4a 19 20 9f 18 aO 


bO 












17f0 


. 20 be 17 ad 74 25 48 a9 


dO 


1938 


Oc 20 6f 29 20 le 2d 20 


3d 












17f8 


• Oa 8d 74 25 aO 00 ad 9a 


81 


1940 


8e la 20 bl 2c a9 00 4c 


c2 












1800 


13 ae 9b 13 20 24 25 68 


3c 


1948 


bl 19 c9 82 fO 03 4c 67 


70 


Listing 1. 


■•Power 128/v1.1« bttte mit 


1808 

v 


8d 74 25 60 ad 74 25 48 


c8 


1950 


19 20 9f 18 aO 04 20 6f 


ee 


dem MSE 


(Seite 158) eingeben 
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la78 


00 aO fd 86 fc 84 fd 8d 


If 


lcc8 


aO 00 a9 e6 91 fc c8 a9 


27 


lf!8 


a9 2d 20 d2 ff ca dO f8 46 


ia80 


' Oe la Oa 90 02 e6 fd 85 


8a 


IcdO 


19 91 fc 20 fl 24 60 20 • 


f7 


lf20 


20 7a 13 20 7a 13 20 9e 44 


la88 


fc 60 20 89 13 60 ad cd 


74 


lcd8 


4f 18 c9 lb dO 03 4c 71 


42 


If 28 


le ad 4b If aO 03 20 d7 26 


la90 


2d dO Oc ad cc 2d 8d cd 


e6 


IceO 


le 20 5f 13 20 c2 24 20 


32 


lf30 


2b 20 7a 13 a2 4f a9 3d 32 


la98 


2d ad cb 2d 8d cc 2d 38 


99 


lce8 


44 17 ad 81 33 10 03 4c 


ac 


lf38 


20 d2 ff ca dO f8 20 7a 65 


laaO 


ad cc 2d ed cb 2d c9 15 


34 


lcfO 


71 le 20 2c 15 20 5f 13 


f4 


lf40 


13 20 7a 13 a9 00 8d 20 75 


laa8 


bO eO 8d 12 la 6d cd 2d 


Od 


lcf8 


20 72 2b 20 7a 13 20 aa 


36 


lf48 


27 60 00 03 8d 4b 20 20 f4 


labO 


ae 3b la fO 04 38 ed 12 


7e 


IdOO 


2a ad 28 15 8d 4a If a9 


a9 


lf50 


5f 13 a2 06 aO Oa 20 c3 05 


lab8 


la cd 28 15 bO cc ad cb 


25 


ld08 


00 8d 38 16 ad 38 16 8d 


bO 


lf58 


25 20 cc ff 20 6e 13 20 c2 


laeO 


2d 20 77 la 20 e6 24 aO 


2a 


IdlO 


d8 2c a9 06 a2 00 20 2e 


30 


lf60 


7d ff 50 4c 45 41 53 45 bl 


lae8 


00 ce Oe la ee Oe la bl 


21 


ldl8 


ca 20 5f 13 a9 03 a2 10 


8a 


lf68 


20 45 4e 54 45 52 20 4c 49 


ladO 


fc 99 13 la c8 bl fc 99 


e2 


ld20 


aO 03 20 d7 2b 20 e4 ff 


8c 


lf70 


4i 42 45 4c 2d 48 45 41 5a 


lads 


13 la c8 ad Oe la cd cc 


63 


ld28 


e9 2b fO 03 4c 48 Id 20 


df 


lf78 


44 45 52 20 20 28 20 00 bb 


laeO 


2d 90 e9 20 fl 24 ad cd 


66 


ld30 


b3 25 ae 38 16 eO 90 fO 


b5 


lf80 


ad 4c 20 20 fb f9 48 8a 25 


lae8 


2d cd cb 2d 90 38 cd cc 


30 


1338 


05 ad bO 2c fO ce a9 00 


f2 


If 88 


20 d2 ff 68 20 d2 ff 20 f7 


lafO 


2d bO 03 4c 8a la ae 3b 


6a 


ld40 


8d 38 16 fO c7 4e 67 le 


46 


lf90 


7d ff 20 43 48 41 52 2e b2 


lafS 


la fO Oc 8d Of la 38 ed 


be 


ld48 


c9 81 fO 03 4c 65 Id 20 


13 


lf98 


20 4d 41 58 2e 20 29 00 43 


lbOO 


12 la 8d cd 2d 10 07 18 


dc 


ld50 


9f 18 aO Oe 20 6f 29 20 


07 


IfaO 


a2 06 aO 00 20 c3 25 a9 76 


lb08 


6d 12 la 8d Of la ad cc 


c9 


ld58 


le 2d 20 8e la 20 bl 2c 


a8 


lfa8 


21 20 d2 ff ae 4d 20 ca f9 


lb 10 


2d 20 3c la ee Of la ee 


Ob 


ld60 


a9 00 4c 67 le c9 82 fO 


25 


IfbO 


a9 2d 20 d2 ff ca dO f8 de 


lb 18 


cc 2d ad cc 2d cd cb 2d 


4a 


ld68 


03 4c 82 id 20 9f 18 aO 


76 


lfb8 


a9 21 20 d2 f f ae 4e 20 43 


lb20 


10 ef 20 47 lb 60 ae ed 


24 


ld70 


04 20 6f 29 20 le 2d 20 


6d 


IfcO 


ca ca a9 2d 20 d2 ff ca 2e 


lb28 


2d 8e Of la ee cb 2d ad 


ff 


ld78 


ff lb 20 bl 2e a9 00 4c 


ec 


lfc8 


dO f8 a9 21 20 d2 ff 20 7c 


lb30 


cb 2d 20 el 19 ee Of la 


4c 


ld80 


67 le c9 83 fO 03 4c 94 


5b 


IfdO 


68 13 a2 09 aO 00 20 c3 9e 


lb38 


ee cb 2d ad cb 2d cd ec 


04 


ld88 


id 20 92 le 20 bl 2c a9 


71 


lfd8 


25 ae 4c 20 a9 Id aO 20 b2 


lb40 


2d dO ef 20 47 lb 60 ad 


ff 


ld90 


00 4e 67 le c9 85 fO 03 


e6 


lfeO 


20 88 28 a9 Of a2 00 ac e3 


lb48 


cd 2d 20 e6 24 20 77 la 


e6 


ld98 


4e ef Id 8d 9d le 20 5f 


df 


lfeS 


4c 20 20 6f 29 20 b3 25 e7 


lb 50 


aO 00 b9 13 la 91 fc c8 


75 


IdaO 


13 a2 06 aO Oa 20 e3 25 


95 


IffO 


a9 Id aO 20 20 b8 28 20 fd 


lbsa 


b9 13 la 91 fc c8 ce 12 


c9 


lda8 


ad 51 20 fO la a9 2d 20 


08 


lff8 


e2 ca 60 a9 12 a2 00 8d de 


lb60 


la 10 ef 20 fl 24 60 a9 


97 


ldbO 


e8 29 a9 3c a2 09 aO 00 


14 


2000 


7f 33 8e 80 33 a9 00 a2 92 


lb6S 


6a a2 5d aO 02 20 a3 13 


65 


ldb8 


20 61 29 a9 Of a2 Of aO 


8c 


2008 


ea 85 fe 86 ff 20 3e 2f 9e 


lb70 


20 c2 18 48 a9 29 a2 5c 


28 


IdeO 


2d 20 a2 29 4c de Id a9 


4f 


2010 


20 30 30 20 8a 2f 20 5f ba 


lb7S 


aO 02 20 a3 13 68 60 8e 


a9 


lde8 


3e 20 e8 29 a9 4b a2 09 


05 


2018 


13 20 aa 2a 60 20 20 20 f3 


lb80 


10 la 20 9f 18 aO 08 20 


80 


lddO 


aO 00 20 61 29 a9 Of a2 


06 


2020 


20 20 20 20 20 20 20 20 20 


lb8S 


6f 29 20 le 2d ad cb 2d 


21 


lddS 


Of aO 3c 20 a2 29 18 ad 


7a 


2028 


20 20 20 20 20 20 20 20 28 


lb90 


fO 2f 8d 38 16 20 39 16 


f6 


IdeO 


9e 13 69 Of 8d 9e 13 20 


9e 


2030 


20 20 20 20 20 20 20 20 30 


lb98 


20 e6 24 aO 1c ae 10 la 


f4 


lde8 


bl 2c a9 00 4c 67 le o9 


26 


2038 


20 20 20 20 20 20 20 20 38 


IbaO 


eO 85 dO 04 a9 00 fO 02 


5a 


ldfO 


88 fO 03 4c 22 le ad 51 


a7 


2040 


20 20 20 20 20 20 20 20 40 


IbaS 


a9 ff 91 fc c8 91 fc 20 


a2 


ldf8 


20 fO 06 20 4c if 4c 15 


2f 


2048 


20 20 20 00 lb 15 06 Od Od 


lbbO 


fl 24 ad ce 2d fO Oa cd 


d6 


leOO 


le 20 9f 18 aO 04 20 6f 


a3 


2050 


03 00 03 ad 28 15 48 ad 72 


lbb8 


cb 2d fO 05 ee cb 2d dO 


9a 


le08 


29 20 le 2d ae cb 2d f 


4e 


2058 


4a If 8d 28 15 ad 90 13 cl 


lbcO 


ce 20 bl 2c a9 00 60 ad 


06 


lelO 


09 eS 8e 28 15 a9 00 8d 


fO 


2060 


c9 03 fO 09 20 75 22 20 7f 


lbc8 


cb 2d fO 30 8d 38 16 8a 


74 


lel8 


38 16 20 bl 2c a9 00 4c 


42 


2068 


5d 22 20 69 22 ad 4b 20 09 


IbdO 


48 20 39 16 68 aa 20 e6 


64 


le20 


67 le c9 87 fO 03 4c 43 


de 


2070 


dO 03 4c cb 20 ad 90 13 26 


lbd8 


24 aO 00 bl fc eO 83 fO 


49 


le28 


le 20 5f 13 20 62 13 a2 


37 


2078 


c9 03 fO 06 20 Of 22 20 03 


IbeO 


05 29 bf 4c e8 lb 09 40 


ff 


le30 


01 8e 91 13 ca 8e 38 16 


6d 


2080 


27 22 ae 4d 20 a9 Id aO 13 


lbe8 


91 fe 20 fl 24 ad cc 2d 


7b 


le38 


20 CO le a9 00 8d 91 13 


4e 


2088 


20 20 88 28 ad 90 13 c9 If 


IbfO 


fO Oa cd cb 2d fO 05 ee 


le 


le40 


4e 67 le c9 50 fO 03 4c 


32 


2090 


03 fO 12 20 09 22 20 2d 10 


lbf8 


cb 2d dO cb a9 00 60 ad 


7f 


le48 


67 le 20 e8 14 a2 01 20 


7e 


2098 


22 20 Of 22 20 27 22 20 d7 


IcOO 


28 15 8d Of la ad cb 2d 


91 


le50 


c9 ff a9 00 cd 91 13 fO 


lb 


20a0 


21 22 20 33 22 ae 4e 20 52 


icoe 


dO 03 4c 91 1c 20 3c la 


87 


le58 


Oe 8d 38 16 20 CO le 20 


be 


20a8 


18 ad 4d 20 69 Id 48 a9 e2 


lclO 


ce 28 15 20 36 24 20 bl 


a4 


le60 


7a 13 20 e8 14 a9 lb c9 


18 


20bO 


20 69 00 a8 68 20 88 28 94 


lclg 


2c 20 6e 13 20 7d ff Od 


5a 


le68 


lb do 03 4e 71 le 4c 25 


b9 


20b8 


ad 90 13 c9 03 fO 09 20 c7 


lc20 


Od 20 20 20 20 20 20 20 


Od 


le70 


Id 20 5f 13 a9 00 60 a9 


47 


20c0 


2d 22 20 39 22 20 6f 22 53 


lc28 


48 49 54 20 20 3e 20 45 


Id 


le78 


ec a2 5f aO 02 20 a3 13 


77 


20e8 


20 7a 13 ad 90 13 c9 03 6f 


lc30 


53 43 20 3e 20 20 54 4f 


e8 


le80 


ad 51 20 fO 09 a9 2d a2 


d4 


20d0 


fO 09 20 09 22 20 27 22 72 


lc38 


20 52 45 43 4f 56 45 52 


9c 


le88 


61 aO 04 20 a3 13 20 d7 


41 


20d8 


20 15 22 20 83 21 ad 90 29 


lc40 


20 4f 52 20 20 3c 20 52 


aa 


le90 


le 48 a9 ab a2 5e aO 02 


54 


20e0 


13 c9 03 fO 09 20 2d 22 41 


lc48 


45 54 55 52 4e 20 3e 20 


76 


le98 


20 a3 13 68 60 00 ad 28 


69 


20e8 


20 lb 22 20 6f 22 68 8d e7 


lc50 


20 54 4f 20 41 43 43 45 


38 


leaO 


15 c9 20 bO 03 a2 Oa 60 


e6 


20f0 


28 15 ad 9d le fO 1c 20 dc 


lc58 


50 54 00 20 e4 ff c9 lb 


82 


lea8 


c9 3e bO 03 a2 14 60 c9 


fd 


20 f8 


7a 13 ad 90 13 c9 03 fO e7 


lc60 


fO 04 c9 Od dO f5 c9 lb 


80 


lebO 


5c bO 03 a2 le 60 c9 7a 


7a 


2100 


03 20 15 22 a9 3c 20 66 67 


lo68 


dO 27 ad cb 2d 8d Of la 


60 


leb8 


bO 03 a2 28 60 a2 32 60 


3c 


2108 


29 ad 90 13 c9 03 f 03 Od 


lc70 


ad 28 15 8d Oe la 20 cl 


de 


lecO 


a9 01 8d 20 27 ad 51 20 


b7 


2110 


20 lb 22 20 7a 13 ad 90 63 


lc78 


19 ad 10 la aa ad 11 la 


40 


lec8 


fO 03 4c 53 20 ad 28 15 


f2 


2118 


13 c9 03 fO Of 20 09 22 49 


lc80 


aO 01 20 e6 24 91 fc 8a 


5e 


ledO 


48 ad 4a If 8d 28 15 ad 


2f 


2120 


20 27 22 20 15 22 20 3f c2 


lc88 


88 91 fe 20 fl 24 ee 28 


68 


led8 


90 13 c9 03 fO 06 20 09 


96 


2128 


22 20 7b 22 ae 4f 20 ad bf 


lc90 


15 60 ad 28 15 c9 91 90 


4d 


leeO 


22 20 57 22 a2 4f a9 3d 


f2 


2130 


4b 20 fO 02 ca ca ad 9d fd 


lc98 


Od ee 28 15 ce 28 15 a9 


9f 


lee8 


20 d2 ff ca dO f8 20 7a 


15 


2138 


le fO 02 ca ca ad 90 13 2b 


IcaO 


07 20 d2 ff dO 30 20 9f 


ba 


lefO 


13 20 83 21 20 7a 13 68 


Ob 


2140 


c9 03 fO 14 8a 48 ca ca f5 


lca8 


18 aO 04 20 6f 29 ee 28 


62 


lef8 


8d 28 15 ad 9d le fO 16 


4f 


2148 


8a 18 6d 52 20 8d fc 22 2b 


lcbO 


15 20 le 2d ad cb 2d fO 


d2 


lfOO 


a2 4f a9 2d 20 d2 ff ca 


88 


2150 


20 81 22 20 5d 22 68 aa 9b 


lcb8 


e3 8d Of la ad 28 15 8d 


f4 


lf08 


dO f8 20 7a 13 ad 9e 13 


eb 


2158 


ac 08 22 ad 50 20 20 d7 7d 


lccO 


Oe la 20 cl 19 20 e6 24 


92 


lflO 


20 66 29 20 7a 13 a2 4f 


lb 


2160 


2b ad 90 13 c9 03 fO 12 85 



88 
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2168 


20 2d 22 ad 9d 13 20 d2 


re 


23b8 


00 a2 ea 84 fe 86 ff aO 


ba 


2608 


aO fO 18 a2 05 a9 20 20 


d9 






2170 


f f 20 4b 22 20 lb 22 20 


> 


23c0 


ff 20 e6 24 91 fe 20 fl 


83 


2610 


d2 ff ca dO f8 a2 00 bd 


ef 






2178 


75 22 a9 00 8d 20 27 8d 


ft 


23c8 


24 88 cO 04 90 Oc cO 90 


6f 


2618 


49 26 20 d2 f f e8 eO 04 


a9 






2180 


38 16 60 20 cS 25 a2 03 


21 


23dO 


90 ef cO dd bO eb aO 8f 


50 


2620 


dO f5 60 a2 05 a9 20 20 


b6 






2188 


a9 20 20 d2 ff ea dO f8 


2i 


23d8 


dO e7 60 a2 3c a9 00 9d 


55 


2628 


d2 ff ea dO f8 a2 04 bd 


f7 






2190 


20 d8 25 ad 51 20 dO Oa 


3? 


23e0 


17 29 ca 10 fa 60 a2 00 


7e 


2630 


49 26 20 d2 ff e8 eO 08 


ca 






2198 


a2 06 a9 20 20 d2 ff ca 


Si 


23e8 


bd 17 29 fO 03 e8 dO f8 


46 


2638 


dO f5 60 a2 04 bd 49 26 


Of 






21a0 


dO f8 a2 02 a9 20 20 d2 


9*i 


23 fO 


ca 8e 3^ 24 20 9f 18 aO 


74 


2640 


20 d2 ff e8 eO Od dO f5 


8c 






21a8 


ff ca dO f8 20 02 26 a2 


4f 


23 f 8 


08 20 6f 29 20 le 2d ad 


14 


2648 


60 31 35 37 31 31 35 37 


55 






21b0 


03 a9 20 20 d2 ff ca dO 


Be 


2400 


cb 2d fO 2d 8d 38 16 20 


77 


2650 


30 2f 31 35 34 31 a9 01 


80 






21b8 


f8 20 e2 26 a2 03 a9 20 


67 


2408 


39 16 aO 12 ae 35 24 20 


lc 


2658 


a2 00 aO 30 8c 24 15 8c 


80 






21c0 


20 d2 ff ca dO f8 a2 5d 


bd 


2410 


e6 24 bd 17 29 91 fc 88 


7f 


2660 


25 15 8c 26 15 20 9e 26 


11 






21c8 


bd 97 3o 20 d2 ff e8 eO 


fc" 


2418 


ca ID f7 a9 aO 91 fc 20 


e8 


2668 


ad 95 13 c9 43 dO 26 ad 


8d 






21d0 


62 dO f 5 ae 28 15 ca aO 


s; 


2420 


fl 24 ad cc 2d fO Oa ed 


46 


2670 


96 13 c9 42 dO If ad 97 


36 






21d8 


00 8a &2 00 20 24 25 20 


be 


2428 


cb 2d fO 05 ee cb 2d dO 


Oa 


2678 


13 c9 4d dO 18 a9 36 8d 


aO 






21e0 


e8 25 20 58 17 20 a5 17 


*S 


2430 


ce 20 bl 2c 60 00 a9 02 


bl 


2680 


26 15 a9 00 20 3e 2f 20 


8c 






21e8 


ad 51 20 dO Od a2 2c bd 


75 


2438 


a2 00 20 2e ca a9 17 a2 


44 


2688 


ae 26 ae 95 13 e8 8e 9c 


94 






21f0 


97 3c 20 d2 ff e8 eO 33 


31 


2440 


4f 20 Id ca 60 a9 00 20 


d4 


2690 


13 8a 4c 9a 26 a9 00 8d 


la 






2 If 8 


dO f5 a2 33 bd 97 3c 20 


9c 


2448 


c3 ff a9 Od 20 c3 ff 20 


77 


2698 


9c 13 3d 94 13 60 8d 7f 


Id 






2200 


d2 ff e8 eO 38 dO f5 60 


cb 


2450 


co ff 20 89 13 a9 15 a2 


6d 


26a0 


33 Se 80 33 a9 00 20 3e 


38 






2208 


04 a2 00 aO 02 dO 78 a2 


3! 


2458 


Of 20 2e ca a9 18 a2 41 


c5 


26a8 


2f a9 31 20 e2 2f 20 Oc 


3c 






2210 


05 aO 02 dO 72 a2 Oa aO 


a<5 


2460 


20 Id ca a9 Of 20 d2 ff 


34 


26bO 


15 a2 Od 20 06 ff aO 03 


53 






2218 


02 dO 6c a2 Of aO 01 dO 


Sg 


2468 


20 5f 13 20 6b 13 20 b3 


38 


26b8 


a2 00 20 cf ff 9d 95 13 


c6 






2220 


66 a2 14 aO 01 dO 60 a2 


4e 


2470 


25 a9 ff 8d 81 33 20 7d 


49 


26cO 


e8 88 dO f6 20 8a 2f 60 


d3 






2223 


19 aO 02 dO 5a a2 le aO 


aG 


2478 


ff 20 53 4f 52 52 59 2c 


be 


26c8 


aO 00 a2 00 ad 9c 13 20 


5d 






2230 


02 dO 54 a2 23 aO 02 dO 


65 


2480 


20 00 60 20 7d f f 20 20 


55 


26dO 


24 25 60 a9 00 a2 ea 85 


aO 






2233 


4e a2 28 aO 02 dO 48 a2 


03 


2488 


20 20 44 45 42 55 47 20 


9e 


26d8 


fc 86 fd aO 02 20 04 25 


26 






2240 


2d aO 03 dO 42 a2 32 aO 


db 


2490 


53 59 53 54 45 4d 20 41 


bl 


26eO 


8a 60 a9 52 20 d2 ff a9 


3b 






2248 


03 dO 3c a2 37 aO 02 dO 


39 


2498 


4e 44 20 48 49 54 20 20 


11 


26e8 


2f 20 d2 ff 20 d3 26 o9 


a9 






2250 


36 a2 3c aO 03 dO 30 a2 


b7 


24a0 


3e 53 50 4l 43 45 3e 00 


19 


26f0 


41 fO 06 a9 4f 20 d2 ff 


al 






2258 


41 aO 03 dO 2a a2 46 aO 


d£ 


24a8 


20 e4 ff c9 lb fO 04 e9 


50 


26f8 


60 a9 57 20 d2 ff 60 aO 


f7 






2260 


02 dO 24 a2 4b aO 03 dO 


8f 


24b0 


20 dO f5 a9 8f 20 d2 ff 


30 


2700 


00 20 04 25 8a 29 07 8d 


df 






2268 


le a2 50 aO 03 dO 18 a2 


5e 


24b8 


20 68 13 20 5f 13 20 36 


51 


2708 


If 27 Oa Oa aa aO 03 bd 


b6 






2270 


55 aO 03 dO 12 a2 5a aO 


dl 


24cO 


24 60 20 36 24 20 5f 13 


ca 


2710 


21 27 20 d2 ff ad 20 27 


63 






2278 


02 dO Oc a2 5f aO 03 dO 


e2 


24c8 


a2 00 aO 00 20 c3 25 20 


87 


2718 


dO 04 e8 88 dO fl 60 00 


54 






2280 


06 a2 64 aO 03 dO 00 cO 


3d 


24d0 


71 13 20 7d ff 49 27 4d 


04 


2720 


00 44 45 4c 20 53 45 51 


72 






2288 


00 fO Oa bd 96 22 20 d2 


at 


24d8 


20 42 55 53 59 20 2e 2e 


85 


2728 


20 50 52 47 20 55 53 52 


8c 






2290 


ff e8 88 dO f6 60 lb 4d 


bS 


24e0 


2e 00 20 68 13 60 48 a9 


cc , 


2730 


20 52 45 4c aO 00 20 04 


e7 






2298 


00 00 00 lb 50 00 00 00 


01 


24e8 


7f 8d 00 ff 68 60 20 cc 


dl 


2738 


25 8a 29 80 fO If 8a 29 


81 






22a0 


lb Of 00 00 00 12 00 00 


14 


24f0 


ff 48 a9 02 8d 00 ff 68 


68 


2740 


40 fO Od ad 6a 27 20 d2 


f7 






22a8 


00 00 Oe 00 00 00 00 lb 


62 


24 f 8 


60 48 ad 00 ff 09 02 8d 


53 


2748 


ff ad 6b 27 20 d2 ff 60 


37 






22b0 


45 00 00 00 lb 46 00 00 


& 


2500 


00 ff 68 60 20 e6 24 bl 


53 


3750 


ad 6c 27 20 d2 ff ad 6d 


cO 






22b8 


00 lb 47 00 00 00 lb 48 


L! 


2508 


fo aa c8 bl fc 20 fl 24 


a2 


2758 


27 20 d2 ff 60 ad 6e 27 


bf 






22c0 


00 00 00 lb 53 01 00 00 


6; 


2510 


60 85 60 86 61 84 62 20 


20 


2760 


20 d2 ff ad 6f 27 20 d2 


f5 






22c8 


lb 53 00 00 00 lb 54 00 


M 


2518 


07 ba a9 00 a2 08 aO 03 


da 


2768 


ff 60 52 4f 52 57 2a 2a 


O 






22d0 


00 00 lb 4a 14 00 00 lb 


58 


2520 


20 5d ba 60 85 60 86 61 


e2 


2770 


aO lc 20 04 25 a8 Ba 48 


f9 






22d8 


6c Oa 00 00 lb 4f 00 00 


76 


2528 


84 62 20 07 ba a9 00 a2 


05 


2778 


98 aO 00 aa 68 8d 87 27 


15 






22e0 


00 lb 4e 05 00 00 lb 2d 


6S 


2530 


08 aO 03 8d b4 Oa 8c b6 


36 


2780 


8e 88 27 20 24 25 60 00 


Od 






22e6 


01 00 00 lb 2d 00 00 00 


2C 


2538 


Oa ac b6 Oa a9 00 Oe a3 


al 


2788 


00 20 9d 27 a2 01 20 c9 


2b 






22f0 


lb 40 00 00 00 lb 4l 06 


15 


2540 


Oa 2e a2 Oa 2e al Oa 2e 


cO 


2790 


ff &0 00 ad 95 13 ae 96 


6f 




22f8 


00 00 lb 43 00 00 00 8d 


43 


2548 


aO Oa 2a 88 10 fO a8 dO 


56 


2798 


13 20 24 25 60 ad 94 13 


55 




2300 


96 23 8e 97 23 a9 01 8d 


5d 


2550 


09 eO 01 fO 05 ac b4 Oa 


c4 


27aO 


fO 15 ad 80 33 dO 10 ad 


ec 






2308 


91 23 ee 91 23 ad 91 23 


4; 


2558 


fO 11 ec 74 25 10 08 ee 


6b 


27a8 


7f 33 c9 01 dO 09 a9 00 


4f 






2310 


cd 28 15 90 01 60 ad 91 


36 


2560 


b4 Oa 09 30 20 d2 ff ca 


90 


27bO 


8d 95 13 Bd 96 13 60 a9 


55 






2318 


23 8d 92 23 ad 96 23 8d 


42 


2568 


dO cf 60 ec 74 25 10 f7 


76 : 


27b8 


30 8d 24 15 8d 25 15 a9 


04 






2320 


93 23 ee 93 23 ce 92 23 


ac 


2570 


a9 20 dO fO 05 a9 01 2c 


75 


27cO 


32 8d 26 15 20 a4 26 60 


66 






2328 


fO 40 ad 91 23 8d 38 16 


82 


2578 


a9 00 85 80 20 36 24 20 


17 


27c8 


ad 95 13 dO 09 ad 96 13 


9d 






2330 


20 39 16 ac 93 23 20 e6 


:i : ; 


2580 


68 13 20 5f 13 a2 00 aO 


ed 


27dO 


dO 04 aa 4e f7 27 ad 87 


55 






2338 


24 bl fc 20 fl 24 8d 94 


18 


2588 


16 20 c3 25 a2 16 a9 03 


cb 


27d8 


27 ae 88 27 85 2a 86 2b 


77 






2340 


23 ad 92 23 8d 38 16 20 


76 


2590 


20 2e ca a2 36 a9 16 20 


is ; 


27e0 


a9 00 a2 01 85 72 86 73 


3f 






23^8 


39 16 ac 93 23 20 e6 24 


41 


2598 


Id ca a9 00 85 81 20 8a 


7f 


27e8 


20 fd 27 8a 18 6d 95 13 


8b 






2350 


bl fc 20 fl 24 3d 95 23 


11 


25a0 


aO 20 fl 24 20 36 24 20 


d6 


27fO 


48 98 6d 96 13 aa 68 aO 


lc 






2358 


c9 aO fO 05 cd 94 23 bO 


bd 


25a8 


3e 2f 20 8a 2f a9 00 60 


d8 


27f8 


00 20 24 25 60 a9 10 85 


55 






2360 


21 ae 92 23 e8 ea 91 23 


64 


25b0 


38 bO 11 a2 00 aO 00 fO 


cO 


2800 


5f 18 a2 00 aO 00 8a Oa 


5c 






2368 


fO aO ad 91 23 8d cb 2d 


6e 


25b8 


Oa 20 36 24 20 5f 13 a2 


73 


2808 


aa 98 2a a8 bO 16 06 72 


57 






2370 


ae 92 23 e8 8e cc 2d a9 


aS 


25c0 


Oa aO Oa 18 20 fO f f 60. 


ea , 


2810 


26 73 90 Ob 18 8a 65 2a 


35 






2378 


00 8d cd 2d 20 8e la 4c 


of 


25c8 


a9 00 a2 ea 85 fc 86 fd 


ce 


2818 


aa 96 65 2b a8 bO 05 c6 


7f 






2380 


Oa 23 dO 98 ad 93 23 cd 


03 


25d0 


aO 8f a9 10 20 6c 16 60 


23 


2820 


5f dO e3 60 a9 00 aa a8 


83 






2388 


97 23 bO de ee 92 23 dO 


6a 


25d8 


a9 00 a2 ea 85 fc 86 fd 


de 


2828 


18 60 ad 7c 33 cd 9f 13 


bl 






2390 


91 00 00 00 00 00 00 00 


22 


25e0 


aO al a9 05 20 6c 16 60 


da 


2830 


fO 05 ad 9f 13 dO 03 ad 


21 






2398 


a9 00 a2 ea 85 fe 86 ff 


b2 


25e8 


a9 00 a2 ea 85 fc 86 fd 


ee 












23a0 


a2 00 bd 17 29 20 e6 24 


Oc 


25f0 


aO 02 20 04 25 8d 93 13 


4d 












23&S 


91 fe 20 fl 24 ec 14 29 


4fc 


25f8 


29 80 dO 05 aO ab 20 04 


26 
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2838 


aO 13 8d 7c 33 8d lc 01 


67 


2a88 : 


24 20 5f 13 20 cc 24 aO 


31 


2cd8 


00 a2 00 86 16 86 17 c9 


80 






2840 


a9 Oe aO Of ae 7c 33 20 


d6 


2a90 : 


00 ae 7c 33 20 ba ff ad 


aO 


JceO 


2d fO Oc c9 aO fO 08 c9 


07 






2848 


ba ff a9 00 20 bd ff 20 


9c 


2a98 : 


a9 2a a2 Od aO 4l 20 bd 


bl 


2ce8 


30 90 04 c9 3a 90 01 60 


88 






2850 


eO ff 18 a2 Oe 20 c9 ff 


73 


2aa0 : 


ff a9 01 a2 7f 20 68 ff 


a3 


2cfO 


e9 2f 85 09 a5 17 85 24 


65 






2858 


90 lc 20 45 24 ad 7c 33 


?.! 


2aa8 : 


60 10 20 39 18 a2 00 bd 


52 


2cf8 


a5 16 Oa 26 24 Oa 26 24 


63 






2860 


20 c7 31 ad 7c 33 cd 9f 


3e 


2ab0 : 


97 3c 20 d2 ff e8 eO 07 


aO 


2dOO 


65 16 85 16 a5 24 65 17 


d4 






2868 


13 dO 05 ad aO 13 dO 03 


=6 


2ab8 : 


dO f5 20 44 18 20 c8 25 


03 


2d08 


85 17 06 16 26 17' a5 16 


3b 






2870 


ad 9f 13 8d 7c 33 20 ec 


dr 


2aoO : 


20 39 18 a2 08 bd 97 3c 


lc 


2dlQ 


65 09 85 16 90 02 e6 17 


01 






2878 


ff a9 Oe 20 e3 f f ad 7c 


bi 


2ac8 : 


20 d2 ff e8 eO Oc dO f5 


Oc 


>dl8 


20 cf ff 4c df 2c 20 5f 


48 






2880 
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30e8 


e6 ff ee 80 33 ad 80 33 


a2 


3338 : 


ad 82 33 fO 06 20 al 30 


5a 


3588 : 


45 43 54 4f 52 59 2d 45 


9d 






30f0 


cd 83 33 30 d9 4c 8a 2f 


da 


3340 : 


4e cd 32 ae 80 33 e8 ec 


f4 


3590 : 


4e 54 52 49 45 53 00 a2 


fa 






30f8 


20 ee 24 a9 00 20 3e 2f 


26 


3348 : 


83 33 dO 03 4c 3c 31 20 


a5 


3598 ; 


07 20 c3 25 20 7d ff 12 


57 






3100 


a2 Od 20 c9 ff 90 03 4c 


93 


3350 : 


8f 30 4c cd 32 a9 00 a2 


7a 


35a0 : 


97 20 46 34 20 20 20 20 


23 






3108 


8a 2f aO 01 20 5b 30 ad 


6b 


3358 : 


ea 85 fe 86 ff aO 00 8c 


b3 


35a8 : 


20 20 20 20 92 20 20 20 


cf 






3110 


81 33 30 Oc aO 00 20 e6 


11 


3360 : 


80 33 ad 82 33 30 03 4c 


8f 


35bO : 


20 20 50 52 4f 54 45 43 


72 






3118 


24 bl fe 20 f 1 24 dO 03 


62 


3368 : 


ce 30 4c f8 30 55 00 3a 


a3 


35b8 : 


54 20 41 4e 44 20 52 45 


50 






3120 


4c 3c 31 c8 20 e6 24 bl 


Id 


3370 : 


31 33 20 30 20 00 00 20 


8b 


35cO : 


4c 45 41 53 45 20 44 49 


63 






3128 


fe 20 fl 24 8d 80 33 e6 


af 


3378 : 


00 00 23 00 08 00 00 12 


e6 


35c8 r 


53 4b 53 20 41 4e 44 20 


72 






3130 . 


ff 4c f8 30 20 83 24 a9 


9b 


3380 : 


00 00 01 13 a9 12 8d 7f 


83 


35dO : 


46 49 4c 45 53 00 a2 09 


48 






3138 : 


ff 8d 81 33 60 ad 82 33 


a8 


3388 : 


33 a9 00 8d 81 33 8d 56 


d6 


35d8 ; 


20 e3 25 20 7d ff 12 9f 


87 






3140 . 


fO fa 20 45 24 20 7d ff 


97 


3390 : 


34 8d 58 34 a9 00 8d 57 


a? 


35eO : 


20 46 35 20 20 20 20 20 


39 






3148 . 


4c 4f 4f 50 2d 44 49 52 


d8 


3398 : 


34 ae 56 34 bd 44 34 8d 


29 


35e8 : 


20 20 20 92 20 20 20 20 


37 






3150 : 


45 43 54 4f 52 59 20 21 


e9 


33aO : 


80 33 a9 00 20 3e 2f a2 


la 


35f0 : 


20 53 4f 52 54 20 26 20 


f7 






3158 : 


Od 00 4c 34 31 88 20 e6 


a5 


33a8 : 


Od 20 c9 ff a9 00 20 d2 


f8 












3160 : 


24 bl fe 20 fl 24 fO d4 


ce 


33bO : 


ff 90 03 4c 8a 2f ee 58 


dO 












3168 : 


20 45 24 20 7d ff 55 4e 


02 


33b8 : 


34 ad 58 34 cd 28 15 bO 


33 


Listing 1. "Power 128/v.1.1« 








3170 : 


41 43 43 45 50 54 4l 42 


fe 


33cO : 


77 8d 38 16 20 39 16 aO 


34 


(Fortsetzung) 
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ONDERHEFT 36 






91 













































TOOLS 












C128 






35f8 


4d 4f 44 49 46 59 20 44 


5f 


3848 


05 aO Oa 20 e3 25 20 b3 


71 


3a98 


96 3c 20 e4 ff dO 09 a9 


ef 






3600 


49 52 45 43 54 4f 52 59 


e8 


3850 


29 a9 07 a2 35 20 8e 29 


3d 


3aa0 


00 Od 96 3e dO f4 fO Id 


07 






3608 


00 a2 Ob 20 c3 25 20 7d 


01 


3858 


20 36 24 a2 Oa aO Oa 20 


ff 


3aa8 


c9 lb dO 03 4c 23 3c c9 


f6 






3610 


ff 12 9a 20 46 36 20 20 


9a 


3860 


c3 25 a9 3c 20 e8 29 a9 


e9 


3abO 


20 dO ee 2d 96 3c dO 08 


b8 






3618 


20 20 20 20 20 20 92 20 


e2 


3868 


4b a2 Od aO 00 20 61 29 


35 


3ab8 


a9 20 8d 96 3c 4c 9a 3a 


ac 






3620 


20 20 20 20 50 52 49 4e 


b6 


3870 


a9 Of a2 Of aO 3c 20 a2 


dd 


3aeO 


a9 00 8d 96 3c ee 38 16 


e8 






3628 


54 20 53 45 4c 45 43 54 


ae 


3878 


29 20 36 24 20 5f 13 20 


4d 


3ae8 


20 39 16 a5 fc dO 07 a5 


7d 






3630 


45 44 20 44 49 52 45 43 


eb 


3880 


c2 24 20 44 17 ad 81 33 


30 


3adO 


fd dO 03 4c 23 3e 20 39 


87 






3638 


54 4f 52 59 00 a2 Od 20 


7d 


3888 


10 03 4c 57 3c 20 2e 15 


b7 


3ad8 


18 a2 00 bd 69 3d 20 d2 


aO 






3640 


c3 25 20 7d ff 12 9b 20 


8d 


3890 


20 5f 13 a9 d4 a2 56 aO 


57 


3aeO 


ff e8 eO 06 dO f5 20 44 


12 






3648 


46 37 20 20 20 20 20 20 


fa 


3898 


02 20 a3 13 20 a9 14 a2 


da 


3ae8 


18 a9 10 aO 02 20 6c 16 


ec 






3650 


20 20 92 20 20 20 20 20 


ed 


38a0 


01 20 c9 ff a2 05 a9 20 


5d 


3afO 


20 39 18 a2 02 bd 69 3d 


35 






3658 


50 52 49 4e 54 20 44 49 


d7 


38a8 


20 d2 ff ea dO f8 20 39 


52 


3af8 


20 d2 ff e8 eO 06 dO f5 


Oc 






3660 


53 43 2d 4c 41 42 45 4c 


fe 


38b0 


18 a2 00 bd 97 3c 20 d2 


53 


3bOO 


20 44 18 20 ff 26 20 39 


71 






3668 


53 00 a2 Of 20 c3 25 20 


3b 


38b8 


ff e8 eO 09 dO f5 20 44 


4a 


3b08 


18 a2 03 bd 69 3d 20 d2 


90 






3670 


7d f f 12 81 20 46 38 20 


f7 


38c0 


18 20 e8 25 a2 05 a9 20 


f8 


3blO 


ff e8 eO 06 dO f5 20 44 


42 






3678 


20 20 20 20 20 20 20 92 


5d 


38c8 


20 d2 ff ea dO f8 20 39 


72 


3bl8 


18 20 34 27 20 39 18 a2 


a4 






3660 


20 20 20 20 20 42 4f 4f 


ac 


38d0 


18 a2 09 bd 97 Ja 20 d2 


b5 


3b20 


03 bd 69 3d 20 d2 ff e8 


6e 






3688 


54 20 2d 20 48 45 4c 50 


be 


38d8 


ff e8 eO Oe dO f5 20 44 


Ob 


3b28 


eO 06 dO f5 20 44 18 20 


c3 






3690 


00 a2 11 20 c3 25 20 7d 


Ob 


38e0 


18 20 d8 25 a2 06 a9 20 


24 


3b30 


70 27 20 39 18 a2 03 bd 


81 






3698 


ff 12 9e 20 48 45 4c 50 


ce 


38e8 


20 d2 ff ea dO f8 20 39 


92 


3b38 


69 3d 20 d2 ff e8 eO 06 


79 






36a0 


20 20 20 20 20 20 92 20 


6a 


38f0 


18 a2 Oe bd 97 3e 20 d2 


16 


3b40 


dO f5 20 44 18 ad 74 25 


a7 






36a8 


20 20 20 20 43 42 4d 20 


aO 


38f8 


ff e8 eO Id dO f5 20 44 


Od 


3b48 


48 a9 03 8d 74 25 aO 01 


cc 






36b0 


2d 20 53 54 41 4e 44 41 


67 


3900 


18 20 02 26 20 7a 13 a2 


d5 


3b50 


20 04 25 8d 80 33 8e 7f 


48 






36b8 


52 44 2d 44 49 52 45 43 


c3 


3908 


05 a9 20 20 d2 ff ea dO 


e8 


3b58 


33 48 8a a2 00 aO 00 20 


ec 






36c0 


54 4f 52 59 00 a2 15 20 


25 


3910 


f8 20 39 18 a2 Id bd 97 


a3 


3b60 


24 25 20 39 18 a2 2e bd 


11 






36c8 


c3 25 20 7d ff 12 96 20 


01 


3918 


3c 20 d2 ff e8 eO 2c dO 


01 


3b68 


69 3d 20 d2 ff e8 eO 30 


fd 






36d0 


45 53 43 20 20 20 20 20 


58 


3920 


f5 20. 56 26 a2 01 20 c9 


c6 


3b70 


dO f 5 20 44 18 a2 00 aO 


a3 






36d8 


20 20 00 20 68 13 20 7d 


a7 


3928 


ff 20 44 18 20 c8 26 20 


6d 


3b78 


00 68 20 24 25 68 8d 74 


ee 






36eQ 


ff 92 20 20 20 20 20 45 


43 


3930 


58 17 a2 lb a9 20 20 d2 


e2 


3b80 


25 20 39 18 a2 04 bd 69 


lb 






36e8 


58 49 54 20 50 52 4f 47 


61 


3938 


ff ea dO f8 20 39 18 a2 


61 


3b88 


3d 20 d2 ff e8 eO 07 dO 


dd 






36f0 


52 41 4d 4d 20 41 4e 44 


ae 


3940 


2d bd 97 3e 20 d2 ff e8 


24 


3b90 


f 5 20 44 18 ad If 27 c9 


ad 






36f8 


20 52 45 53 54 4l 52 54 


3e 


3948 


eO 3d dO f5 20 44 18 20 


7e 


3b98 


02 dO 29 ad 74 25 48 a9 


e7 






3700 


20 53 59 53 54 45 4d 00 


2f 


3950 


a5 17 20 7a 13 a2 05 a9 


86 


3baO 


06 8d 74 25 20 89 27 20 


5a 






3708 


20 a9 14 a9 00 8d 20 27 


72 


3958 


20 20 02 ff ca dO f8 20 


94 


3ba8 


39 18 a2 2e bd 69 3d 20 


b8 






3710 


ad 90 13 cd al 13 fO 03 


00 


3960 


39 18 a2 3d bd 97 3c 20 


bf 


3bbO 


d2 f f e8 eO 30 dO f 5 20 


7a 






3718 


20 e8 14 20 e4 f f c9 81 


2e 


3968 


d2 ff e8 eO 4d dO f5 20 


03 


3bb8 


44 18 20 c8 27 68 8d 74 


fe 






3720 


fO 03 4c 2b 37 4c ed 37 


06 


3970 


44 18 20 e2 26 ad 91 13 


61 


3bcO 


25 4c d4 3b 20 39 18 a2 


19 






3728 


4a cb 37 e9 82 fO 03 4c 


b5 


3978 


f 24 a2 04 a9 20 20 d2 


65 


3be8 


35 bd 69 3d 20 d2 ff e8 


48 






3730 


38 37 4c ca 3d 4c cb 37 


44 


3980 


ff ca dO f8 a2 00 bd b8 


ca 


3bdO 


eO 41 dO f5 20 39 18 a2 


b5 






3738 


c9 83 fO 03 4c 45 37 4c 


c4 


3988 


3d 20 d2 ff e8 eO 12 dO 


09 


3bd8 


41 bd 69 3d 20 d2 ff e8 


64 






3740 


c8 45 4c cb 37 c9 84 fO 


ed 


3990 


f5 a2 05 a9 20 20 d2 ff 


9b 


3beO 


eO 44 dO f5 20 44 18 ad 


b5 






3748 


03 4c 52 37 4c fa 4l 4c 


27 


3998 


ca dO f8 4e a8 39 a2 lb 


a7 


3be8 


If 27 c9 04 dO Of aO 14 


be 






3750 


cb 37 c9 85 fO 03 4c 5f 


fl 


39a0 


a9 20 20 d2 ff ca dO f8 


47 


3bfO 


20 04 25 a2 00 aO 00 20 


f5 






3758 


37 4c 41 44 4c cb 37 c9 


22 


39a8 


20 39 18 a2 4d bd 97 3c 


59 


3bf8 


24 25 4c Od 3c 20 39 18 


3d 






3760 


86 fO 03 4c 6c 37 4c b9 


ce 


39b0 


20 d2 ff e8 eO 5d dO f5 


7e 


3cOO 


a2 44 bd 69 3d 20 d2 ff 


81 






3768 


44 4c cb 37 e9 87 fO 03 


4f 


39b8 


20 44 18 20 fO 17 20 7a 


42 


3c08 


e8 eO 48 dO f5 20 39 18 


02 






3770 


4c 79 37 4c 32 45 4c cb 


e6 


39e0 


13 a2 05 a9 20 20 d2 ff 


e9 


3clO 


a2 48 bd 69 3d 20 d2 ff 


93 






3778 


37 c9 88 fO 03 4c 86 37 


ef 


39e8 


ca dO f8 20 39 18 a2 5d 


d6 


3cl8 


e8 eO 4f dO f5 20 44 18 


00 






3780 


4c cf 4b 4c cb 37 c9 89 


cl 


39d0 


bd 97 3c 20 d2 f f e8 eO 


fe 


3c20 


4c 9a 3a a2 05 a9 20 20 


fb 






3788 


fO 03 4c 93 37 ea ea ea 


ec 


39d8 


6a dO f5 20 44 18 ae 28 


3e 


3c28 


d2 ff ca dO f8 20 39 18 


6c 






3790 


4c cb 37 e9 8a fO 03 4c 


9e 


39e0 


15 ca aO 00 8a &2 00 20 


80 


3c30 


a2 48 a9 2d 20 d2 f f ca 


35 






3798 


aO 37 4c Id 41 4c cb 37 


9f 


39e8 


24 25 ad 91 13 fO 20 a2 


bb 


3c38 


dO f8 20 44 18 20 7a 13 


a8 






37a0 


c9 lb fO 03 4c ad 37 4c 


3b 


39fO 


05 a9 20 20 d2 ff ca dO 


dO 


3c40 


ad 91 13 fO 06 ad 9d 13 


03 






37a8 


d5 37 4c cb 37 ee d3 34 


48 


39f8 


f8 a9 c3 aO 67 a2 Oe 20 


ce 


3c48 


20 d2 ff 20 de 14 a9 93 


32 






37bQ 


ae d3 34 eO 50 90 05 a2 


54 


3a00 


88 28 a2 08 a9 20 20 d2 


08 


3c50 


a2 55 aO 02 20 a3 13 a9 


c4 






37b8 


00 8e d3 34 20 59 34 a2 


5e 


3a08 


ff ca dO f8 4c 19 3a a2 


7b 


3c58 


00 8d 96 3c 4c 89 3c c9 


e2 






37c0 


aO aO ff 88 dO fd ca dO 


8b 


3al0 


lb a9 20 20 d2 ff ca dO 


06 


3c60 


87 fO 03 4c 6e 3c 20 ad 


4e 






37c8 


f8 a9 00 c9 lb dO 03 4c 


ab 


3al8 


f8 20 39 18 a2 6d bd 97 


2d 


3c68 


13 a9 00 4c 89 3c c9 88 


8c 






37d0 


d5 37 4c lb 37 20 24 ca 


52 


3a20 


3c 20 d2 ff e8 eO 7d dO 


4e 


3e70 


fO 03 4c 7d 3c 20 2f 14 


4e 






37d8 


20 5f 13 20 fl 24 aO 4e 


dO 


3a28 


f5 20 44 18 20 Oc 18 ad 


60 


3c78 


a9 00 4c 89 3c c9 8a fO 


84 






37e0 


b9 a8 ce 99 00 10 88 10 


97 


3a30 


91 13 fO Of 20 7a 13 20 


cb 


3c80 


03 4c 89 3c 20 78 25 a9 


41 






37e8 


f7 20 fl 24 60 a9 93 a2 


d7 


3a38 


7a 13 a2 4b a9 dl aO 67 


c8 


3c88 


00 c9 lb dO 03 4c 93 3c 


a7 






37f0 


55 aO 02 20 a3 13 20 03 


73 


3a40 


20 88 28 20 7a 13 20 7a 


68 


3e90 


4c 32 38 4c d4 34 00 48 


Oc 






37f8 


13 a2 Ob a9 20 20 d2 ff 


a3 


3a48 


13 a2 05 a9 20 20 d2 ff 


71 


3c98 


45 41 44 45 52 20 3a 20 


87 






3800 


ea dO f8 20 7d ff 43 4f 


f8 


3a50 


ca dO f8 20 39 18 a2 48 


34 


3caO 


49 44 20 3a 20 44 49 53 


4b 






3808 


4d 50 4c 45 54 45 20 44 


b2 


3a58 


a9 2d 20 d2 ff ca dO f8 


86 


3ca8 


4b 2d 46 4f 52 4d 41 54 


43 






3810 


49 52 45 43 54 4f 52 59 


f8 


3a60 


a2 7d bd 97 3c 20 d2 ff 


33 


3cbO 


20 20 3a 20 42 4f 4f 54 


f7 






3818 


20 49 4e 46 4f 52 4d 4l 


78 


3a68 


e8 eO d2 dO f5 a2 48 a9 


78 


3cb8 


45 44 20 42 4c 4f 43 4b 


53 






3820 


% 49 4f 4e 00 a2 12 a9 


67 


3a70 


2d 20 d2 ff ca dO f8 20 


b9 


3ccO 


53 20 3a 20 42 4c 4f 43 


00 






3328 


20 20 d2 ff ca dO f8 20 


64 


3a78 


7a 13 a2 00 bd 69 3d 20 


81 


3cc8 


4b 53 20 46 52 45 45 20 


32 






3830 


30 13 20 e4 ff e9 81 fO 


o5 


3a80 


d2 ff e8 eO 4f dO f5 ad 


57 


3edO 


20 3a 20 20 44 49 53 4b 


8c 






3838 


03 4c 5f 3c 20 36 24 20 


45 


3a88 


91 13 dO 06 20 44 18 20 


5d 


3cd8 


20 53 54 41 54 55 53 20 


5d 






3840 


5f 13 ad 91 13 fO 38 a2 


a5 


3a90 


14 ca a9 00 8d 38 16 8d 


82 


3ceO 


20 20 3a 20 42 4e 4f 43 


ed 




92 






s 


M?M=j;1!NaJcTr 


^^ 




33 


*3* 1 











































C128 












TOOLS 






3ce8 


: 4b 53 20 55 53 45 44 20 


40 


3f38 


: 4c ee 40 c9 84 fO 03 4c 


b9 


4186 


: 41 c9 82 fO 03 4e 95 41 d8 






3cf0 


: 20 3a 20 20 46 49 4e 45 


a4 


3f40 


: c4 3f 20 b9 25 20 6e 13 


16 


4190 


: a9 55 4c c5 41 c9 88 fO 16 






3c f 8 


: 53 20 54 4f 54 41 4a 20 


lb 


3f46 


: 20 7d ff 49 4e 53 45 52 


89 


4198 


: 03 4c a4 4l 20 2f 14 a9 32 






3d00 


: 20 20 3a 20 42 4c 4f A3 


Od 


3f50 


: 54 20 44 49 53 4b 20 54 


a7 


4la0 


: 00 4c c5 41 c9 83 fO 03 e2 






3d06 


: 4b 53 20 54 At 54 41 4c 


c5 


3f58 


: 4f 20 42 45 20 57 52 49 


89 


4la8 


: 4c bO 41 a9 ^3 4c c5 41 03 






3dl0 


: 20 3a 20 20 Od 20 20 20 


ec 


3f60 


: 54 54 45 4e 20 41 4e 44 


e7 


4lb0 


: c9 84 fO 03 4c be 41 a9 5b 






3dl8 


: 20 21 20 46 49 4c 45 2d 


00 


3f68 


: 20 48 49 54 20 20 3c 20 


bd 


4lb8 


: 52 4c c5 4l c9 8a fO 03 85 






3d20 


: 4e 41 4d 45 20 20 20 20 


cf 


3f70 


: 46 20 34 20 3e 00 20 68 


Od 


4lc0 


: 4c c5 41 a9 20 c9 lb dO d3 






3d28 


• 20 20 20 20 20 21 20 54 


99 


3f78 


: 13 20 e4 ff c9 lb fO 04 


16 


4lc8 


: 03 4c f7 4l c9 00 fO 22 be 






3d30 


: 59 50 20 21 20 ^3 54 20 


Oc 


3f80 


: c9 84 dO f 5 c9 lb dO 03 


3d 


4ld0 


: 48 a9 2a 8d b7 12 a9 3d 56 






3d38 


: 21 20 42 4c 4b 53 20 21 


96 


3f88 


: 4c f8 40 20 c2 24 a9 12 


7d 


4ld8 


: 8d b8 12 68 8d b9 12 a9 95 






3d40 


• 20 54 20 3a 20 53 20 21 


39 


3f90 


: 8d 7f 33 20 4b 17 20 5f 


5a 


4le0 


: 03 8d 10 01 8d 11 01 a2 79 






3d48 


• 20 53 54 41 52 54 2d 4l 


4e 


3f98 


: 13 ad 81 33 30 le 20 71 


aO 


4le8 


: 01 20 c9 ff 20 75 25 20 ee 




3d50 


44 52 2d 45 4e 44 20 21 


7b 


3fa0 


: 13 20 7d ff 44 49 52 45 


85 


4lfO 


: cc ff a9 00 4c 6b 41 4c e4 






3d58 


• 20 52 45 4c 2d 4c 45 A& 


63 


3fa8 


: 43 54 At 52 59 2d 54 52 


28 


4lf8 


: d4 34 a9 a7 a2 59 aO 02 cl 






3d60 


20 20 21 Od 20 20 20 20 


3e 


3fb0 


: 41 43 4b 20 57 52 49 54 


40 


4200 


: 20 a3 13 ad 90 13 cd al 88 






3d68 


20 20 20 20 20 21 20 20 


70 


3fb8 


: 54 45 4e 00 20 68 13 a9 


27 


4208 


: 13 fO 03 20 e8 14 20 03 Oe 




3d70 


20 20 20 20 20 20 20 20 


70 


3fc0 


: 00 4c ee 40 c9 87 fO 03 


4d 


4210 


: 13 a2 Ob a9 20 20 d2 ff bb 






3d78 


20 20 20 20 20 20 20 20 


78 


3fc8 


: 4c d3 3f 20 ad 13 a9 00 


ec 


4218 


: oa dO f8 20 7d ff 50 52 4a 






3d80 


20 21 20 20 20 20 20 21 


03 


3fdO 


; 4c ee 40 c9 86 fO 03 4c 


71 


4220 


: 4f 54 45 43 54 20 26 20 72 






3d88 


20 20 20 20 21 20 20 20 


98 


3fd8 


: e2 40 20 b9 25 20 fie 13 


4d 


4228 


; 52 45 4c 45 41 53 45 20 dd 






3390 


20 20 20 21 20 20 20 3a 


e5 


3feO 


: 20 7d ff 49 4e 53 45 52 


21 


4230 


: 20 20 20 20 44 49 ^3 4b df 






3d98 


20 20 20 21 20 20 20 20 


b8 


3fe8 


: 54 20 44 49 53 4b 2c 20 


07 


4236 


: 53 20 26 20 46 49 4c 45 93 






3da0 


20 20 20 3a 20 20 20 20 


e4 


3ffO 


: 4f 4e 20 57 48 49 43 48 


e6 


4240 


: 53 00 a2 Od a9 20 20 d2 9f 






3da8 


20 20 20 21 20 20 20 20 


c8 


3ff8 


: 20 44 49 52 45 43 54 4f 


35 


4248 


: ff ca dO f8 20 30 13 20 10 






3db0 


20 20 20 20 20 20 21 Od 


8e 


4000 


: 52 59 2d 54 52 41 43 4b 


a8 


4250 


: e4 ff c9 81 fO 03 4e 8b 46 






3db8 


44 41 54 45 20 4f 46 20 


30 


4008 


: 20 28 53 54 4f 52 45 44 


el 


4258 


: 42 20 ed 43 fO 25 a9 42 fl 






3dc0 


43 52 45 41 54 49 4f 4e 


Of 


4010 


: 20 49 4e 20 4d 45 4d 4f 


3f 


4260 


: 20 d2 ff 20 ce ff a9 32 c5 






3dc8 


20 3a a9 25 e2 57 aO 02 


80 


4018 


: 52 59 29 Od 20 20 20 20 


e? 


4268 


: 20 e2 2f 20 8a 2f ad 81 a5 






3dd.O 


20 a3 13 20 03 13 a2 09 


fO 


4020 


: 20 20 20 20 20 20 53 48 


3d 


4270 


• 33 30 10 20 2e 44 20 7d 44 






3dd8 


a9 20 20 d2 ff ca dO f8 


7f 


4028 


: 4l 4c 4c 20 42 45 20 53 


lc 


4278 


: ff 50 52 4f 54 45 43 54 43 






3de0 


20 7d ff 53 41 56 45 20 


45 


4030 


: 41 56 45 44 20 20 20 2d 


54 


4280 


: 45 44 00 20 68 13 a9 00 bl 




3de8 


41 4e 44 20 52 45 53 54 


ab 


4038 


■ 20 20 54 48 45 4e 20 48 


5e 


4288 


: 4c 13 43 c9 82 fO 03 4c be 






3df0 


At 52 45 20 44 49 52 45 


20 


4040 


. 49 54 20 20 3c 20 46 20 


de 


4290 


• dB 42 20 ed 43 fO 39 a9 43 






3df8 


43 54 4f 52 59 20 2d 20 


Of 


4048 


. 36 20 3e 00 20 68 13 20 


fO 


4298 


41 20 d2 ff 20 cc ff a9 5a 






3e00 


54 52 41 43 4b 53 00 a2 


cb 


4050 


• e4 f f c9 lb f 04 c9 86 


6d 


42a0 


27 a2 44 aO 07 85 89 86 Od 






3e08 


Of a9 20 20 d2 f f ca dO 


f2 


4058 


dO f5 c9 lb dO 03 4c f8 


41 


42a8 


8a 8c 7b 33 20 16 30 a9 84 






3el0 


f8 20 30 13 20 e4 ff c9 


44 


4060 


40 20 79 2a a2 00 aO ea 


d6 


42b0 


32 20 e2 2f a9 32 20 e2 03 






3el8 


81 fO 03 4c ad 3e 20 b9 


lc 


4068 


86 fe 84 ff 18 a9 00 69 


30 


42b8 


2f 20 8a 2f ad 81 33 30 94 






3e20 


25 20 6e 13 20 7d ff 49 


d4 


4070 


01 aa a9 fd 69 00 a8 a9 


7d 


42c0 


Of 20 2e 44 20 7d ff 52 86 






3e28 


4e 53 45 52 54 20 44 49 


a5 


4078 


fe 20 d8 ff a5 90 fO le 


9b 


42c8 


45 4c 45 41 53 45 44 00 Id 






3e30 


53 4b 20 54 4f 20 42 45 


45 


4080 


20 5f 13 20 45 24 20 7d 


Oa 


42d0 


20 68 13 a9 00 4c 13 43 54 






3e38 


20 53 41 56 45 44 20 41 


96 


4088 


ff 46 49 4c 45 20 2d 20 


dl 


42d8 


c9 87 fO 03 4c e7 42 20 it 






3e40 


4e 44 20 48 49 54 20 20 


b9 


4090 


45 52 52 4f 52 20 21 Od 


42 


42eO 


ad 13 a9 00 4c 13 43 c9 7f 






3e48 


3c 20 46 20 31 20 3e 00 


37 


4098 


00 20 83 24 fO 3a 20 b9 


e3 


42e8 


8a fO 03 4c f6 42 20 78 28 




3e50 


20 e4 ff c9 lb fO 04 c9 


f8 


40a0 


25 20 71 13 20 7d ff 44 


Ob 


42f0 


25 a9 00 4c 13 43 c9 83 ed 






3e58 


81 dO f5 c9 lb dO 03 4c 


d5 


40a8 


49 52 45 43 54 4f 52 59 


90 


42f8 


fO 03 4c 06 43 20 20 43 7a 






3e60 . 


f8 40 20 c2 24 20 3e 17 


43 


40b0 


2d 54 52 4l 43 4b 20 49 


66 


4300 


4c fa 4l 4c 13 43 c9 84 If 






3e68 . 


20 5f 13 ad 81 33 30 35 


8f 


40b8 


4e 20 4d 45 4d 4f 52 59 


5e 


4308 


fO 03 4e 13 43 20 20 43 2c 






3e70 . 


20 b9 25 20 71 13 20 7d 


e5 


40e0 


20 49 53 20 53 41 56 45 


81 


4310 


4e fa 41 c9 lb dO 03 4c 40 






3e78 . 


f f 43 4f 4e 54 45 4e 53 


06 


40c8 


44 20 4f 4e 20 46 49 4c 


ac 


4318 


Id 43> 4e 4f 42 4c d4 34 16 






3e80 : 


20 4f 46 20 44 49 52 45 


40 


40d0 


45 20 20 20 00 20 fb 40 


a3 


4320 


a9 e8 a2 5a aO 02 20 a3 13 






3e88 : 


43 54 4f 52 59 2d 54 52 


08 


40d8 


20 68 13 a9 00 85 90 4c 


2d 


4328 


13 20 ed 43 dO 01 60 20 06 






3e90 : 


41 43 4b 20 53 54 4f 52 


03 


40eO 


ee 40 e9 8a fO 03 4c ee 


e8 


4330 


8a 2f 20 44 17 ad 81 33 2e 






3e98 : 


45 44 20 49 4e 20 4d 45 


d6 


40e8 


40 20 78 25 a9 00 c9 lb 


f3 


4338 


10 03 4c e7 43 20 2c 15 ea 






3ea0 : 


4d 4f 52 59 00 20 68 13 


id 


40f0 


dO 03 4c f8 40 4c 14 3e 


a7 


4340 . 


20 5f 13 20 72 2b 20 7a cf 






3ea8 : 


a9 00 4c ee 40 c9 83 fO 


84 


40f8 


4c d4 34 20 6e 13 a2 00 


ca 


4348 . 


13 20 aa 2a a9 00 8d 38 9e 






3eb0 : 


03 4c 3b 3f 20 b9 25 20 


35 


4100 


bd Od 41 20 d2 ff e8 ec 


43 


4350 . 


16 ad 38 16 8d d8 2c a9 bl 






3eb8 : 


6e 13 20 7d ff 49 4e 53 


92 


4108 


a9 2a dO f4 60 53 4l 56 


eb 


4358 : 


06 a2 00 20 2e ca 20 5f 2c 






3eo0 : 


45 52 54 20 44 49 53 4b 


ba 


4110 . 


45 44 20 54 52 41 43 4b 


dd 


4360 : 


13 a9 03 a2 10 aO 03 20 af 




3ec8 : 


20 57 49 54 48 20 53 41 


c6 


4118 . 


20 20 23 20 31 a9 66 a2 


54 


4368 : 


d7 2b 20 e4 ff c9 2b fO 56 






3ed0 : 


56 45 2d 46 49 4c 45 20 


29 


4120 . 


58 aO 02 20 a3 13 20 03 


a6 


4370 : 


03 4c 8e 43 20 b3 25 ae 37 






3ed8 : 


41 4e 44 20 48 49 54 20 


b6 


4128 : 


13 a2 08 a9 20 20 d2 f f 


12 


4378 : 


38 16 eO 90 fO 05 ad bO 55 






3ee0 : 


20 3c 20 46 20 33 20 3e 


88 


4130 : 


ca dO f8 20 7d ff 20 20 


3d 


4380 : 


2c fO 05 a9 00 8d 38 16 14 






3ee8 : 


00 20 68 13 20 e4 ff c9 


32 


4138 : 


20 20 43 20 42 20 4d 20 


d8 


4388 : 


4c 51 43 4c dd 43 c9 83 fd 






3ef0 : 


lb fO 04 c9 83 dO f 5 c9 


e8 


4140 : 


20 20 2d 20 20 53 54 41 


30 


4390 : 


fO 03 4c ae 43 48 20 9f 21 






3ef8 : 


lb dO 03 4c f8 40 20 79 


cb 


4148 : 


4e 44 41 52 44 20 2d 20 


Sd 


4398 : 


18 aO 06 20 6f 29 20 le 03 






3f00 : 


2a a9 00 a2 00 aO ea 20 


44 


4150 : 


44 49 52 45 43 54 4f 52 


2f 


43a0 : 


2d 20 36 24 68 aa 20 c7 db 






3f08 : 


d5 ff 90 03 4c d8 40 20 


2e 


4158 : 


59 20 20 20 20 00 a2 Oc 


72 


43a8 : 


lb fO le 4c dd 43 c9 84 75 






3fl0 : 


b9 25 20 fh 40 20 71 13 


d4 


4160 : 


a9 20 20 d2 ff ea dO f8 


07 


43b0 : 


fO 03 4e dl 43 48 20 9f a5 






3fl8 : 


20 7d ff 20 20 49 53 20 


d5 


4168 : 


20 30 13 20 e4 ff a9 81 


e2 










3f20 : 


4c At 4l 44 45 44 20 54 


8c 


4170 : 


fO 03 4c 7a 41 a9 50 4c 


7f 










3f28 : 


4f 20 4d 45 4d 4f 52 59 


cf 


4178 : 


c5 41 c9 87 fO 03 4e 89 


ac 


Li stint 
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3f30 : 


00 20 68 13 a9 00 85 90 


8f 


4180 : 


41 20 ad 13 a9 00 4e c5 


f6 


(Forts 


stzung) 








Li* 
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TOOLS 



C128 



43b8 


18 aO 08 20 6f 29 20 le 


23 


4608 


20 20 d2 ff ea dO f8 20 


44 


4858 


10 8d 9e 13 a9 Oc a2 25 


09 


43c0 


2d 20 36 24 68 aa 20 c7 


fb 


4610 


30 13 20 e4 ff e9 81 fO 


a5 


4860 


ac 9e 13 20 6f 29 a9 17 


39 


43e8 


lb 20 bl 2c a9 00 4c dd 


6d 


4618 


03 4c 3f 46. 8d df 47 a9 


22 


4868 


aO 29 20 b8 28 20 36 24 


61 


43d0 


43 c9 55 fO 03 4c dd 43 


fc 


4620 


bf a2 62 aO 02 20 a3 13 


b3 


4870 


aO 90 20 98 23 20 5f 13 


4a 


43d8 


20 52 17 a9 lb c9 lb dO 


2a 


4628 


20 fe 47 20 5f 13 a9 7e 


cf 


4878 


20 aa 2a a9 06 a2 00 20 


63 


43e0 


03 4c e7 43 4c 6a 43 20 


dl 


4630 


a2 61 aO 02 20 a3 13 a9 


aa 


4880 


2e ea a9 00 4c 56 49 e9 


ae 


43e8 


5f 13 a9 00 60 20 4f 18 


bO 


4638 


00 8d df 47 4c a2 46 e9 


66 


4888 


83 fO 03 4c fa 48 20 5f 


ff 


43f0 


c9 lb fO f3 20 5f 13 20 


8b 


4640 


82 fO 03 4c 51 46 20 af 


ac 


4890 


13 a2 05 8e 14 29 a9 20 


79 


43f8 


C2 24 a9 30 8d 24 15 8d 


a6 


4648 


46 a9 00 8d df 47 4c a2 


c3 


4898 


9d 17 29 ea 10 fa aO a2 


05 


4400 


25 15 a9 32 8d 26 15 a9 


12 


4650 


46 e9 83 fO 03 4c 75 46 


6f 


48a0 


20 98 23 a2 06 aO Oa 20 


f7 


4408 


12 a2 00 8d 7f 33 8e 80 


ea 


4658 


a9 00 a2 64 aO 02 20 a3 


18 


48a8 


o3 25 20 6e 13 20 7d ff 


fe 


4410 


33 20 3e 2f a9 31 20 e2 


33 


4660 


13 20 61 49 20 5f 13 a9 


al 


48b0 


50 4c 45 41 53 45 20 45 


Oa 


4418 


2f 20 Oe 15 20 Oc 15 a2 


f9 


4668 


7e a2 61 aO 02 20 a3 13 


7a 


48b8 


4e 54 45 52 20 4e 45 57 


04 


4420 


Od 20 c9 ff a9 ff 60 4d 


66 


4670 


a9 00 4c a2 46 c9 84 fO 


27 


48eO 


20 49 44 45 4e 54 2e 20 


bf 


4428 


2d 57 01 01 01 41 20 b9 


6f 


4678 


03 4c 87 46 20 c 5 4a a9 


f9 


48c8 


3a 20 00 a9 05 8d 9e 13 


a5 


4430 


25 20 71 13 20 7d ff 44 


9b 


4680 


00 8d df 47 4c a2 46 c9 


ae 


48d0 


a9 Oc a2 25 aO 05 20 6f 


5e 


4438 


49 53 4b 20 49 53 20 00 


bl 


4688 


87 f 03 4c 96 46 20 ad 


49 


48d8 


29 a9 17 aO 29 20 b8 28 


77 


4440 


60 a9 29 a2 5c aO 02 20 


27 


4690 


13 a9 00 4c a2 46 c9 8a 


9a 


48e0 


20 36 24 aO a2 20 98 23 


Oe 


4448 


a3 13 20 03 13 a2 Oe a9 


af 


4698 


fO 03 4c a2 46 20 78 25 


03 


48e8 


20 5 f 13 20 aa 2a a9 06 


2f 


4450 


20 20 d2 ff ca dO f8 20 


8c 


46a0 


a9 00 c9 lb dO 03 4c ac 


cf 


48f0 


a2 00 20 2e ca a9 00 4c 


f3 


4458 


7d ff 53 4f 52 54 20 26 


28 


46a8 


46 4c 12 46 4c d4 34 8d 


b9 


48f8 


56 49 c9 84 fO 03 4c 14 


76 


4460 


20 4d 4f 44 49 46 59 20 


fO 


46b0 


df 47 20 36 24 20 5f 13 


e9 


4900 


49 a9 ff 20 b? 23 20 36 


a3 


4468 


44 49 52 45 43 54 4f 52 


47 


46b8 


20 6e 13 20 tag 25 20 7d 


18 


4908 


24 20 5f 13 20 aa 2a a9 


ca 


4470 


59 DO a2 16 a9 20 20 d2 


f6 


46c 


ff 49 4e 53 45 52 54 20 


da 


4910 


00 4c 56 49 c9 82 fO 03 


70 


4478 


ff ea dO f8 20 30 13 20 


40 


46c8 


44 49 53 4b 20 54 4f 20 


11 


4918 


4c 2e 49 a9 00 20 b7 23 


29 


4480 


e4 ff c9 20 fO 03 4c 91 


56 


46d0 


42 45 20 00 ad df 47 c9 


47 


4920 


20 36 24 20 5f 13 20 aa 


cd 


4488 


44 20 67 lb a9 00 4c ac 


3f 


46d8 


82 dO Of 20 7d ff 46 4f 


la 


4928 


2a a9 00 4c 56 49 c9 55 


32 


4490 


44 c9 87 fO 03 4c aO 44 


56 


46eO 


52 4d 41 54 45 44 00 4c 


c3 


4930 


fO 03 4c 56 49 ad 83 33 


f6 


4498 


20 ad 13 a9 00 4c ae 44 


26 


46e8 


f7 46 20 7d ff 56 4l 4c 


Oa 


4938 


8d 33 4e 8d 82 33 a9 00 


Oc 


44a0 


c9 8a fO 03 4c ac 44 20 


e6 


46f0 


49 44 41 54 45 44 00 20 


ed 


4940 


8d 83 33 a9 12 8d 7f 33 


83 


44a8 


78 25 a9 00 c9 lb dO 03 


de 


46f8 


7d ff 20 49 4e 20 44 52 


42 


4948 


20 55 33 ad 33 4e 8d 83 


78 


44b0 


4c b6 44 4c 7f 44 4c d4 


e7 


4700 


49 56 45 20 23 20 00 ad 


58 


4950 


33 20 eO 47 a9 lb c9 lb 


85 


44b8 


34 a9 ab a2 5e aO 02 20 


33 


4708 


7c 33 20 fb f9 48 8a 20 


fZ 


4958 


dO 03 4c 60 49 4c 10 48 


91 


44c0 


a3 13 20 03 13 a2 Oe a9 


27 


4710 


d2 ff 68 20 d2 f f a2 Oc 


dO 


4960 


60 20 4f 18 c9 lb dO 03 


66 


44c8 


20 20 d2 ff ea dO f8 20 


04 


4718 


aO Oa 20 c3 25 20 7d ff 


87 


4968 


4c be 4a 20 5f 13 20 c2 


3f 


44d0 


7d ff 50 52 49 4e 54 20 


44 


4720 


48 49 54 20 20 12 20 53 


eO 


4970 


24 20 44 17 ad 81 33 10 


6e 


44d6 


53 45 4c 45 43 54 45 44 


fe 


4728 


50 41 43 45 20 92 20 20 


ea 


4978 


03 4c be 4a 20 2c 15 20 


92 


44e0 


20 44 49 52 45 43 54 4f 


Id 


4730 


54 4f 20 43 4f 4e 54 49 


e8 


4980 


5f 13 20 72 2b 20 7a 13 


83 


44e8 


52 59 00 a2 15 a9 20 20 


9b 


4738 


4e 55 45 20 4f 52 20 20 


cf 


4988 


20 aa 2a a9 00 8d 38 16 


37 


44 fO 


d2 ff ca dO f8 20 30 13 


06 


4740 


12 20 20 45 53 43 20 20 


23 


4990 


ad 38 16 8d d8 2c a9 06 


32 


44f8 


20 e4 ff e9 20 fO 03 4c 


f2 


4748 


92 20 20 54 4f 20 4c 45 


2f 


4998 


a2 00 20 2e ca 20 5f 13 


5a 


4500 


Oa 45 20 77 le a9 00 4c 


6e 


4750 


41 56 45 00 20 e4 ff c9 


ca 


49a0 


a9 03 a2 10 aO 03 20 d7 


c8 


4508 


25 45 c9 87 fO 03 4c 19 


be 


4758 


lb fO 04 c9 20 dO f5 c9 


la 


49a8 


2b 20 e4 ff e9 2b fO 03 


dc 


4510 


45 20 ad 13 a9 00 4c 25 


49 


4760 


lb dO 06 48 20 5f 13 68 


88 


49b0 


4c ec 49 20 b3 25 ae 38 


48 


4518 


45 e9 8a fO 03 4c 25 45 


b4 


4768 


60 ad df 47 c9 82 fO 01 


f6 


49b8 


16 eO 90 fO 05 ad bO 2c 


59 


4520 


20 78 25 a9 00 c9 lb dO 


57 


4770 


60 20 5f 13 20 b9 25 a9 


d2 


49e0 


fO ce a9 00 8d 38 16 fO 


57 


4528 


03 4c 2f 45 4c f 8 44 4c 


fc 


4778 


13 8d 9e 13 20 7d ff 50 


ea 


49e8 


e7 4c b4 4a c9 82 fO 03 


a6 


4530 


d4 34 a9 ab a2 5e aO 02 


a2 


4780 


4c 45 41 53 45 20 45 4e 


31 


49d0 


4c db 49 a2 85 20 7f lb 


3e 


4538 


20 a3 13 20 03 13 a2 12 


6a 


4788 


54 45 52 20 48 45 41 44 


54 


49d8 


4c b4 4a c9 84 fO 03 4c 


bf 


4540 


a9 20 20 d2 ff ca dO f8 


e7 


4790 


45 52 20 41 4e 44 20 49 


49 


49e0 


ea 49 a2 86 20 7f lb 4c 


eb 


4548 


20 7d ff 50 52 49 4e 54 


82 


4798 


44 20 3a 20 00 a9 Oe a2 


42 


49e8 


b4 4a e9 55 fO 03 4c f9 


2b 


4550 


20 20 44 49 53 4b 20 2d 


25 


47a0 


28 aO 13 20 6f 29 a9 17 


f6 


49f0 


49 20 84 33 a9 lb 4c b4 


df 


4558 


20 4c 41 42 45 4c 53 00 


3b 


47a8 


aO 29 20 b8 28 a2 06 aO 


ed 


49f8 


4a c9 81 fO 03 4c Of 4a 


09 


4560 


a2 15 a9 20 20 d2 ff ca 


29 


47bO 


00 20 2e ca 20 68 13 20 


77 


4a00 


a9 02 a2 13 20 ff 22 20 


80 


4568 


dO f8 20 30 13 20 e4 ff 


88 


47b8- 


3e 2f ad 81 33 30 16 20 


77 


4a08 


bl 2c a9 00 4c b4 4a c9 


61 


4570 


c9 20 fO 03 4c 8d 45 8d 


47 


47e0 


c2 24 a9 15 a2 29 ac 14 


fO 


4al0 


83 fO 03 4c 54 4a 20 db 


26 


4578 


51 20 a2 00 8e 4b 20 8e 


63 


47c8 


29 c8 c8 85 89 86 8a 8e 


48 


4al8 


23 a2 00 a9 2c 9d 17 29 


20 


4580 


9d le 20 77 le a9 00 8d 


6e 


47d0 


7b 33 20 16 30 20 8a 2f 


3c 


4a20 


e8 a9 55 9d 17 29 e6 8e 


61 ' 


4588 


51 20 4c a8 45 c9 87 fO 


b4 


47d8 


20 eO 47 20 78 25 60 00 


70 


4a28 


c4 4a ad 7c 33 20 fb f9 


24 


4590 


03 4c 9c 45 20 ad 13 a9 


98 


47e0 


20 3e 2f ad 81 33 30 10 


33 


4a30 


48 8a c9 30 fO 09 ae c4 


dl 


4598 


00 4c aS 45 c9 8a fO 03 


4c 


47e8 


a9 fe a2 47 aO 02 85 89 


e4 


4a38 


4a 9d 17 29 ee c4 4a 68 


4b 


45a0 


4c a8 45 20 78 25 a9 00 


ed 


47f0 


86 8a 8c 7b 33 20 16 30 


3b 


4a40 


ae c4 4a 9d 17 29 e8 a9 


48 


45&8 


a2 00 8e 4b 20 8e 9d le 


81 


47f8 


20 8a 2f 60 55 3a 20 4f 


7b 


4a48 


3a 9d 17 29 20 e6 23 a9 


55 


45b0 


c9 lb dO 03 4c ba 45 4e 


e4 


4800 


18 c9 lb dO 01 60 20 07 


7f 


4a50 


00 4c b4 4a c9 85 fO 03 


7f 


45b8 


6d 45 a2 00 8e 51 20 8e 


82 


4808 


4e a9 06 a2 00 20 2e ca 


50 


4a58 


4c b4 4a 20 db 23 a2 Oa 


Oa 


45c0 


4b 20 8e 9d le 4c d4 34 


73 


4810 


20 e4 ff c9 81 fO 03 4c 


20 


4a60 


8e 14 29 a2 10 aO Oa 20 


05 


45c8 


a9 7e a2 61 aO 02 20 a3 


67 


4818 


87 48 20 5f 13 a2 10 8e 


5b 


4a68 


c3 25 20 6e 13 20 7d ff 


be 


45d0 


13 20 03 13 a2 Oe a9 20 


88 


4820 


14 29 a9 20 9d 17 29 ca 


04 


4a70 


50 4a 45 4l 53 45 20 45 


ca 


4538 


20 d2 ff ca dO f8 20 7d 


Ob 


4828 


10 fa aO 90 20 98 23 a2 


88 


4a78 


4e 54 45 52 20 46 49 4c 


7e 


45e0 


ff 4d 4f 44 49 46 59 20 


4f 


4830 


06 aO Oa 20 c3 25 20 6e 


dO 


4a80 


45 2d 45 58 54 45 4e 53 


08 


45e8 


20 42 41 4d 20 20 26 20 


ff 


4838 


13 20 7d ff 50 4c 45 41 


ba 


4a88 


49 4f 4e 20 3a 20 00 a9 


08 


45 fO 


20 44 49 52 45 43 54 4f 


2d 


4840 


53 45 20 45 4e 54 45 52 


28 


4a90 


Oa 8d 9e 13 a9 16 a2 2a 


95 


45f8 


52 59 20 2d 20 45 4e 54 


W 


4848 


20 4e 45 57 20 48 45 41 


a? 


4a98 


ac 9e 13 20 6f 29 a9 17 


71 


4600 


52 49 45 53 00 a2 Oe a9 


4b 


4850 


44 45 52 20 3a 20 00 a9 


c7 


4aa0 


aO 29 20 b8 28 20 36 24 


99 



94 
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TOOLS 








4aa8 


: a9 06 a2 00 20 2e ca 20 


dc 


4c fa 


: 89 13 20 5f 13 a2 Oa aO 


af 


4f48 


: 20 21 00 20 91 4d c9 lb 


de 








4abO 


: e6 23 a9 00 c9 lb dO 03 


51 


4d00 


: Oa 20 c3 25 20 6b 13 20 


9a 


4f50 


: dO 03 4c 9b 4f 20 5f 13 


c2 








4ab8 


; 4c be 4a 4c a9 49 20 5f 


a4 


4d08 


: 7d ff 53 4f 52 52 59 2c 


b9 


4f58 


: a2 05 aO 05 20 cc 24 a9 


92 








4ac0 


: 13 a9 00 60 00 20 af 46 


00 


4dlO 


: 20 54 4f 4f 20 4d 55 43 


60 


4f60 


: 00 a2 ea 85 fe 86 ff a9 


94 








4ac8 


: c9 lb dO 01 60 20 c2 24 


cd 


4dl8 


: 48 20 42 4f 4f 54 2d 42 


be 


4f68 


: 01 a2 00 8d 7f 33 8e 80 


39 








4ad0 


: a9 12 a2 00 8d 7f 33 8e 


ea 


4d20 


: 4c 4f 43 4b 53 20 46 4f 


3c 


4f70 


: 33 e6 ff ad 83 33 8d 33 


3a 








4ad8 


: 80 33 a9 00 a2 ea 85 fe 


f2 


4d28 


: 52 20 54 48 49 53 20 50 


f9 


4f78 


: 4e ad 90 4d 8d 83 33 3d 
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99 
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b6 
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30 
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a8 
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60 
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06 
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68 
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6120 
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20 
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70 
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26 
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78 


65c8 
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e5 
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80 
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6138 
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37 
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88 
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2c 


6390 


20 20 20 20 20 20 20 20 


90 
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95 
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a8 
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c2 


63b0 
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84 
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O 
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51 
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bb 


63 cO 
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ab 
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6178 
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77 


63c8 
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c8 


6618 


20 44 09 13 Ob 20 09 Oe fl 


6180 


20 46 31 3d 20 Od Of 04 


66 


63d0 
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dO 


6620 


20 01 03 14 15 01 Oe 20 ce 


6188 


09 06 19 20 20 42 41 4d 


92 


63d8 


20 20 20 20 45 53 43 3d 


8b 


6628 


44 12 09 16 05 20 20 20 8d 


6190 


20 20 20 20 20 20 20 20 


90 


63e0 


20 42 01 03 Ob 20 14 Of 


e2 


6630 


20 20 20 20 48 45 4c 50 ed 
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6638 
6640 
6648 
6650 
6658 
6660 
6668 
6670 
6678 
6680 
6688 
6690 
6698 
66a0 
66a8 
66b0 
66b8 
66c0 
66c8 
66d0 
66d8 
66e0 
66e8 
66f0 
66f8 
6700 
6708 
6710 
6718 
6720 
6728 
6730 



3d 20 43 

44 09 12 

19 20 20 

20 20 20 
20 20 20 
43 3d 20 
14 Of 20 
4d 05 Oe 
20 20 20 
20 00 20 
20 Oc Of 

19 20 Ob 
06 20 50 
Od 20 01 

05 03 15 
Od Od 01 

06 14 05 
14 09 Oe 

20 20 20 
20 20 20 
20 01 04 
05 20 14 
14 2d 53 
28 13 29 
20 20 20 
35 3d 20 
01 20 4d 

45 20 2d 
12 01 Od 
20 20 20 
20 44 09 
09 16 05 



42 4d 
05 03 
20 20 
20 20 
20 20 
42 01 
4d 01 
15 05 
20 20 
20 20 

01 04 
09 Oe 
12 Of 
Oe 04 
14 05 
Oe 04 

12 20 
07 20 
20 20 
20 20 

04 20 
Of 20 

05 03 
20 20 
20 20 

02 Of 
41 43 
20 50 
20 20 
20 20 

13 Ob 
20 2d 



20 2d 
14 Of 
20 20 
20 20 
20 45 

03 Ob 
09 Oe 
20 20 
20 20 
46 31 
20 01 

04 20 
07 12 
20 05 
20 43 

13 20 
02 Of 
20 20 
20 20 
46 33 
46 09 
42 Of 

14 Of 
20 20 
20 20 
Of 14 
48 49 
12 Of 
20 20 
46 37 
20 44 
20 54 



20 


69 


12 


5f 


20 


41 


20 


50 


53 


53 


20 


27 


20 


86 


20 


78 


20 


78 


3d 


20 


Oe 


f4 


Of 


3d 


01 


78 


18 


45 


Of 


73 


01 


al 


Of 


b8 


20 


81 


20 


e8 


3d 


88 


Oc 


6b 


Of 


4b 


12 


3a 


20 


b4 


46 


45 


20 


16 


4e 


cd 


07 


95 


20 


b6 


3d 


e8 


12 


f6 


Of 


cd 



6738 
6740 
6748 
6750 
6758 
6760 
6768 
6770 
6778 
6780 
6788 
6790 
6798 
67aO 
67a8 
67b0 
67b8 
67cO 
67o8 
67d0 
67d8 
67e0 
67e8 
67f0 
67f8 
6800 
6808 
6810 
6818 
6820 
6828 
6830 



07 07 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
50 3d 
20 44 
12 19 
20 20 
20 20 
53 43 
20 14 
20 4d 
20 20 
20 20 
20 20 
20 20 
4d 41 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
60 60 
60 60 
60 60 



Oc 05 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 43 
09 12 
20 20 
20 20 
20 20 
3d 20 
Of 20 
05 Oe 
20 20 
00 20 
20 20 
20 20 
52 4b 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
60 60 
60 60 
60 60 



20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 48 
42 4d 
05 03 
20 20 
20 20 
20 20 
42 01 
Oc 01 
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20 20 
20 20 
20 20 
20 20 
20 3a 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
60 60 
60 60 
60 60 
60 60 



20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
45 4c 
20 2d 
14 Of 
20 20 
20 20 
20 45 
03 Ob 
13 14 
20 20 
20 20 
20 20 
20 20 
52 45 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
60 60 
60 60 
60 60 
60 60 



2a 


6838 : 


40 


6840 : 


48 


6848 : 


50 


6850 : 


58 


6858 : 


60 


6860 : 


68 


6868 : 


9e 


6870 : 


41 


6878 : 


le 


6880 : 


f7 


6888 : 


90 


6890 : 


e3 


6898 : 


37 


68a0 : 


d7 


68 a8 : 


b4 


68b0 : 


b8 


68b8 : 


b8 


68c0 : 


c8 


68c8 : 


e3 


68d0 : 


58 


68d8 : 


eO 


68e0 : 


e8 


68e8 : 


fO 


68f0 : 


fa 


68f8 : 


00 


6900 : 


08 


6908 : 


10 


6910 : 


aO 


6918 : 


20 




28 




30 


Listinc 



60 60 
60 60 
60 60 
60 60 

60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
00 ff 



60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
00 ff 



60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
00 ff 



60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
60 60 
00 00 
00 ff 



38 
40 
48 
50 
58 
60 
68 
70 
78 
80 
88 
90 
98 
aO 
aS 
bO 
b8 
eO 
e8 
do 
d8 
eO 
e8 
fO 
f8 
00 
08 
ce 
18 



Listing 1. -Power 128/v.1.1« (SchluB) 



Phantastisthe 
Sthriften 

""'IMC-PMM 



dem 



Fur viele 9-Nadel-Drucker gibt es bereits Zeicheneditoren, die 
erstaunliche Schriftquatitaten beim Ausdruck beweisen. Aber warum nicht auch die Qualitat 

eines 24-Nadel-Druckers wie den NEC-P 2200 nutzen? Genau das 

erreicht unser Programm »Zenec v2.0«. Damit wind es ausgesprochen leicht, eigene Zeichen 

zu generieren und diese mit dem Drucker auszugeben. 



Ihrer Kreativitat sind beim Editieren neuer Zetchen fast 
keine Grenzen gesetzt: Ein Editierfeld von nicht weniger 
als24 Zeilen und 37 Spalten reicht aus, um eine Vieizahl 
unterschiedlicher Zeichen zu erstellen. 

Sie kdnnen Zeichensatze vier verschiedener Matrix- 
Typen editieren, auf Diskette speichern, von Diskette laden 
und naturlich auch zum Drucker schicken. KleineHilfenwie 
Bewegen der Zeichen in der Matrix, wenden und kopieren 



auf andere Zeichen sind fur ein Programm dieser Gute 
selbstverstandlich. 

Die neuen Zeichensatze konnen problemlos zum Druk- 
ker geschickt werden, wo sie anschlieSend fur die Anwen- 
dung untereinerTextverarbeitung (z.B. Mastertext 128) zur 
Verfiigung stehen. 

Als Hardware-Voraussetzungen benotigen Sie den C 128 
im 80-Zeichen-Modus und einen NEC-P 2200, den Sie mit 
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C128 



einem geeigneten Kabel am Userport des Computers an- 
schlieBen. Und natiirlich benotigen Sie nach dem Start des 
Programms etwas Kreativitat, um Schriftzeichen zu editie- 
ren. 

So a r be i ten Sie mit dem Programm 

Geben Sie zuerst Listing 1 mit dem MSE ein. Eingabehin- 
weise dazu finden Sie auf Seite 158. Nach dem Speichern 



<F1> Edit 

Nach Betatigung der Funktionstaste <F1> gelangen 
Sie in den Zeichengenerator (Bild 2), dessen Funktionen 
weiter unten ausfuhrlicher erlautert werden. 

<F3> Load 

Mit der Funktionstaste < F3> laden Sie einen bereits er- 
stellten Zeichensatz von Diskette. Dabei konnen Sie diese 
komfortabel aus dem Directory heraus laden. Das Directory 
wird ubersichtlich auf dem Bildschirm dargestellt. Mit den 



ZS: DEFAULT 



,? * 



* ZEMEC U2.8 fuer C128 und MEC-P 22BO 



Schri ft-Typen 



Typ 




B 


A - 


PS 


37 


B - 


LQie 


29 


C - 


LQ12 


23 


D - 


Draft 


S 



A+B+C 

beliebig 

36 

38 

12 



Bitte A,B,C Oder D waehlen 



Fl = Edit 



F3 = Load 



F5 =Save 



F7 = Druck 



T = ZS-Typ aendern 



<c> 12.87.1988 by Hannes Mueller, Birchweg 3, CH-82B8 Schaf f hausen, Schveiz 



Bild 1. Im Eingangsmenu von «Zenec V2.0» bestimmen Sie den Schrifttyp, den Sie editieren 



ZS: DEFAULT .A * *>l*l * MOVE » TURH * 


C8PV 


to * ESC 


==0 


Menu 
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17 6 
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- 16 
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36 


8 


6 8 


•* <• < -,>»,, ,. 


ASCII : 


65 = A 


- -s ^ v , V , V ,. 


Left: 


B Body 


8 


Ri 


ght : 


■ — - - •• 


CoI/Rom 


1/ l| 


Byte 


/'Bit 


8/7 


*/- = Punkt ein/aus * M = Move * C = Copy * 


T = Turn 


* CLR = 


Zeichen 


loeschen 


F1/F3 = ASCII +/- * F5 = Parameter setzen * 


F7 = ZS 


run Drucl 


ter / 


Pro 


bedruck 



Bild 2. Der Editier-Bildschirm 1st dank der Darstellung mit 33 Zeilen sehr ubersichtlich 



auf Diskette wird das Programm mit 

RUN"ZENEC V2.0" 

gestartet. 

Achtung: Die ASCII/DIN-Taste darf beim Start nicht ge- 
drtickt sein. Andernfalls fordert das Programm Sie vorher 
auf, die Taste zu losen. 

Im ersten Eingangsmenu (Bild 1) entscheiden Sie zu- 
nachst, welche der vier Matrlx-Typen Sie bearbeiten wol- 
len. Diese wahlen Sie iiber die Tasten <A> bis <D> aus. 
AnschlieBend stehen die verschiedenen Funktionen des 
Hauptmenus zur Verfugung: 



Cursortasten wird es auf- und abgescrollt. Der Dateinarne 
unter dem reversen Balken wird durch Drucken mit der 
RETURN-Taste geladen. 

Ein Dateinarne fur einen Zeichensatz mu8 nicht mit ei- 
nem Punkt und dem Schrifttyp enden. 1st das 16. Zeichen 
ein A, B, C Oder D, versteht es das Programm als Schrifttyp. 
Fehlt der Schrifttyp, wird er vom Programm auf D gesetzt. 

Sollten Sie diese Funktion unbeabsichtigt angewahlt ha- 
ben, bringt die ESC-Taste Sie wieder in das Hauptmenu. 

Als Listing 2 und 3 finden Sie bereits zwei fertige Zei- 
chensatze. 
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<F5> Save 

Gespeichert wird ein editierter Zeichensatz iiber die 
Funktionstaste <F5>. Das Programm sehlagt einen Rle- 
narnen (Default) vor, den Sie durch ein RETURN uberneh- 
men konnen. Bei einer Neueingabe werden maximal 14 
Zeichen angenommen, da das Programm automatisch 
einen Punkt und den im Eingangsmenu gewahlten 
Schrifttyp-Buchstaben an den Dateinamen anhangt. 

Achten Sie darauf, jeweils nach Anderungen eines Zei- 
chensatzes einen neuen Dateinamen zu vergeben, da bei 
der Ubernahme des alten Namens der aite Zeichensatz 
nicht uberschrieben wird. Das Programm gibt dann eine 
Fehlermeldung aus. Lassen Sie sich von der fiackernden 
LED des Laufwerks nicht irritieren, nach dem nachsten er- 
folgreichen Zugriff auf Diskette istwiederallesin Ordnung. 
<F7> Druck 

Wenn Sie die Funktionstaste <F7> drucken, wird der 
aktuelle Zeichensatz zum Drucker ubertragen. Dabei er- 



Der Jeweils aktive Modus wird am oberen Bildschirmrand 
blinkend dargestellt. 

Die Funktionen des Editors im Uberblick: 
Cursortasten 

Mil den Cursortasten bewegen Sie sich wie gewohnt in- 
nerhalb des Editierfeldes. 
<HOME> 

Auch die HOME-Taste bewegt den Cursor wie gewohnt 
an die erste Position des Feldes. 
<CLR> 

Diese Taste loscht das gerade bearbeitete Zeichen. 
<+/-> Punkt ein/aus 

Mit diesen beiden Tasten setzen oder loschen Sie einen 
Punkt. Der Cursor bewegt sich dabei in der aktuellen 
Cursor-Richtung weiter. Dies istzu Beginn sicheretwas ge- 
wbhnungsbedurftig, wenn Richtungsanderungen vorge- 
nommen werden sollen. Hat man sich aber darauf einge- 
stellt, wird das Editieren so recht einfach. 



ZS FRAKTUR/H28 



A * [MJl*J * MOUE * TURN * COPV 



to 



* ESC ==> Menu 
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8 

4 

2 

1 

128 

64 

32 
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8 
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1 

128 

64 

32 

16 

8 

4 

2 

1 



Hr 



B 



9 
18 
11 
12 
13 
14 
15 
16 
17 



© 7 

1 8 

2 31 

3 8 

4 112 

5 8 

6 192 

7 6 

8 128 
8 



79 

8 
63 

8 
32 

8 
64 





254 
6 

255 
9 
1 
8 
8 
8 
8 
6 

128 
1 

224 
6 

246 
6 

126 
1 



8 

8 

128 

8 

192 

8 

86 

8 

32 

6 

48 

8 

48 

128 

16 

128 

16 





ASCII : 69 = E 



*/-= Punkt ein/aus » M = Move * C = Copy * 
F1/F3 = ASCII +•- * F5 = Parameter setzen * 



L eft: 8 | _ Body 
Col/Row: 1/ l\ 



Hr 



B 



18 128 

19 8 
28 193 
11 8 



22 
23 
24 
25 

26 
27 



97 
8 

96 
8 

64 
8 



28 128 
79 8 



38 
31 
32 
33 
34 
35 
36 



158 
8 

128 
8 

128 
8 

192 
8 
64 
8 
8 
8 
6 
8 
9 
8 
8 
9 
B 



16 
8 

48 
8 

32 
8 

86 
8 

64 
8 
±28 
8 
8 
6 
8 
8 
8 

e 

8 



Right: 5 



Byte/Bit 



8/7 



T ■ Turn * CLR 
F7 = ZS zum Druck 



Zeichen loeschen 
er / Probedruck 



Bild 3. So konnte ein neues Zeichen aussehen. Editiert 1st hier der Buchstabe <E>. 



folgtgleichzeitigein Probedruck des Zeichensatzes mitAn- 
gabe des ausgewahlten Dateinamens. 

Mit dieser Funktion wird auch ein Zeichensatz in den 
Drucker fur die Anwendung unter einer Textverarbeitung 
geladen. 
<T > Zeichensatz-Ty p andern 

Haben Sie im Eingangsmenu bei der Auswahl des 
Schrifttyps einefaische Eingabe gemacht, kehren Sie uber 
die Taste <T> zu diesem Menu zuriick, Wahlen Sie dann 
den Schrifttyp, den Sie editieren wollen. 

Ein komfortabler Editor 



Sobald Sie vom Hauptmenii aus uber die Funktionstaste 
< F1 > den Editor angwahlt haben, sehen Sie auf dem Bild- 
schirm das Editierfeld. Wenn Sie vorher keinen fertigen Zei- 
chensatz von Diskette geladen haben, istdas Feld leer (Bild 
2). Ansonsten erscheint ein Zeichen aus einem vorher gela- 
denen Zeichensatz (Bild 3). 

Eine ausgezeichnete Program mierung des VDC erlaubt 
eine Bildschirmdarstellung von insgesamf 33 Zeilen bei 80 
Spalten. Dieser Platz reicht aus, urn aiie Funktionen am 
Bildschirm sehr ubersichtlich auszugeben. 

Sehr hilfreich ist zum Beispiel die Anzeige der dezimalen 
Werte dereinzelnen Bytes. Am unteren Rand erkennen Sie 
die Tastenbelegungen fur die Bearbeitung der Zeichen. 



< F1 > und < F3 > 

Diese beiden Funktionstasten werden dazu verwendet, 
urn ein Zeichen vorwarts Oder ruckwarts zu springen. Im 
Feld ASCII sehen Sie dabei jeweils das ausgewahite Zei- 
chen mit seinem dezimalen ASCII-Wert angezeigt. 

< F5 > Parameter setzen 

Wahlen Sie diesen Menupunkt, springt der Cursor in die 
Anzeige derdrei Parameter, die fur linken Leerraum (Left), 
Zeichenkorper (Body) und rechten Leerraum (Right) ste- 
hen. 

Mit den Cursortasten auf/ab werden die Werte verandert 
und mit RETURN bestatigt. Die Werte fur die drei Parame- 
ter miissen den Schrifttypen entsprechen. Stehen die Wer- 
te auf Null, nutzt das Programm das entsprechende Zei- 
chen aus dem Drucker-ROM. 

Unsinnige Werte werden vom Programm automatisch fur 
den Ausdruck zurechtgestutzt. 

< F7> Zeichensatz zum Drucker /Probedruck 

Der Zeichensatz wird zum Drucker geschickt, dersofort 
einen Probedruck beginnt. Dies ist die gleiche Funktion wie 
im Hauptmenu. 
<M> Move 

Uber die Cursortasten wird ein bearbeitetes Zeichen in 
diesem Modus in alle vier Richtungen bewegt. Das Scrol- 
len durch das ganze Editierfeld erlaubt vielfaltige Variatio- 
nen eines Zeichens. Mit der ESC-Taste wird dieser Modus 
wieder verlassen. 
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<C> Copy 

Ein bearbeitetes Zeichen kann in diesem Modus an die 
Stelle eines anderen Zeichens kopiert werden. Wahlen Sie 
dazudasZieizeichen mit <CRSR-aufwarts/abwarts> aus. 
Mit RETURN wird der Kopiervorgang ausgefuhrt. 

Der Modus kann mit <ESC> vorzeitig verlassen war- 
den. 
<T> TUrn 

Mit den Cursortasten wird ein bearbeitetes Zeichen um 
die horizontal oder vertikale Achse gespiegelt. Zum Edi- 
tieren gelangen Sie rnit <ESC> zuruck. 
<ESC> 

Aus dem Editiermodus springen Sie mit dieser Taste ins 
Hauptmenii zuruck. 

Der parallele 24-Nadet-Drucker NEC-P 2200 erlaubt es, 
userdefinierte Zeichensatze zu verwenden. Der zugelasse- 

Die Fahigkeiten des Druckers nutzen 



ne Def initionsbereich fur die neuen Zeichen geht dabei von 
ASCII bis 127. Werden jedoch Werte unter dezimal 33 und 
oberhatb 126 verwendet, konnen eventuell bestimmte 
Control-Funktionen, die von den neuen Zeichen iiber- 
schrieben werden, nicht mehr genutzt werden. 
Die Zeichenmatrix umfaBt 37 Spalten und 24 Zeilen. Die 



Anordnung der Daten selbstdefinierter Zeichen ist zwin- 
gend vorgeschrieben: 

Jeder der Spalten werden von oben nach unten 3 Bytes 
zugeordnet. Dabei entspricht ein gesetztes Bit einem ge- 
setzten Punkt. Das Zeichen selbst wird in drei Teile geglie- 
dert: A = linker Leerraum, B = Zeichenkorper und C = 
rechter Leerraum. Diese drei Parameter werden in Anzahl 
von Spalten angegeben. Fur die verschiedenen Druckar- 
ten sind teste GroBen vorgeschrieben, die Sie im Eingangs- 
menii als Vorgaben wiederfinden. 

Tips fur die Anwendung 



NatCirlich wollen Sie die editierten Zeichensatze ja auch in- 
nerhalb einer Textverarbeitung anwenden. Starten Sie da- 
zu zunachst «Zenec v2.0» mit RUN von der Diskette und la- 
den den entsprechenden Zeichensatz, den Sie verwenden 
wollen, 

Nachdem Sie den Drucker eingeschaltet haben, wird der 
Zeichensatz zum Drucker geschickt. Nun wird der Compu- 
ter ausgesehaitet und anschlieBend wieder eingeschaltet. 

Der Drucker muB selbstverstandlich eingeschaltet blei- 
ben, da er sonst wieder die eingebauten Zeichen aus dem 
Drucker-ROM verwendet. 

Nun wird eine Textverarbeitung geladen, innerhalb wel- 
cher Sie mit Hilfe der entsprechenden Steuercodes zwt- 



Name : 


aenec v2.0 lcOl 3bea 


ld49 


cc cd a5 fb ca 4c cc cd 


c2 


leal : 


03 42 04 46 04 4a 04 92 


57 








ld5l 
ld59 


a5 24 a2 13 20 cc ed a5 
25 ca 4c cc ed a2 18 20 


fe 


lea9 : 
lebl : 


04 96 04 9a 04 e2 04 e6 
04 ea 04 32 05 36 05 3a 


82 


lcOl : 


Ob lc c4 07 9e 37 31 33 


05 


23 


fc 


le09 : 


31 00 00 00 20 7d ff Oe 


45 


ld6l 


da cd 29 7f 20 cc cd 20 


3c 


leb9 : 


05 82 05 86 05 8a 05 d2 


70 


loll : 


0b 99 00 ad 3e 03 e9 80 


c3 


ld69 


44 Id a5 ff 20 ca cd a5 


80 


leel : 


05 d6 05 da 05 22 06 26 


94 


lel9 : 


f 2e 20 7d f f 93 e2 49 


12 


ld71 


fe 38 e9 01 ca 4c cc ed 


04 


lec9 : 


06 2a 06 72 06 76 06 7a 


d5 


lc21 : 


54 54 45 20 cl d3 c3 c9 


52 


ld79 


20 e4 f f c9 00 fO f9 60 


75 


ledl : 


06 c2 06 c6 06 ca 06 12 


86 


lc29 : 


e9 2f c4 c9 ce 2d d4 41 


20 


ld81 


a5 24 a2 Of 20 ce ed a5 


ae 


led9 : 


07 16 07 la 07 d3 01 d7 


b3 


I03I : 


53 54 45 20 41 55 53 4c 


a8 


ld89 


25 ea 20 ec cd 4c 6f ed 


4e 


leel : 


01 db 01 23 02 27 02 2b 


2c 


le39 : 


be 53 45 4e 21 00 ad 3e 


ff 


ld91 


20 81 Id 20 79 Id 48 20 


9f 


lee9 : 


02 73 02 77 02 7b 02 c3 


aO 


le4l : 


03 c9 80 fO 03 4c 3f lc 


2f 


ld99 


9f cd 68 60 20 44 Id aO 


If 


lefl : 


02 e7 02 eb 02 13 03 17 


c4 


lc49 : 


ad c5 0a 09 80 8d c5 0a 


lc 


ldal 


00 bl fc fO 07 20 ca cd 


Of 


lef9 : 


03 lb 03 63 03 67 03 6b 


05 


lc51 : 


20 b3 77 20 30 Id a5 9d 


ea 


lda9 


c8 4e a2 Id 60 85 63 a9 


f7 


lfOl : 


03 b3 03 b7 03 bb 03 03 


b6 


lc59 : 


29 3f 85 9d 20 bd lc a9 


eb 


ldbl 


00 85 64 a9 00 85 65 85 


8f 


lf09 : 


04 07 04 Ob 04 53 04 57 


8d 


lo61 : 


Oe 8d 00 ff 20 6e lc 20 


5c 


ldb9 


66 85 67 85 68 a5 64 c9 


45 


Ifll : 


04 5b 04 a3 04 a7 04 ab 


Id 


lc69 : 


ed lc 4c 34 38 a9 10 8d 


2a 


Idol 


03 dO 04 a5 63 c9 e8 bO 


6c 


lfl9 : 


04 f3 04 f7 04 fb 04 43 


ce 


lc71 : 


2f 0a a2 14 a9 10 20 cc 


06 


ldc9 


lb a5 64 c9 00 dO 04 a5 


eb 


lf21 : 


05 47 05 4b 05 93 05 97 


a5 


lc79 : 


cd a2 06 a9 21 20 ce cd 


30 


lddl 


63 c9 64 bO 21 a5 63 c9 


a8 


lf29 : 


05 9b 05 e3 05 e7 05 eb 


35 


lc81 : 


a2 07 a9 25 20 cc cd a2 


9b 


ldd9 


Oa bO 2d a5 63 c9 01 bO 


25 


lf31 : 


05 33 06 37 06 3b 06 83 


92 


lc89 : 


0b a9 e9 20 cc cd a9 00 


c9 


ldel 


33 4c le le e6 65 38 a5 


eb 


lf39 : 


06 87 06 8b 06 A3 06 d7 


bd 


lc91 : 


85 fa a9 10 85 fb a9 85 


ea 


lde9 


63 e9 e8 85 63 a5 64 e9 


f4 


lf4l : 


06 db 06 23 07 27 07 2b 


37 


lc99 : 


85 f f 20 aa lc a9 00 85 


95 


Idfl 


03 85 64 4c be Id e6 66 


97 


lf49 : 


07 73 07 77 07 7b D7 54 


ec 


leal : 


fa a9 00 85 fb a9 20 85 


b9 


ldf9 


38 a5 63 e9 64 85 63 a5 


65 


lf51 : 


08 5f 08 6b 08 94 01 14 


ca 


lca9 : 


ff a9 50 85 fe aO 21 20 


fb 


leOl 


64 e9 00 85 64 4c ca Id 


19 


lf59 : 


04 94 06 95 01 15 04 95 


dO 


lcbl : 


5e Id 88 dO 01 60 20 6b 


44 


le09 


e6 67 38 a5 63 e9 Oa 85 


le 


lf61 : 


06 96 01 16 04 96 06 97 


f2 


lcb9 : 


Id 4c b3 lc a9 e5 85 fc 


47 


lell 


63 4c d6 Id e6 68 c6 63 


87 


lf69 : 


01 17 04 97 06 98 01 18 


43 


leel : 


a9 lc 85 fd a9 Of 85 fe 


cO 


lel9 


4c dc id a4 65 dO 19 a9 


44 


lf71 : 


04 98 06 99 01 19 04 99 


92 


lcc9 : 


a9 01 85 ff a6 ff aO 01 


43 


le21 


20 85 69 a4 66 dO 18 a9 


93 


lf?9 : 


06 9a 01 la 04 9a 06 9b 


b4 


lodl : 


a9 fc 20 65 ff e6 ff e6 


b2 


le29 


20 85 6a a4 67 dO 17 a9 


e8 


lf81 : 


01 lb 04 9b 06 9c 01 lc 


06 


lcd9 : 


fc dO 02 e6 fd a5 ff c9 


3b 


le31 


20 85 6b a4 68 4c 4e le 


e2 


lf89 : 


04 9c 06 9d 01 Id 04 9d 


55 


leel : 


09 dO e9 60 85 89 86 8a 


ad 


le39 


b9 68 le 85 69 a4 66 b9 


27 


lf91 : 


06 9e 01 le 04 9e 06 9f 


77 


lce9 : 


87 8b 88 8c a9 eO 85 fa 


97 


le4l 


68 le 85 6a a4 67 b9 68 


a4 


lf99 : 


01 If 04 9f 06 aO 01 20 


c9 


lcfl : 


a9 31 85 fb a9 20 85 fc 


bf 


le49 


ie 85 6b a4 68 b9 68 le 


cb 


lfal : 


04 aO 06 al 01 21 04 al 


18 


lcf9 : 


a9 Id 85 fd 20 10 Id a9 


9c 


le51 


85 6c 60 a5 69 20 ca ed 


37 


lfa9 : 


06 a2 01 22 04 a2 06 a3 


3a 


IdOl : 


fO 85 fa a9 31 85 fb a9 


2a 


le59 


a5 6a 20 ca cd a5 6b 20 


Sd 


lfbl : 


01 23 04 a3 06 a4 01 24 


8b 


ld09 : 


28 85 fc a9 Id 85 fd 20 


9e 


lefii 


ca cd a5 6e 4c ca cd 30 


bb 


lfb9 : 


04 a4 06 a5 01 25 04 a5 


da 


ldll : 


44 Id aO 00 bl fc 20 ca 


25 


le69 


31 32 33 34 35 36 37 38 


59 


lfcl : 


06 a6 01 26 04 a6 06 a7 


fc 


ldl9 : 


cd c8 cO 08 dO f6 60 3e 


3a 


le71 


39 c2 01 c6 01 ca 01 12 


b3 


lfc9 : 


01 27 04 a7 06 a8 01 28 


4e 


ld21 : 


7e ff ff ff ff 7e 3c 00 


83 


le79 


02 16 02 la 02 62 02 66 


52 


lfdl : 


04 a8 06 a9 01 29 04 a9 


9d 


ld29 : 


00 00 10 08 00 00 00 a2 


74 


le81 


02 6a 02 b2 02 b6 02 ba 


e3 


lfd9 ; 


06 aa 01 2a 04 aa 06 ab 


bf 


ld31 : 


40 aO 00 84 fc 98 86 fd 


fd 


le89 


02 02 03 06 03 Oa 03 52 


yt 


lfel : 


01 2b 04 ab 06 ae 01 2c 


10 


ld39 : 


91 fc c8 dO fb e8 eO 6b 


f6 


le91 


: 03 56 03 5a 03 a2 03 a6 


6a 


lfe9 : 


04 ae 06 ad 01 2d 04 ad 


60 


ld4l ; 


90 f4 60 a5 fa a2 13 20 


69 


le99 


: 03 aa 03 f 2 03 f 6 03 fa 


fa 


lffl : 


06 ae 01 2e 04 ae 06 af 


82 
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schen dem Originalzeichensatz und Ihrem eigenen Zei- 
chensatz umschaiten konnen. 

Achten Sie bei der Textverarbeitung darauf, da8 Sie ei- 
nen vorhanden Steuercode fur einen Reset aus der Steuer- 
zeichentabelle entfernen. Dies ist zum Beispiel bei »Ma- 
stertext 64« und bei »Mastertext 128« notwendig, da durch 
den Reset des Druckers der eigene Zeichensatz verloren 
geht. 

Bei »Vizawrite« fur den C128 ist die Einstellung des 
Druckers auf dem parallelen AnschluB vorzunehmen. Zu- 
satzlich sollten Sie sowohl Linefeed als auch Formfeed ein- 
schalten. 

■Protext 128« erlaubt die Verwendung des eigenen Zei- 
chensatzes uber den Druckertreiber »parallel-1«. Fur einen 
guten Ausdruck ist auch hier ein zusatzliches Linefeed er- 
forderlich. 

Da »Zenec v2.0« nach dem Ubertragen des Zeichensat- 
zes sofort mit ei nem Probeausdruck begi nnt, kan n d ie erste 
Papierseite nicht mehr verwendet werden. Sie sollten diese 
Seite aber fur einen ersten Testdruck benutzen. Dies ist 
sinnvoll, da manche Textverarbeitungsprogramrne vor dem 
ersten Text einige Grafikzeichen ausdrucken. Sollten Sie 
das auch bei I hrer Textverarbeitung feststellen, so braucht 
Sie das nicht zu irritieren. Nach dem Druck dieser Grafik- 
zeichen stehen alle Zeichen Ihres Zeichensatzes fur den 
Ausdruck zur verfiigung. 
Das Programm ist vollstandig in Assembler geschrieben. 



Es belegt dabei in der Bank den Bereich von $1c01 bis 
$3be9 und ist mit einer Basic-Startzeile versehen. 

Der Zeichenspeicher liegt ebenfalls in Bank 0, und zwar 
von $4000 bis $6ac1. Die beiden Basic-ROMs sind ausge- 
blendet. Der40-Zeichen-Bitdschirm dientals Hilfsspeicher, 

Fur die Darstellung der Menus wird durch eine intensive 
Nutzung des Prozessors der benotigte Speicherplatz mog- 
lichst gering gehalten. Die Zeichenmatrix von maximal 37 

Kurze Beschreibtmg 
des Programmaufbaus 

Spalten und 24Zeilen erfordert fur jedes Zeichen 111 Byte 
zu 8 Punkten. Hinzu kommen die 3 Steuerbyte A, B und C, 
Fur den Zeichensatz werden also 96 mal 114 Byte benotigt, 
die hintereinander im Speicher abgelegt sind und uber eine 
AnfangsadreStabelle mit einem Zeropage-Zeiger ange- 
sprochen werden. 

Das Directory wird beim Ladevorgang erst in den Spei- 
cher ab $8000 eingelesen und dort aufbereitet. Beim La- 
den wird der Schrifttyp interpretiert. Die eigentlichen Load- 
und Save-Routinen sind standardisiert. 

Da die Steuerbefehle fur 24-Nadel-Drucker weitgehend 
standadisiert sind, durfte »Zenec 2.0« auch mit anderen 
24-Nadlern zusammenarbeiten. (Hannes Muller/ef) 



lff9 


: 01 2f 04 af 06 bO 01 30 


d3 


2151 


: Of 10 11 0c Od Oe 09 0a 


a8 


22a9 


: eb lb 9b 5b db 3b bb 7b f2 


2001 


: 04 bO 06 bl 01 31 04 bl 


22 


2159 


: 0b 06 07 08 03 04 05 00 


8f 


22bl 


; fb 07 87 47 c7 27 a? 67 le 


2009 


: 06 b2 01 32 04 b2 06 b3 


44 


2161 


: 01 02 02 01 00 05 04 03 


42 


22b9 


: e? 17 97 57 d7 37 b7 77 02 


2011 


: 01 33 04 b3 06 t>4 01 34 


96 


2169 


: 08 07 06 0b Oa 09 Oe Od 


13 


22cl 


: f7 Of 8f 4f cf 2f af 6f 22 


2019 


: 04 b4 06 b5 01 35 04 b5 


e5 


2171 


: 0c 11 10 Of 14 13 12 17 


3c 


22c9 


: ef If 9f 5f df 3f bf 7f 12 


2021 


: 06 b6 01 36 04 b6 06 b7 


07 


2179 


: 16 15 la 19 18 Id lc lb 


d5 


22dl 


: ff 5a 05 09 03 08 05 Oe 01 


2029 


: 01 37 04 b7 06 b8 01 38 


58 


2181 


: 20 If le 23 22 21 26 25 


2b 


22d9 


: 13 01 14 la 20 13 10 05 9a 


2031 


: 04 b8 06 00 40 72 40 e4 


75 


2189 


: 24 29 28 27 2c 2b 2a 2f 


54 


22el 


: 09 03 08 05 12 Oe 00 46 2d 


2039 


: 40 56 41 c8 41 3a 42 ac 


56 


2191 


: 2e 2d 32 31 30 35 34 33 


ec 


22e9 


• 09 Oc 05 Oe 01 Od 05 3a fd 


2041 


: 42 ie 43 90 43 02 44 74 


b3 


2199 


: 38 37 36 3b 3a 39 3e 3d 


43 


22fl 


. 20 3c 00 44 45 46 41 55 ee 


2049 


: 44 e6 44 58 45 ca 45 3c 


55 


21al 


: 3c 41 40 3f 44 43 42 47 


6c 


22f9 


4e 54 20 20 20 20 20 20 3f 


2051 


: 46 ae 46 20 47 92 47 04 


b2 


21a9 


: 46 45 4a 49 48 4d 4c 4b 


04 


2301 


. 20 2e 3f 00 3e 20 3a 20 16 


2059 


: 48 76 48 e8 48 5a 49 ce 


22 


21bl 


: 50 4f 4e 53 52 51 56 55 


5b 


2309 


• 20 20 20 20 20 20 20 20 09 


2061 


49 3e 4a bO 4a 22 4b 94 


7e 


21b9 


: 54 59 58 57 5c 5b 5a 5f 


84 


2311 


20 20 20 20 20 20 20 20 11 


2069 


4b 06 4c 78 4c ea 4c 5c 


df 


21c 1 


5e 5d 62 61 60 65 64 63 


lc 


2319 


00 44 45 46 41 55 4e 54 ee 


2071 


4d ce 4d 40 4e b2 4e 24 


7d 


21c9 


■ 68 67 66 6b 6a 69 6e 6d 


72 


2321 


20 20 20 20 20 20 20 2e 3d 


2079 


4f 96 4f 08 50 7a 50 ec 


dc 


21dl 


6c 00 80 40 cO 20 aO 60 


b6 


2329 


Jf 00 52 09 03 08 14 09 fl 


2081 


50 5e 51 dO 51 42 52 b4 


49 


21d9 


eO 10 90 50 dO 30 bO 70 


22 


2331 


07 20 3c 4e 3e 20 3f 00 03 


2089 


52 26 53 98 53 0a 54 7e 


a6 


21el 


fO 08 88 48 e8 28 a8 68 


42 


2339 


a9 d2 85 fc a9 22 85 fd Oa 


2091 


54 ee 54 60 55 d2 55 44 


47 


21e9 


e8 18 98 58 d8 38 b8 78 


32 


2341 


a9 95 85 fa a9 02 85 fb 2e 


2099 


56 b6 56 28 57 9a 57 0c 


a5 


21fl 


f 8 04 84 44 c4 24 a4 64 


5e 


2349 


20 9d Id 20 8f 23 20 f7 06 


20al 


58 7e 58 fO 58 62 59 d4 


14 


21f9 


e4 14 94 54 d4 34 b4 74 


42 


2351 


23 20 cb 23 20 d9 23 c9 ed 


20a9 


59 46 5a b8 5a 2a 5b 9c 


71 


2201 


f4 0c 8c 4c cc 2c ac 6c 


62 


2359 


4a fO 03 4e 7f 23 20 51 9a 


20bl 


5b Oe 5c 80 5c f2 5e 64 


d2 


2209 


ec lc 9c 5c dc 3c be 7e 


52 


2361 


Id a9 4a 20 ca cd 20 c4 Of 


20b9 


5d d6 5d 48 5e ba 5e 2c 


6f 


2211 


fc 02 82 42 c2 22 a2 62 


84 


2369 


28 90 03 4c 8f 24 a5 90 f6 


20cl 


5f 9e 5f 10 60 82 60 f4 


cf 


2219 : 


e2 12 92 52 d2 32 b2 72 


62 


2371 


fO 03 4c 8f 24 20 6e 24 2d 


20c9 


60 66 61 d8 61 4a 62 be 


3b 


2221 


f2 Oa 8a 4a ca 2a aa 6a 


82 


2379 


4c 54 38 4c 8f 23 c9 lb f6 


20dl 


62 2e 63 aO 63 12 64 84 


99 


2229 : 


ea la 9a 5a da 3a ba 7a 


72 


2381 


fO 03 4c 8c 23 4c 45 38 b2 


20d9 


64 f6 64 68 65 da 65 4c 


3a 


2231 : 


fa 06 86 46 c6 26 a6 66 


9e 


2389 


4c 8f 23 4c 4f 23 aO 00 80 


20el 


66 be 66 30 67 a2 67 14 


97 


2239 : 


e6 16 96 56 d6 36 b6 76 


82 


2391 . 


b9 la 23 99 f4 22 c8 cO 58 


20e9 


68 86 68 f8 68 6a 69 de 


07 


2241 : 


f6 Oe 8e 4e ce 2e ae 6e 


a2 


2399 . 


10 dO f5 20 aa 23 a9 la 31 


20fl 


69 4e 6a 6c 6d 6e 69 6a 


6e 


2249 : 


ee le 9e 5e de 3e be 7e 


92 


23al : 


85 fc a9 23 85 fd 4c bd 68 


20f9 


6b 66 67 68 63 64 65 60 


2e 


2251 : 


fe 01 81 41 cl 21 al 61 


c7 


23&9 : 


23 a9 e8 85 fc a9 22 85 3c 


2101 


61 62 5d 5e 5f 5a 5b 5c 


a5 


2259 : 


el 11 91 51 dl 31 bl 71 


b2 


23bl : 


fd a9 35 85 fa a9 03 85 95 


2109 . 


57 58 59 54 55 56 51 52 


5f 


2261 : 


f 1 09 89 49 c9 29 a9 69 


c2 


23b9 : 


fb 4c 9d Id 20 aO Id a9 b4 


2111 : 


53 4e 4f 50 4b 4c 4d 48 


46 


2269 : 


e9 19 99 59 d9 39 b9 79 


b2 


23cl : 


05 85 fc a9 23 85 fd 4c ec 


2119 : 


49 4a 45 46 47 42 43 44 


be 


2271 : 


f9 05 85 45 c5 25 a5 65 


de 


23c9 : 


aO Id 20 aa 23 a9 f4 85 b4 


2121 : 


3f 40 41 3c 3d 3e 39 3a 


77 


2279 : 


e5 15 95 55 d5 35 b5 75 


c2 






2129 : 


3b 36 37 38 33 34 35 30 


5e 


2281 : 


f5 Od 8d 4d cd 2d ad 6d 


e2 






2131 : 


31 32 2d 2e 2f 2a 2b 2c 


d6 


2289 : 


ed Id 9d 5d dd 3d bd 7d 


d2 






2139 : 


27 28 29 24 25 26 21 22 


90 


2291 : 


f d 03 83 43 c3 23 &3 63 


04 


Listing 1, Das Programm 


2141 : 


23 le If 20 lb 1c Id 18 


76 


2299 : 


e3 13 93 53 <*3 33 b3 73 


e2 


«Zenec V2.0» bitte mit dem MSE 


2149 : 


19 la 15 16 17 12 13 14 


ee 


22al : 


f3 Ob 8b 4b cb 2b ab 6b 


02 


auf Seite 158 eingeben 
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23dl . 


fc a9 22 85 fd 4c bd 23 


5b 


2621 


Id 18 a9 20 65 71 85 71 


94 


2871 


40 40 40 40 40 40 40 40 


71 






23d9 


a9 2b 85 fc a9 23 85 fd 


de 


2629 : 


a9 00 65 72 85 72 18 a9 


la 


2879 


40 40 73 00 6d 40 40 40 


11 






23el 


a9 d5 85 fa a9 03 85 fb 


f6 


2631 


50 65 24 85 24 a9 00 65 


48 


2881 


40 40 40 40 40 40 40 40 


81 






23e9 • 


20 9d Id a9 de 85 24 a9 


52 


2639 : 


25 85 25 e6 70 4c 01 26 


01 


2889 


40 40 40 40 40 40 40 40 


89 






23 fl 


03 85 25 4c 91 Id a9 54 


db 


2641 


a5 70 e9 10 bO 28 a9 3b 


fc 


2891 


40 40 40 40 40 40 40 40 


91 






23 f 9 - 


85 24 a9 03 85 25 a9 00 


83 


2649 


85 fc a9 28 85 fd a5 24 


e3 


2899 


40 40 40 40 7d 00 20 ef 


4a 






2401 


85 27 20 91 Id e9 Od fO 


8a 


2651 . 


85 fa a5 25 85 fb 20 9d 


55 


28al 
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72 


3a79 


5a 38 4c 8e 3a c9 Od fO 


dc 


3bbl 


: a5 6f c9 20 fO 03 4e cl 


60 






3949 


39 c9 93 fO 03 4c 57 39 


ec 


3a81 


03 4e 8b 3a 4c c9 3b 4c 


6d 


3bb9 


: 3b a9 7f 85 6f 4c c3 3b 


38 






3951 


4e d9 3b 4c 9b 39 c9 2b 


e3 


3a89 


8e 3a 4c 51 3a 20 3d 3b 


62 


3bcl 


; c6 6f 20 89 3b 4e 51 3a 


48 






3959 


fO 03 4c 64 39 4e a9 2b 


5d 


3a91 


a2 00 18 le 02 04 3e 01 


38 


3bc9 


: 20 3d 3b a5 6f 85 26 20 


07 




3961 


4c 9b 39 c9 2d fO 03 4c 


01 


3a99 


04 3e 00 04 bO 03 4c a5 


dd 


3bdl 


: 44 2a 20 5a 3b 4c 75 3a 


de 






3969 


71 39 4c b2 2b 4e 9b 39 


d6 


3aal 


3a fe 02 04 e8 e8 e8 eO 


97 


3bd9 


: 20 97 Id aO 00 98 91 6d 


06 






3971 


e9 4d fO 03 4c 7e 39 4c 


b4 


3aa9 


6f dO e7 4c 67 3b 20 3d 


4f 


3bel 


: c8 cO 72 dO f9 4c 5a 38 


9c 






3979 


9b 39 4c 9b 39 c9 54 fO 


4e 


3abl 


3b a2 00 18 5e 00 04 7e 


33 


3be9 


: 56 c9 04 dO Of aO 14 20 


c6 






3981 


03 4c 8b 39 4e ee 39 4c 


6e 


3ab9 


01 04 7e 02 04 bO 03 4c 


07 












3989 


9b 39 c9 43 fO 03 4c 98 


25 


3acl 


cb 3a bd 00 04 09 80 9d 


df 












3991 


39 4c 41 3a 4c 9b 39 4c 


a7 


3ac9 


00 04 e8 e8 e8 eO 6f dO 


17 


Listing 1. »Zeichengenerator 








3999 


aa 38 20 27 29 20 10 29 


73 


3adl 


e2 4c 67 3b 20 44 2a aO 


29 


NEC-P 2000« (SchluB) 








Name 


fraktur/h20 .a 4000 6acl 


40e8 : 
40 fO : 
40 f 8 : 


00 00 c8 00 00 10 00 00 
60 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 


9b i 
51 i 
f9 *■ 


►leO : 
►le8 : 

IfO : 


00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 


el 






4000 


00 00 00 00 00 00 00 00 


01 


e9 
fl 






4008 


00 00 00 00 00 00 00 00 


09 


4100 : 


00 00 40 00 00 00 00 00 


11 4 


lf8 : 


00 00 00 00 00 00 00 00 


f9 






4010 


00 00 00 00 00 00 00 00 


11 


4108 : 


c8 00 00 10 00 00 60 00 


54 4 


200 : 


00 00 00 00 00 00 00 00 


01 






4018 


00 00 00 00 00 00 00 00 


19 


4110 : 


00 00 00 00 00 00 00 00 


11 l 


208 : 


00 00 00 00 00 00 00 00 


09 






4020 


00 00 00 00 00 00 00 00 


21 


4118 : 


00 00 00 00 00 00 00 00 


19 4 


210 : 


00 00 00 00 00 00 00 00 


11 






4028 


00 00 00 00 00 00 00 00 


29 


4120 : 


00 00 00 00 00 00 00 00 


21 4 


218 : 


00 00 00 00 00 00 00 00 


19 






4030 


00 00 00 00 00 00 00 00 


31 


4128 : 


00 00 00 00 00 00 00 00 


29 4 


220 : 


00 00 00 00 00 00 00 00 


21 






4038 


00 00 00 00 00 00 00 00 


39 


4130 : 


00 00 00 00 00 00 00 00 


31 4 


228 : 


00 00 00 00 00 00 00 00 


29 






4040 


00 00 00 00 00 00 00 00 


41 


4138 : 


00 00 00 00 00 00 00 00 


39 4 


230 : 


00 00 00 00 00 00 00 00 


31 






4048 


00 00 00 00 00 00 00 00 


49 


4140 : 


00 00 00 00 00 00 00 00 


41 A 


238 : 


00 00 01 00 00 00 00 00 


79 






4050 


00 00 00 00 00 00 00 00 


51 


4148 : 


00 00 00 00 00 00 00 00 


49 4 


240 : 


ff ff ff 00 00 00 80 ff 


41 






4058 


00 00 00 00 00 00 00 00 


59 


4150 : 


00 00 00 00 Of 05 7f fe 


66 4 


248 : 


00 00 00 00 cO 00 00 00 


55 






4060 


00 00 00 00 00 00 00 00 


61 


4158 : 


00 00 00 00 e3 ff ff 00 


97 4 


250 : 


00 00 60 00 00 00 00 00 


69 






4068 


00 00 00 00 00 00 00 00 


69 


4160 : 


00 00 CO 82 04 00 00 00 


21 4 


258 : 


60 00 00 00 00 00 40 00 


ba 






4070 


15 05 If 80 20 60 70 00 


a7 


4168 : 


4l 82 02 00 00 00 61 04 


f9 4 


260 : 


00 00 OD 00 80 00 00 00 


69 






4078 


9f 8e 70 60 70 00 If 80 


Ob 


4170 : 


02 00 00 00 61 84 06 00 


c5 4 


268 : 


00 00 00 00 00 00 00 00 


69 






4080 


20 00 00 00 00 00 00 00 


al 


4178 : 


00 00 40 fb fc 00 00 00 


d8 4 


270 : 


00 00 00 00 00 00 00 00 


71 






4088 


00 00 00 00 00 00 00 00 


89 


4180 : 


80 71 f8 00 00 00 00 00 


f7 4 


278 : 


00 00 00 00 00 00 00 00 


79 






4090 


00 00 00 00 00 00 00 00 


91 


4188 : 


00 00 00 00 00 00 00 00 


89 4 


280 : 


00 00 00 00 00 00 00 00 


81 






4098 


00 00 00 00 00 00 00 00 


99 


4190 : 


00 00 00 00 00 00 00 00 


91 4 


288 : 


00 00 00 00 00 00 00 00 


89 






40a0 . 


00 00 00 00 00 00 00 00 


al 


4198 : 


00 00 00 00 00 00 00 00 


99 4 


290 : 


00 00 DO 00 00 00 DD 00 


91 






40a8 . 


00 00 00 00 00 00 00 00 


a9 


4la0 : 


00 00 00 00 00 00 00 00 


al 












40b0 


00 00 00 00 00 00 00 00 


bl 


4la8 : 


00 00 00 00 00 00 00 00 


a9 












40b8 : 


00 00 00 00 00 00 00 00 


b9 


4lb0 : 


00 00 00 00 00 00 00 00 


bl 












40c0 ■ 


00 00 00 00 00 00 00 00 


01 


4lb8 : 


00 00 00 00 00 00 00 00 


b9 


-isting 2. Den Zeichensatz 








40c8 : 


00 00 00 00 00 00 00 00 


c9 


4lc0 : 


00 00 00 00 00 00 Of 05 


07 > 


FRAKTUR/H20.A- bitte mit dem 








40d0 : 


00 00 00 00 00 00 00 00 


dl 


4lc8 : 


00 00 00 00 00 00 00 00 


c9 1 


dSE (Seite 158} eingeben. Vor dem 






40d8 : 


00 00 00 00 00 00 00 00 


<39 


4ldO : 


00 00 00 00 00 00 00 00 


dl 1 


*unkt bitte drel Leerzeichen 








40e0 : 


00 Oa 05 05 40 00 00 00 


cb 


4ld8 : 


00 00 00 00 00 00 00 00 


39 1 


iingeben. 






Q3£? | 


SONDERHEFT 36 


107 









DRUCKER 



C128 







4298 


: 00 00 00 00 00 00 00 00 


99 


44e8 


: 00 00 00 00 00 08 00 00 


29 


4738 


: 60 00 60 00 00 00 40 00 b2 




42a0 


: 00 00 00 00 00 00 00 00 


al 


44f0 


: 00 00 00 08 00 00 00 00 


f2 


4740 


: 20 00 00 00 80 00 10 00 a9 




42a8 


: 00 00 Of 00 00 00 00 00 


6c 


44f8 


: 00 08 00 00 00 00 01 ff 


01 


4748 


: 00 00 80 00 10 00 00 00 6a 




42b0 


: 00 00 00 00 00 00 00 00 


bl 


4500 


: 80 00 00 00 00 ff cO 00 


83 


4750 


: 80 00 10 00 00 00 80 00 d7 




42b 8 


: 00 00 00 00 00 00 00 00 


b9 


4508 


: 00 00 00 08 00 00 00 00 


Oa 


4758 


: 10 00 00 00 40 00 20 00 ed 




42c 


: 00 00 00 00 00 00 00 00 


cl 


4510 


: 00 08 00 00 00 00 00 08 


2^ 


4760 


: 00 00 60 00 60 00 00 00 7f 




42c8 


: 00 00 00 00 00 00 00 00 


c9 


4518 


: 00 00 00 00 00 08 00 00 


59 


4768 


: 30 00 cO 00 00 00 la 03 3f 




42dO 


: 00 00 00 00 00 00 00 00 


dl 


4520 


: 00 00 00 00 00 00 00 00 


21 


4770 


: 80 00 00 00 Of ff 00 00 el 




42d8 


i 00 00 00 00 00 00 00 00 


d9 


4528 


; 00 00 00 00 00 00 00 00 


29 


4778 


: 00 00 03 fc 00 00 00 00 d9 




42e0 


: 00 00 00 00 00 00 00 00 


el 


4530 


: 00 00 00 00 00 00 00 00 


31 


4780 


: 00 00 00 00 00 00 00 00 81 




42e8 


: 00 00 00 00 00 00 00 00 


e9 


4538 


: 00 00 00 00 00 00 00 00 


39 


4788 


: 00 00 00 00 DO 00 00 00 89 




42f0 


: 00 00 00 00 00 00 00 00 


fl 


4540 


: 00 00 00 00 00 00 00 00 


41 


4790 


: If 05 04 00 00 00 00 00 33 




42f8 


: 00 00 00 00 00 00 00 00 


f9 


4548 


: 00 00 00 00 00 00 00 00 


49 


4798 


: 04 00 10 00 00 00 Oc 00 dl 




4300 


: 00 00 00 00 00 00 00 00 


01 


4550 


: 00 00 00 00 00 00 13 05 


a7 


47a0 


: 10 00 00 00 lc 00 10 00 b3 




4308 


: 00 00 00 00 00 00 00 00 


09 


4558 


: 00 00 20 00 00 00 00 00 


61 


47a8 


: 00 00 3f ff fO 00 00 00 87 




4310 


: 00 00 00 00 00 00 00 00 


11 


4560 


: 72 00 00 04 00 00 38 00 


34 


47b0 


: f f f f fO 00 00 00 00 00 eb 




4318 


: 00 00 00 00 00 00 00 00 


19 


4568 


: 00 00 00 00 00 00 00 00 


69 


47b8 


: 10 00 00 00 00 00 10 00 09 




4320 


: 00 00 00 00 00 00 00 00 


21 


4570 


: 00 00 00 00 00 00 00 00 


71 


47c0 


; 00 00 00 00 10 00 00 00 c2 




4328 


: 00 00 00 00 00 00 00 00 


29 


4578 


: 00 00 00 00 00 00 00 00 


79 


47c8 


: 00 00 00 00 00 00 00 00 c9 




4330 


: 00 00 00 00 00 00 00 00 


31 


4580 


: 00 00 00 00 00 00 00 00 


81 


47d0 


: 00 00 00 00 00 00 00 00 dl 




4338 


: 00 00 00 00 00 00 00 00 


39 


4588 


: 00 00 00 00 00 00 00 00 


89 


47d8 


: 00 00 00 00 00 00 00 00 69 




4340 


: 00 00 00 00 00 00 00 00 


41 


4590 


: 00 00 00 00 00 00 00 00 


91 


47e0 


: 00 00 00 00 00 00 00 00 el 




4348 


00 00 00 00 00 00 00 00 


49 


4598 


: 00 00 00 00 00 00 00 00 


99 


47e8 


: 00 00 00 00 00 00 00 00 e9 




4350 


■ 00 00 00 00 00 00 00 00 


51 


45a0 


: 00 00 00 00 00 00 00 00 


al 


47f0 


: 00 00 00 00 00 00 00 00 f 1 




4358 


00 00 00 00 00 00 00 00 


59 


45a8 


• 00 00 00 00 00 00 00 00 


a9 


47f8 


: 00 00 00 00 00 00 00 00 f9 




4360 


00 00 00 00 00 00 00 00 


61 


45b0 


00 00 00 00 00 00 00 00 


bl 


4800 


: 00 00 11 05 le 00 30 00 88 




4368 


00 00 00 00 00 00 00 00 


69 


45b8 


00 00 00 00 00 00 00 00 


b9 


4808 


: 00 00 3f 00 70 00 00 00 df 




4370 


00 00 00 00 00 00 00 00 


71 


45c0 


00 00 00 00 00 00 00 05 


cb 


4810 


• 63 00 fO 00 00 00 46 01 cb 




4378 


00 00 00 00 00 00 00 00 


79 


45c8 


05 Oa 00 08 00 00 00 00 


d4 


4818 


bO 00 00 00 80 03 30 00 a9 




4380 
4388 


00 00 00 00 00 00 00 00 


81 


45d0 


00 08 00 00 00 00 00 04 


dd 


4820 


00 00 80 06 30 00 00 00 04 




00 00 00 00 00 00 00 00 


89 


45d8 


00 00 00 00 00 04 00 00 


f9 


4828 


80 Oc 30 00 00 00 80 18 ed 




4390 
4398 
43a0 

43a8 
43b0 


00 00 00 00 00 00 00 00 


91 


45eO 


00 00 00 04 00 00 00 00 


61 


4830 


30 00 00 00 80 30 30 00 ab 




00 00 00 00 00 00 00 00 


99 


45e8 


00 Oc 00 00 00 00 00 Oc 


07 


4838 


00 00 80 60 30 00 00 00 68 




00 00 00 00 00 00 00 00 


al 


45f0 


00 00 00 00 00 08 00 00 


31 


4840 


40 cO 30 00 00 00 61 80 73 




00 00 00 00 00 00 00 00 


a9 


45 f 8 


00 00 00 08 00 00 00 00 


fa 


4848 


30 00 00 00 3f 01 aO 00 f7 




00 00 00 00 00 00 00 00 


bl 


4600 


00 04 00 00 00 00 00 00 


03 


4850 


00 00 le 00 cO 00 00 00 e4 




43b8 


00 00 00 00 00 00 00 00 


b9 


4608 


00 00 00 00 00 00 00 00 


09 


4856 


00 00 00 00 00 00 00 00 59 




43c0 
43c8 


00 00 00 00 00 00 00 00 


cl 


4610 


00 00 00 00 00 00 00 00 


11 


4860 


00 00 00 00 00 00 00 00 61 




00 00 00 00 00 00 00 00 


c9 


4618 


00 00 00 00 00 00 00 00 


19 


4868 


00 00 00 00 00 00 00 00 69 




43d0 
43d8 


00 00 00 00 00 00 00 00 


dl 


4620 


00 00 00 00 00 00 00 00 


21 


4870 


00 00 00 00 lb 05 00 03 50 




00 00 00 00 00 00 00 00 


(39 


4628 


00 00 00 00 00 00 00 00 


29 


4878 


80 00 00 00 Oc 07 cO 00 f4 




43e0 


00 00 00 00 00 00 00 00 


el 


4630 


00 00 00 00 00 00 00 00 


31 


4880 


00 00 3e 06 60 00 00 00 d7 




43e8 


00 00 00 00 00 00 00 00 


e9 


4638 


00 00 13 05 00 00 20 00 


le 


4888 . 


66 00 20 00 00 00 40 00 fB 




43 f0 


00 00 00 00 00 00 00 00 


fl 


4640 . 


00 00 00 00 70 00 00 00 


48 


4890 : 


30 00 00 00 80 00 10 00 09 




43f8 
4400 


00 00 00 00 00 00 00 00 


f9 


4648 


00 00 20 00 00 00 00 00 


51 


4898 : 


00 00 80 40 10 00 00 00 c2 




00 00 00 00 00 00 00 00 


01 


4650 : 


00 00 00 00 00 00 00 00 


51 


48a0 : 


80 40 10 00 00 00 80 40 c7 




4408 : 


00 00 00 00 00 00 00 00 


09 


4658 : 


00 00 00 00 00 00 00 00 


59 


48a8 : 


30 00 00 00 40 eO 20 00 64 




4410 : 


00 00 00 00 00 00 00 00 


11 


4660 : 


00 00 00 00 00 00 00 00 


61 


48b0 : 


00 00 61 bO 60 00 00 00 25 




4418 : 


00 00 00 00 00 00 00 00 


19 


4668 : 


00 00 00 00 00 00 00 00 


69 


48b8 ; 


3f If cO 00 00 00 le Of 4e 




4420 : 


00 00 00 00 00 00 00 00 


21 


4670 : 


00 00 00 00 00 00 00 00 


71 


48c0 : 


80 00 00 00 00 00 00 00 41 




4428 : 


00 00 00 00 00 00 00 00 


29 


4678 : 


00 00 00 00 00 00 00 00 


79 


48c8 : 


00 00 00 00 00 00 00 00 c9 




4430 : 


00 00 00 00 00 00 00 00 


31 


4680 : 


00 00 00 00 00 00 00 00 


81 


48d0 : 


00 00 00 00 00 00 00 00 dl 




4438 : 


00 00 00 00 00 00 00 00 


39 


4688 : 


00 00 00 00 00 00 00 00 


89 


48d8 : 


00 00 00 00 00 00 00 00 d9 




4440 : 


00 00 00 00 00 00 00 00 


41 


4690 : 


00 00 00 00 00 00 00 00 


91 


48e0 : 


00 00 00 00 00 00 19 05 4f 




4448 : 


00 00 00 00 00 00 00 00 


49 


4698 : 


00 00 00 00 00 00 00 00 


99 


48e8 : 


00 Oc 00 00 00 00 00 lc 27 




4450 : 


00 00 00 00 00 00 00 00 


51 


46a0 : 


00 00 00 00 00 00 00 00 


al 


48f0 : 


00 00 00 00 00 34 00 00 92 




4458 : 


00 00 00 00 00 00 00 00 


59 


46a8 : 


00 00 00 05 05 Oa 00 00 


ea 


48f8 : 


00 00 00 64 00 00 00 00 85 




4460 : 


00 00 00 00 00 00 00 00 


61 


46b0 : 


00 00 00 00 00 00 00 00 


bl 


4900 : 


00 c4 00 00 00 00 01 84 70 




4468 : 


00 00 00 00 00 00 00 00 


69 


46b8 : 


00 00 00 00 00 00 00 00 


b9 


4908 : 


00 00 00 00 03 04 00 00 59 




4470 : 


00 00 00 00 01 00 00 00 


81 


46c0 : 


00 00 00 00 00 00 00 00 


cl 


4910 : 


00 00 06 04 00 00 00 00 13 




4478 : 


00 00 ff ff ff 00 00 00 


78 


46c8 : 


00 00 00 00 00 00 00 00 


c9 


4918 : 


Oc 04 10 00 00 00 18 04 93 




4480 : 


80 ff 00 00 00 00 cO 00 


03 


46d0 : 


00 00 00 00 00 00 00 00 


dl 


4920 : 


10 00 00 00 30 04 10 00 94 




4488 : 


00 00 00 00 60 00 00 00 


M 


46d8 : 


00 00 00 00 00 00 00 00 


d9 


4928 : 


00 DO 7f ff fO 00 00 00 17 




4490 : 


00 00 60 00 00 00 00 00 


a9 


46e0 : 


00 00 00 00 00 00 00 00 


el 


4930 : 


ff f f fO 00 00 00 00 04 73 




4498 : 


40 00 00 00 00 00 80 00 


db 


46e8 : 


00 00 00 00 00 00 00 00 


e9 


4938 : 


10 00 00 00 00 04 10 00 a9 




44a0 : 


00 00 00 00 00 00 00 00 


al 


46f0 : 


00 00 00 00 00 00 00 00 


fl 


4940 : 


00 00 00 04 00 00 00 00 cl 




44a8 : 


00 00 00 00 00 00 00 00 


a9 


46f8 : 


00 00 00 00 00 00 00 00 


f9 


4948 : 


00 00 00 00 00 00 00 00 49 




44b0 : 


00 00 00 00 00 00 00 00 


bl 


4700 : 


00 00 00 00 00 00 00 00 


01 


4950 : 


00 00 00 00 00 00 00 OD 51 




44b8 : 


00 00 00 00 00 00 00 00 


b9 


4708 : 


00 00 00 00 00 00 00 00 


09 


4958 : 


If 05 ff 81 80 00 00 00 32 




44c0 : 


00 00 00 00 00 00 00 00 


Cl 


4710 ; 


00 00 00 00 00 00 00 00 


11 


4960 : 


ff 83 cO 00 00 00 81 01 59 




44c8 : 


00 00 00 00 00 00 00 00 


c9 


4718 : 


00 00 00 00 00 00 00 00 


19 


4968 : 


60 00 00 00 83 00 20 00 81 




44d0 : 


00 00 00 00 00 00 00 00 


dl 


4720 : 


03 fc 00 00 00 00 Of ff 


de 


4970 : 


00 00 82 00 30 00 00 00 14 




44d8 : 


00 00 00 00 00 00 00 00 


d9 


4728 : 


00 00 00 00 lc 03 80 00 


04 


4978 : 


82 00 10 00 00 00 82 00 09 




44e0 : 


00 00 00 00 Of 05 00 08 


Oa 


4730 : 


00 00 30 00 cO 00 00 00 


49 


4980 : 


10 00 00 00 82 00 10 00 f9 
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SONDERHEFT 36 



SOttf 



























C128 


_ 


^^ 








DRUCKER 






4988 


00 00 83 00 30 00 00 00 


6c 


4bd8 


00 00 00 00 00 00 00 00 


d9 


4e28 


00 00 00 00 00 00 00 00 


29 






4990 


81 00 20 00 00 00 81 80 


21 


4be0 


00 00 00 00 00 00 00 00 


el 


4e30 


00 00 00 00 00 00 00 00 


31 






4998 


60 00 00 00 80 cO cO 00 


Oa 


4be8 


00 00 00 00 00 00 00 00 


e9 


4e38 


00 00 00 00 00 00 19 05 


a7 






49a0 


00 00 80 7f 80 00 00 00 


b8 


4b fO 


00 00 00 00 00 00 00 00 


fl 


4e40 


00 00 00 00 00 00 00 00 


41 






49aS 


80 le 00 00 00 00 00 00 


38 


4b f 8 


00 00 00 00 00 00 00 00 


f9 


4e4S 


00 00 00 00 00 00 00 00 


49 






49b0 


00 00 00 00 00 00 00 00 


bl 


4c00 


00 00 00 05 05 Oa 00 20 


82 


4e50 


00 00 00 00 00 00 00 00 


51 






49b8 


00 00 00 00 00 00 00 00 


b9 


4c08 


20 00 00 00 00 70 72 00 


76 


4e58 


00 00 00 00 00 00 00 00 


59 






49c0 


00 00 00 00 00 00 00 00 


cl 


4el0 


00 04 00 20 38 00 00 00 


9a 


4e60 


00 00 00 00 00 00 00 00 


61 






49c8 


00 00 lb 05 Of ff 00 00 


21 


4el8 


00 00 00 00 00 00 00 00 


19 


4e6S 


00 00 00 00 00 00 00 00 


69 






49d0 


00 00 3f ff cO 00 00 00 


ae 


4c20 


00 00 00 00 00 00 00 00 


21 


4e70 


00 00 00 00 00 00 00 00 


71 






49d8 


70 70 eO 00 00 00 40 40 


3a 


4c28 


00 00 00 00 00 00 00 00 


29 


4e78 


00 00 00 00 00 00 00 00 


79 






49e0 


20 00 00 00 CO cO 30 00 


d3 


4c30 


00 00 00 00 00 00 00 00 


31 


4e80 


00 00 00 00 00 00 00 00 


81 






49e8 


00 00 80 80 10 00 00 00 


la 


4c38 


00 00 00 00 00 00 00 00 


39 


4e88 


00 00 00 00 00 00 00 00 


89 






49f0 


80 80 10 00 00 00 80 80 


b8 


4c40 


00 00 00 00 00 00 00 00 


41 


4e90 


00 00 00 00 00 00 00 00 


91 






49f8 


10 00 00 00 80 80 10 00 


55 


4c48 


00 00 00 00 00 00 00 00 


49 


4e98 


00 00 00 00 00 00 00 00 


99 






4a00 


00 00 80 cO 30 00 00 00 


3c 


4c50 


00 00 00 00 00 00 00 00 


51 


4ea0 


00 00 00 00 00 00 00 00 


al 






4a08 


cO 40 20 00 00 00 4c 70 


03 


4c58 


00 00 00 00 00 00 00 00 


59 


4ea8 


00 00 00 00 00 00 00 00 


a9 






4al0 


eO 00 00 00 7e it cO 00 


b5 


4c60 


00 00 00 00 00 00 00 00 


61 


4ebO 


00 00 38 11 00 00 00 00 


el 






4al8 


00 00 38 Of 00 00 00 00 


08 


4e68 


00 00 00 00 00 00 00 00 


69 


4eb8 


4e 21 00 00 00 80 87 cl 


3d 






4a20 


00 00 00 00 00 00 00 00 


21 


4e70 


00 00 00 00 00 05 05 Oa 


cl 


4ecO 


00 00 02 80 83 81 00 00 


95 






4a28 


00 00 00 00 00 00 00 00 


29 


4c78 


00 00 00 00 00 00 00 00 


79 


4ec8 


02 cO cO 05 00 00 00 cO 


7d 






4a30 


00 00 00 00 00 00 00 00 


31 


4e80 


00 00 00 00 00 00 00 00 


81 


4ed0 


70 18 20 00 00 dO 3f fO 


ba 






4a38 


00 00 00 00 lb 05 eO 00 


96 


4e88 


00 00 00 00 00 00 00 00 


89 


4ed8 


20 00 00 40 Of cO 20 00 


78 






4a40 


00 00 00 00 80 00 00 00 


49 


4e90 


00 00 00 00 00 00 00 00 


91 


4ee0 


00 00 00 00 00 00 00 40 


61 






4a48 


00 00 80 00 00 00 00 00 
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51 








5e28 


00 00 00 00 00 00 00 00 


29 


6080 


11 05 02 00 40 00 00 00 


99 


62d8 


00 00 04 00 00 00 00 00 


da 








5e30 : 


00 00 00 00 00 00 00 00 


31 


6088 . 


67 f f eO 00 00 00 cf ff 


66 


62e0 


Oe 00 40 00 00 00 Of ff 


39 








5e38 : 


00 00 00 00 00 00 00 00 


39 


6090 . 


f 00 00 00 c4 00 20 00 


4d 


62e8 


eO 00 00 00 07 f f f 00 


fd 








5e40 : 


00 00 00 00 00 00 11 00 


85 


6098 : 


00 00 00 00 00 00 00 00 


99 


62f0 


00 00 00 00 20 00 00 00 


f3 








5e48 : 


00 80 40 00 00 00 01 f f 


9d 


60aO : 


00 00 00 00 00 00 00 00 


al 


62f8 


00 00 00 00 00 00 00 00 


f9 








5e50 ; 


cO 00 00 00 63 ff eO 00 


ca 


60a8 : 


00 00 00 00 00 00 00 00 


a9 


6300 


00 00 00 00 00 00 00 DO 


01 








5e58 : 


00 00 bO 00 60 00 00 00 


8b 


60b0 : 


00 00 00 00 00 00 00 00 


bl 


6308 


00 00 00 00 00 00 00 00 


09 








5e60 : 


18 00 30 00 00 00 18 00 


e5 


60t>8 : 


00 00 00 00 00 00 00 00 


b9 


6310 


00 00 00 OD 00 00 00 00 


11 








5e68 : 


30 00 00 00 Oc 00 30 00 


la 


60c0 ; 


00 00 00 00 00 00 00 00 


el 


6318 


00 00 00 00 00 00 00 00 


19 








5e70 : 


00 00 06 00 20 00 00 00 


f4 


60c8 : 


00 00 00 00 00 00 00 00 


c9 


6320 


00 00 00 00 00 00 00 00 


21 








5e78 : 


07 ff cO 00 00 00 03 ff 


bb 


60d0 : 


00 00 00 00 00 00 00 00 


dl 


6328 


00 00 00 00 13 05 02 00 


8a 








5e80 : 


80 00 00 00 01 00 00 00 


11 


60d8 : 


00 00 00 00 00 00 00 00 


d9 


6330 


40 00 00 00 03 ff eO 00 


a4 








5e88 : 


00 00 00 00 00 00 00 00 


89 


60e0 : 


00 00 00 00 00 00 00 00 


el 


6338 


00 00 07 ff eO 00 00 00 


08 








5e90 r 


00 00 00 00 00 00 00 00 


91 


60e8 : 


00 00 00 00 00 00 00 00 


e9 


6340 


04 00 60 00 00 00 Oc 00 


8d 








5e98 : 


00 00 00 00 00 00 00 00 


99 


60f0 : 


00 00 07 05 00 00 02 00 


5b 


6348 : 


30 00 00 00 Oc 00 30 00 


fa 








5ea0 : 


00 00 00 00 00 00 00 00 


al 


60fS : 


00 00 00 00 04 00 00 00 


39 


6350 : 


00 00 06 00 30 00 00 00 


d5 








5ea8 : 


00 00 00 00 00 00 00 00 


a9 


6100 : 


02 00 Oe 00 00 00 67 ff 


a3 


6358 : 


07 f f eO 00 00 00 03 f f 


a3 








5ebO : 


00 00 00 00 00 00 00 00 


bl 


6108 : 


f8 00 00 00 cf ff f8 00 


el 


6360 : 


cO 00 00 00 00 00 00 00 


21 








5eb8 : 


15 05 02 00 40 00 00 00 


d5 


6110 : 


00 00 c4 00 10 00 00 00 


43 


6368 : 


00 00 00 00 00 00 00 00 


69 








5ecO : 


03 f f eO 00 00 00 07 f f 


17 


6118 : 


00 00 00 00 00 00 00 00 


19 


6370 : 


00 00 00 00 00 00 00 00 


71 








5ec8 : 


eO 00 00 00 Oc 04 30 00 


4a 


6120 : 


00 00 00 00 00 00 00 00 


21 


6378 : 


00 00 00 00 00 00 00 00 


79 








5edO : 


00 00 Oc 08 30 00 00 00 


d8 


6128 : 


00 00 00 00 00 00 00 00 


29 


6380 : 


00 00 00 00 00 00 00 00 


81 








5ed8 : 


06 10 30 00 00 00 03 20 


3f 


6130 : 


00 00 00 00 00 00 00 00 


31 


6388 : 


00 00 00 00 00 00 00 00 


89 






5eeO : 


20 00 00 00 01 cO 40 00 


18 


6138 : 


00 00 00 00 00 00 00 00 


39 


6390 : 


00 00 00 00 00 00 00 00 


91 






5ee8 : 


00 00 00 80 00 00 00 00 


f9 


6140 : 


00 00 00 00 00 00 00 00 


41 


6398 : 


00 00 00 00 00 00 11 05 


e7 






5efQ : 


00 00 00 00 DO 00 00 00 


fl 


6148 : 


00 00 00 00 00 00 00 00 


49 


63a0 : 


02 00 00 00 00 00 04 00 


b3 






5ef8 : 


00 00 00 00 00 00 00 00 


f9 


6150 : 


00 00 00 00 00 00 00 00 


51 


63a8 : 


01 00 00 00 Oe 00 43 00 


97 








5fOO : 


00 00 00 00 00 00 00 00 


01 


6158 : 


00 00 00 00 00 00 00 00 


59 


£3b0 : 


00 00 07 ff fe 00 00 00 


62 








5f08 : 


DO 00 00 00 00 00 00 00 


09 


6160 : 


00 00 00 00 Ob 05 20 00 


ba 


63b8 : 


03 ff fc 00 00 00 02 00 


02 








5fl0 : 


00 00 00 00 00 00 00 00 


11 


6168 : 


40 00 00 00 7f ff eO 00 


24 


63c0 : 


20 00 00 00 04 00 10 00 


61 








5fl8 : 


00 00 00 00 00 00 00 00 


19 


6170 : 


00 00 ff ff fO 00 00 00 


7f 


63c8 : 


00 00 Oe 00 30 00 00 00 


of 








5f2Q : 


00 00 00 00 00 00 00 00 


21 


6178 : 


42 10 20 00 00 00 04 20 


lb 


63d0 : 


Oe 00 60 00 00 00 07 f f 


13 
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C128 













DRUCKER 






63d8 


cO 00 00 00 03 tt 80 00 


or. 


6630 


00 00 00 00 00 00 00 00 


31 


6888 


cO 00 00 00 02 7f eO cO 


6a 






6>0 


00 00 00 00 00 00 00 00 


el 


6638 


00 00 00 00 00 00 00 00 


39 


6890 


00 00 04 eO 30 60 00 00 


b4 






63e8 


00 00 QO 00 00 00 00 00 


eS 


6640 


00 00 00 00 00 00 00 00 


41 


6898 


08 cO 10 00 00 00 08 cO 


a6 






63f0 


00 00 00 00 00 00 00 00 


fl 


6648 


00 00 15 05 18 00 40 00 


bl 


68a0 


10 00 00 00 Oc 60 20 cO 


76 






63f8 


00 00 00 00 00 00 00 00 


rs 


6650 


00 00 2f ff eO 00 00 00 


2a 


68a8 


00 00 06 20 40 60 00 00 


35 






6400 


00 00 00 00 00 00 00 00 


01 


6658 


07 f f eO 00 00 00 03 00 


a3 


68b0 


03 ff eO 00 00 00 01 ff 


ef 






6408 


00 00 00 00 00 00 00 00 


09 


6660 


70 00 00 00 00 00 30 00 


91 


68b8 


fO 00 00 00 00 00 20 00 


29 






6410 


15 05 03 ff cO 00 00 00 


7v 


6668 


00 00 04 00 20 00 00 00 


6c 


68c0 


00 00 00 00 00 00 00 00 


cl 






6418 


07 ff eO 00 00 00 Oc 00 


M 


6670 


Oe 00 60 00 00 00 07 ff 


b3 


68e8 


00 00 00 00 00 00 00 00 


c9 






6420 


20 00 00 00 Oc 00 11 00 


46 


6678 


cO 00 00 00 03 ff 00 00 


69 


6840 


00 00 00 00 00 00 00 00 


dl 






6428 


00 00 06 00 11 00 00 00 


bt 


6680 


00 00 01 00 00 00 00 00 


cl 


6848 


00 00 00 00 00 00 00 00 


d9 






6430 


02 00 32 00 00 00 03 ff 





6688 


00 00 00 00 00 00 00 00 


89 


68e0 


00 00 GO 00 00 OD 00 00 


el 






6438 


fe 00 00 00 07 ff fc 00 


9b 


6690 


00 00 00 00 00 00 00 00 


91 


68e8 


00 00 00 00 00 00 00 00 


e9 






6440 


00 00 Oe 00 20 00 00 00 


36 


6698 


00 00 00 00 00 00 00 00 


99 


68f0 


00 00 00 00 00 00 13 05 


47 






6448 


04 00 00 00 00 00 02 00 


55 


66aO 


00 00 00 00 00 00 00 00 


al 


68f8 


02 00 40 00 00 00 03 ff 


17 






6450 


00 00 00 00 00 00 00 00 


5.1 


66a8 


00 00 00 00 00 00 00 00 


a9 


6900 


cO cO 00 00 07 ff eO 60 


d5 






6458 


00 00 00 00 00 00 00 00 


59 


66b0 


00 00 00 00 00 00 00 00 


bl 


6908 


00 00 04 00 60 00 00 00 


10 






6460 


00 00 00 00 00 00 00 00 


61 


66b8 


00 00 00 00 13 05 18 00 


72 


6910 


Oc 00 30 00 00 00 Oe 00 


59 






6468 


00 00 00 00 00 00 00 00 


69 


66c0 


40 00 00 00 2f ff eO 00 


77 


6918 


30 eO 00 00 06 00 30 60 


8a 






6470 


00 00 00 00 00 00 00 00 


71 


66c8 


00 00 07 ff eO 00 00 00 


98 


6920 


00 00 07 ff eO 00 00 00 


fO 






6478 


00 00 00 00 00 00 00 00 


1\ 


66dO 


03 00 70 00 00 00 00 00 


fO 


6928 


03 ff eO 00 00 00 00 00 


5b 






6480 


00 00 15 05 04 00 40 00 


aS 


66d8 


30 00 00 00 04 00 20 00 


c9 


6930 


00 00 00 00 00 00 00 00 


31 






6488 


00 00 Of ff eO 00 00 00 


5a 


66e0 


00 00 Oe 00 20 00 00 00 


66 


6938 


00 00 00 00 00 00 00 00 


39 






6490 


07 ff fO 00 00 00 02 00 


ffl 


66e8 


07 ff cO 00 00 00 03 ff 


2b 


6940 


00 00 00 00 00 00 00 00 


41 






6498 


20 00 00 00 04 00 00 00 


f9 


66 fO 


eO 00 00 00 00 00 70 00 


92 


6948 


00 00 00 00 00 00 00 00 


49 






64a0 


00 00 Oe 00 00 00 00 00 


24 


66f8 


00 00 04 00 30 00 00 00 


fd 


6950 


00 00 00 00 00 00 00 00 


51 






64a8 


07 00 00 00 00 00 02 00 


be 


6700 


Oe 00 20 00 00 00 07 ff 


33 


6958 


00 00 00 00 00 00 00 00 


59 






64b0 


00 00 00 00 00 00 00 00 


bl 


6708 


eO 00 00 00 03 ff eO 00 


lc 


6960 


00 00 00 00 00 00 00 00 


61 






64b8 


00 00 00 00 00 00 00 00- 


b9 


6710 


00 00 01 00 40 00 00 00 


55 


6968 


11 05 02 00 40 00 00 00 


81 






64c0 


00 00 00 00 00 00 00 00 


ci 


6718 


00 00 00 00 00 00 00 00 


19 


6970 


07 ff eO cO 00 00 Of ff 


03 






64c8 


00 00 00 00 00 00 00 00 


of 


6720 


00 00 00 00 00 00 00 00 


21 


6978 


eO 60 00 00 04 00 70 00 


8b 






64d0 


00 00 00 00 00 00 00 00 


dl 


6728 


00 00 00 00 00 00 Id 05 


a7 


6980 


00 00 00 00 20 00 00 00 


83 






64d8 


00 00 00 00 00 00 00 00 


49 


6730 


00 20 04 00 00 08 04 60 


53 


6988 


00 00 40 00 00 00 02 00 


al 






64e0 


00 00 00 00 00 00 00 00 


el 


6738 


90 00 00 20 Of ff cO 00 


cO 


6990 


80 00 00 00 e7 ff cO 00 


90 






64e8 


00 00 00 00 00 00 00 00 


e9 


6740 


00 00 07 ff eO 00 00 00 


10 


6998 


00 00 6f ff eO 00 00 00 


82 






64 fO 


00 00 00 00 Of 05 00 00 


Oa 


6748 


02 60 70 00 00 00 04 60 


67 


69a0 


04 00 70 00 00 00 00 00 


cl 






64f8 


10 00 00 00 03 eO 20 00 


oO 


6750 


20 00 00 00 Oe 40 00 00 


53 


69&8 


20 00 00 00 00 00 00 00 


e9 






6500 


00 40 07 fO 60 00 00 80 


ff) 


6758 


00 00 07 00 00 00 00 00 


la 


69b0 


00 00 00 00 00 00 00 00 


bl 






6508 


Oe 19 60 00 00 00 Oc Oa 


ff 


6760 


02 00 00 00 00 00 00 00 


63 


69b8 


00 00 00 00 00 00 00 00 


b9 






6510 


60 00 04 00 Oe 08 30 00 


33 


6768 


00 00 00 00 00 00 00 00 


69 


69c0 


00 00 00 00 00 00 00 00 


cl 






6518 


10 00 Oc 20 30 00 50 00 


74 


6770 


00 00 00 00 00 00 00 00 


71 


69c8 


00 00 00 00 00 00 00 00 


e9 






6520 


06 00 30 00 90 00 07 08 


68 


6778 


00 00 00 00 00 00 00 00 


79 


69d0 


00 00 00 00 00 00 00 00 


41 






6528 


70 00 00 00 06 Of eO 04 


fd 


6780 


00 00 00 00 00 00 00 00 


81 


6948 


00 00 15 05 00 00 00 00 


be 






6530 


00 00 00 07 cO 08 00 00 


5e 


6788 


00 00 00 00 00 00 00 00 


89 


69eO 


00 00 00 00 00 00 00 00 


el 






6538 


00 00 00 00 00 00 00 00 


39 


6790 


00 00 00 00 00 00 00 00 


91 


69e8 


00 00 00 00 00 00 00 00 


e9 






6540 


00 00 00 00 00 00 00 00 


41 


6798 


00 00 00 00 00 00 00 00 


99 


69f0 


00 00 00 00 00 00 00 00 


fl 






6548 


00 00 00 00 00 00 00 00 


49 


67aO 


11 05 04 00 80 OO 00 00 


3d 


69f8 


00 00 00 00 00 00 00 00 


f9 






6550 


00 00 00 00 00 00 00 00 


51 


67a8 


Of ff cO 00 00 00 07 ff 


03 


6a00 


00 00 00 00 00 00 00 00 


01 






6558 


00 00 00 00 00 00 00 00 


59 


67b0 


eO 00 00 00 02 00 72 00 


7a 


6a08 


00 00 00 00 00 00 00 00 


09 






6560 


00 00 00 00 00 00 16 05 


c3 


67b8 


00 00 06 00 22 00 00 00 


5c 


6al0 


00 00 00 00 00 00 00 00 


11 






6568 


08 00 00 00 00 00 18 00 


ai 


67cO 


04 00 04 00 00 00 Oc 00 


f6 


6al8 


00 00 00 00 00 00 00 00 


19 






6570 


80 00 00 00 3f ff cO 00 


e7 


67c8 


Oc 00 00 00 Of ff f8 00 


a9 


6a20 


00 00 00 00 00 00 00 00 


21 






6578 


00 00 ff ff eO 00 00 00 


S6 


67dO 


00 00 07 ff fO 00 00 00 


al 


6a28 


00 00 00 00 00 00 00 00 


29 
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c5 


67d8 


00 00 00 00 00 00 00 00 


d9 


6a30 


00 00 00 00 00 00 00 00 
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20 00 00 00 00 00 40 00 
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67e0 
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el 


6a38 
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39 






6590 
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-n 


67e8 
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e9 


6a40 
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41 






6598 


00 00 00 00 00 00 00 00 


99 


67f0 


00 00 00 00 00 00 00 00 


fl 


6a48 


00 00 00 00 00 00 00 00 


49 






65a0 


00 00 00 00 00 00 00 00 


al 


67f8 


00 00 00 00 00 00 00 00 


m 


6a50 


00 00 00 00 00 00 00 00 


51 






65a8 


00 00 00 00 00 00 00 00 


a9 


6800 


00 00 00 00 00 00 00 00 


01 


6a§8 


00 00 00 00 00 00 00 00 


59 






65b0 


00 00 00 00 00 00 00 00 


bl 


6808 


00 00 00 00 00 00 00 00 


09 


6a60 


00 00 00 00 00 00 00 00 


61 






65b8 


00 00 00 00 00 00 00 00 


b9 


6810 


00 00 11 05 01 00 lc 00 


76 


6a68 


00 00 00 00 00 00 00 00 


69 






65c0 


00 00 00 00 00 00 00 00 


el 


6818 


00 00 02 04 62 00 00 00 


40 


6a70 


00 00 00 00 00 00 00 00 


71 






65c8 


00 00 00 00 00 00 00 00 


o9 


6820 
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b8 


,6a?8 


00 00 00 00 00 00 00 00 


79 






65d0 


00 00 00 00 00 00 00 00 


dl 


6828 


Oc 00 00 00 07 e? f8 00 


c8 


6a80 


00 00 00 00 00 00 00 00 


81 






65d8 


Od 05 02 00 40 00 00 00 


od 


6830 


00 00 03 c3 fO 00 00 00 


79 


6a88 


00 00 00 00 00 00 00 00 


89 






65eO 


07 ff eO 00 00 00 Of ff 


5b 


6838 


00 00 00 00 00 00 00 00 


39 


6a90 


00 00 00 00 00 00 00 00 


91 






65e8 
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cb 


6840 


00 00 00 00 00 00 00 00 


41 


6a98 


00 00 00 00 00 00 00 00 


99 






65 fO 
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13 


6848 


00 00 00 00 00 00 00 00 


49 


6aa0 
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65f8 
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U 


6850 


00 00 00 00 00 00 00 00 


51 


6aa8 


00 00 00 00 00 00 00 00 


a9 
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f4 
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59 
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00 00 Of ff eO 00 00 00 


da 
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61 


6ab8 
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b9 
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TIPS&TRICKS 



C128 



Tausende von Lesern programmieren ihren C128 und stolJen - 

manchmal dutch Zufall, oft aber auch 

durch system atisches Probieren - 

auf Losungen , die auch Sie 

interessieren konnten. 

49 soldier Tips und Tricks haben wir 

fur Sie gesam melt. 



II V ttJO UIIU 3LUI/CII — 

Das C 128 



Einige Monate sind verstrichen, seitdem wir Ihnen im 
Sonderheft 29 die Tip- und Trick-Kiste offneten. Neue 
_ und auch verbesserte Losungen vielleicht auch Ihrer 
Probleme haben sich inzwischen bei uns gestapelt. Die be- 
sten davon finden Sie nun hier in sieben Rubriken zusam- 
mengestellt. 

Prog ram miertips nennt sich die erste davon, die die Tips 
1 bis 6 umfaBt. Die INPUT-Mangel des Basic 7.0 finden sich 
auch noch in eineranderen Rubrik gelost wieder, hier wird 
Ihnen ein kurzer und einfacher Weg gezeigt, einen Teil die- 
ser Schonheitsfehler zu vermeiden. Wie man die Tasten 
des C 128 in seinen Programmen effektiv nutzen kann, wie 
man auch lange Directories mit stets sichtbarer Kopfzeile 
auf den Bildschirm bringen kann und anderes mehr finden 
Sie in dtesem ersten Abschnitt gesam melt. 

PEEK, POKE und SYS heiBt die zweite Rubrik. Zwar sind 
die C128-Benutzer der Sucht des POKEns noch nicht so 
sehr verfallen wie die C64-Freaks, dennoch: In den Tips 7 
bis 9 haben wir fiir Sie einige dieser Ungeheuer abge- 
druckt, die das Nackenhaar jedes konservativen Inform a- 
tikers strauben. 

GroBere und kleinere Befehlserweiterungen bilden die 
dritte Rubrik (Tips 10 bis 15). Angefangen von einer recht 
umfangrerchen Erganzung des Basic 7.0 urn 39 Befehle 
durch das TNT-Basic bis zur neuen Input-Routine, die kei- 
nen Wunsch mehr often laBt, finden Sie hier Verbesserun- 
gen des C 128-Basic, 

Der nachste Abschnitt hat mit Grafik im weitesten Sinn zu 
tun. Die Tips 16 bis 26 umfassen sowohl eine Super- 
Hardcopy-Routine, als auch verschiedene neue Moglich- 
keiten desSO-Zeichen-Bildschirms. AuBerdem erfahren Sie 
noch von einer Fufiangel, die der CHAR-Befehl dem Basic- 
Programmierer bereithalt. 

Funf Beitrage haben wir unter der Uberschrift Floppy- 
Tips zusammengefafit (Tips 27 bis 31). Naturlich haben sie 
alle mit der 1571 zu tun. 

Der C64-Modus des C 128 1st das Thema der Tips 32 bis 
38. Wie kann man per Program m unterscheiden, ob ein 



C 64 oder ein C 128 benutzt wird? Wie kann man den besse- 
ren Editor des C 128 bei der EingabevonC64-Programmen 
nutzen? Diese und andere Fragen beantwortet Ihnen die- 
ser Abschnitt. 

Zu guter Letzt finden Sie noch eine Rubrik namens Sam- 
melsurium, in der die Tips 39 bis 49 untergebracht sind, die 
wir nicht so recht in die anderen Abschnitte einsortieren 
konnten. 



Kurzubersicht 


Programmiertips: 


S. 


120-122 


Peek, Poke und Sys: 


a 


122-123 


Erweiterungen: 


s. 


123-130 


Grafik: 


s. 


130-138 


Floppy: 


s. 


13B-139 


C64-Modus: 


s. 


139-143 


Sammelsurium: 


s. 


143-145 



So finden Sie leichter In re Tips & Tricks 

Bevor Sie jetzt ans Ausprobieren gehen, noch eine Be- 
merkung: Wie Sie sicherlich aus den verschiedenen Aus- 
gaben des 64'er-Magazins und aus den Sonderheften wis- 
sen, sind die diversen Baureihen des C 128 wahre Wunder 
an Kompatibilitat. Einige Tips beziehen sich speziell auf die 
Unterschiede, die den C128 im wurffesten Blechgehause 
auszeichnen, zum Teil laufen die damit verbundenen Pro- 
gramme nicht auf den C128-Plastik-Verwandten. Im allge- 
meinen ist das dann aus der ErklSrung zum Programm zu 
erkennen. Lediglich bei VDC-Window (Listings 22 und 23) 
ist das nicht erwahnt worden. Urn Ihnen das Auffinden der 
einzelnen Tips zu erleichtern, haben wir in nebenstehen- 
derTabelle, die einzelnen Beitrage nach Themen und Sei- 
ten geordnet ist. 

(Heimo Ponnath/ef) 



1. Quicksort 



Listing 1 enthalt die Basic 7.0-Version des schnellen Quick- 
sort-Algorithm us. Die Bedienung ist denkbar einfach: Der 
Unterroutine, die mit GOSUB aufgerufen wird, sind nur we- 
nige Parameter zu ubergeben. Die Variable O enthalt die 
Anzahl der zu sortierenden Daten, und das String-Feld 
A$(„.) enthalt die zu sortierenden Daten. Weiter miissen im 
Hauptprogramm zwei numerische Felder LG und RG mit 
mindestens soviel Elementen dimensioniert werden, wie 
es Daten gibt, die zu sortieren sind. In Listing 1 wird die Be- 
dienung in den Zeilen 1 bis 8 demonstriert. 

(K. H. Guckler/ef) 



1 DIM A* (10): REM *** ZU SDRTIERENDES ARRAY 


<QJG> 


2 DIM L6<10) ,R6C10): REM *** LINKE Si RECHTE 




6RENZE 




<5VD> 


3 0=16: REM *** MEN6E DER FELDER 




<SNJ> 


4 FOR 1=1 TO 10: INPUT A* C I ) : NEXT : REM 


**# 




EINE ABE 10 FELDER 




<4F3> 


5 i 




<A1S> 


6 GDSUB 40000: REM *** SORTIEREN 




<OMD> 


7 : 




<AHA> 


B FOR 1=1 TO 10: PRINT fi*(I>: NEXT : REM 


*»* 




AUSGABE SORTIERT 




<BB7> 


9 : 




<914> 


10 END 




<BTE> 


40000 S=l: LE<1)=1: RG(1S=0: DO s GOSUB 4000 




1: LOOP UNTIL S=0: RETURN 




<FDJ> 


Listing 1. »Quick-Sort C-128« sortiert Stringfeld 


er schnell 
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Schatzkdstchen 



40001 


L=LE(S): R=RGC5J: 5=5-1: DO : GOSUB 40 






002: LOOP UNTIL L>=R: RETURN 


<FNH> 


4^002 


I=L: J=R: M=(L+R>/2: X#-fl*<MS: DO : GO 
SUB 40004: LOOP UNTIL I>J: IF KR THEN 






S=S+1: LG(S)=I: RB(S)=-R 


<CFI> 


40003 


R=J : RETURN 


<EI3> 


40004 


DO UNTIL A*(I>>=X#: 1=1+1: LDDP : DO U 






NTIL A*(J)<=X«: J=J-1: LOOP 


<SQT> 


40005 


IF K=J THEN W*=A*(I>: fi*(I)=fl*(J>: A# 






(J)=W*: 1=1+1: J=J-I 


<4P4> 


40006 


RETURN 


<2i!7> 


Listing 1. (ScnluB) 





2. Directory mit stehender Kopfzeile 



Der Window-Befehl des C 128 bietet eine Moglichkeit, die 
man bei professionellen Programmen angewendet sieht, 
die aber im Basic 7.0 nicht direkt vorgesehen ist: Beim An- 
zeigen des Directory ist es oft wiinschenswert, da8 die erste 
angezeigte Zeile (Diskname und ID) nicht weggescrollt 
wird. Mit einem kleinen Trick ist das auch in Basic 7.0 ein- 
fach realisierbar: Direkt nach der Definition des Fensters 
(Window xt, y1, x2, y2, 1), in dem das Directory ausge- 
geben werden soli, gibt man folgendes ein: POKE 229, 
PEEK(229)+1 {bzw. in Assembler »INC $E5«). Dadurch 
wird der obere Rand des Fensters urn eine Zeile nach unten 
verschoben, ohne dabei die Cursorposition zu verandern. 
Nun kann die Directory-Routine angesprungen werden 
('DIRECTORY', bzw. »JSR $A07E«). Die erste Zeile, die nun 
ausgegeben wird (Diskname etc.), liegt gerade auBerhalb 
des Fensters, wird also nicht mitgescrollt. Auch hierzu nun 
ein Programmbeispiel: 

10 REM ** DIRECTORY MIT KOPFZEILE ** 

20 WINDOW 25,5,70,20,1 : REM WINDOW SETZEN 

30 POKE 229 , PEEK ( 229) +1 : REM 0BERSTE ZEILE 

SCHUETZEN 
40 DIRECTORY : REM DIR AUSGEBEN 

(H. Stockiein/ef) 



3. Unterscheidung oiler Tosten des C 128 



In vielen professionellen Programmen sieht man immer 
wieder, daB Tastenkombinationen abgefragt werden, die 
mit dem »GET«-Befehl (bzw. mit JSR GETIN) nicht eindeu- 
tig abfragbar sind. Dazu zahlt die Funktion »CTRL-ENTER« 
unterCP/M3.0, diejadort bekanntlich einen Reset bewirkt. 

So etwas ist aber auch in Basic 7.0 und 8502-Assembler 
ganz einfach moglich. 

Dazu verwendet man am besten die Speicherstellen 211 
und 212 der Zeropage. Beide Zellen findet man (in verein- 
fachter Ausfuhrung) auch beim C 64, dort liegen sie aller- 
dings bei 653 und 203. Doch wie ist eine Tastaturabfrage 



mittels dieser Speicherstellen beim C 128 nun zu bewerk- 
stelligen? 

Dazu mu8 man wissen, da8 das Betriebssystem des 
C 128 die Tastatur (von RESTORE einmal abgesehen) in 
zwei Sorten von Tasten unterteilt: 

A) SHIFT, CBM, CTRL, ALT und ASCII-DIN lassen sich in 
der Zeile 211 abfragen, und zwar wie folgt: Jeder dieser Ta- 
sten ist ein Bit in der erwahnten Speicherstelle zugeordnet, 
das gesetzt wird, wenn man die Taste betatigt 



211 


Bit 


4 


3 


2 1 





($D3): 














Wert 


16 


8 


4 2 


1 




Taste 


ASCII 


ALT 


CTRL CBM 


SHIFT 



Druckt man mehrere dieser Tasten gleichzeitig, so wer- 
den auch die betreffenden Bits gleichzeitig gesetzt, man 
mufj also die Wertigkeiten addieren. Ein Beispiel: Druckt 
man die Tasten kombi nation < SH I FT CTRL ALT >, so findet 
man in 211 den Wert 1+4+8 = 13. 
B) Alle anderen Tasten werden in der Speicherstelle 212 
festgehalten. Um den Wert zu erfahren, den eine gedruckte 
Taste hier bedeutet, kann man eine Tabelle des C 128-Be- 
dienungshandbuchs verwenden, die im Anhang J ^Defini- 
tion von Tastaturbelegungen«), abgedruckt ist. Dort sind 
alle Tasten der Gruppe B in einer Reihenfolge aufgefiihrt, 
die weder dem ASCII-Code noch sonst einer Norm ent- 
spricht (in dieser Reihenfolge sind die entsprechenden 
ASCII-Werte in den Tastaturtabellen des Computers abge- 
legt). Hier sind die abgesetzten Tasten des Zehnerblocks 
und des Cursorblock eindeutig zu unterscheiden von den 
»normalen« Tasten der Tastatur! Wichtig ist, daB die Num- 
mer, die bei jeder Taste in der Spalte »Platz« ganz links 
stent, um eins hoher ist als der entsprechende Wert dieser 
Taste in der Speicherstelle 212. Es gilt also zur Berechnung: 
PEEK (212) = Platznummer— 1 

Mit Hilfe dieser Speicherstellen lassen sich nun auch 
exotische Tastenkombinationen eindeutig voneinander un- 
terscheiden, zum Beispiel < SHIFT ALT ENTER > von 

< SHIFT RETURN >: 

< SHIFT ALT ENTER > ist so abfragbar: PEEK(211) : 1+8 
= g 

PEEK(212) : 77-1 = 76 

< SHIFT RETURN > sieht dagegen so aus: PEEK(211) : 1 
= 1 

PEEK(212) : 2-1 = 1 
Ein kleines Programmbeispiel hierzu: 

10 REM* Erkennung aller Tasten** 
20 PRINT "BITTE ' SHI FT -ALT- ENTER • DRUECKEN" 
30 DO 

40 : SH = PEEK(211) : TA = PEEK(212) :REM TASTE 

BERECHNEN 
50 LOOP UNTIL (SH=9 AND TA=76) :REM K0MBINATI0N 

GEDRUECKT? 
60 PRINT "DANKE" 

(H. Stocklein/ef) 
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4. Redefinition der Funktionstosten 



Wie in unserem Magazin bereits erwahnt, lassen sich die 
Funktionstasten mit folgenderZeile so belegen, da6 sie wie 
im C 64-Modus von Programmen aus abfragbar sind: 

FOR 1=1 TO 8 : KEY I, CHR$( 132+1) : NEXT 

Will man nach dieser Eingabe aber mit der Editierung 
des Programms fortfahren, so storte bisher, da6 die beim 
Einschalten vorgenommene Belegung der Funktionsta- 
sten (LIST, RUN und so weiter) nun nicht mehr vorhanden 
war, Hier kann mit einem einfachen POKE-Befehl Abhilfe 
geschaffen werden: 
POKE 2564,0 

Nun wird die ursprungliche Belegung der Funktionsta- 
sten durch BANK 15:SYS 49152 oder < STOP-RESTORE > 
ohne Program mverlust wiederhergestellt. Mit SYS 49152 
ist das sogar im Programmodus moglich (z.B. am Pro- 
grammende). 

Zur Funktion dieses »POKE«-Befehls: Die Speicherstelle 
2564 ($0A04) dient dem Betriebssystem als Merkmal, ob 
die Tastatur-Code-Tabellen und die Funktionstastenbele- 
gungen schon kopiert worden sind. Nach einem RESET 
wi rd d ieses Flag auf $80 gesetzt, so da8 bei ei nem Editorre- 
set (Routine CI NT, Einsprung bei $C000, beziehungsweise 
nach STOP-RESTORE) ein erneutes Kopieren erspart wer- 
den kann. Setzt man dieses Flag einfach von Hand wieder 
auf Null, werden beim nachsten Editorreset die Tastaturbe- 
legungen wieder auf die im ROM festgelegten Werte zu- 
ruckgesetzt. (H. Stocklein/ef) 



5. Kunstlidier Fehler 



Der Trick bestehtdarin, in die Basic-Routine, die bei einem 
Fehler aufgerufen wird, einzusteigen und die notigen Para- 
meter (Fehlernummer) mit zu iibergeben. Da bei dieser Me- 
thode auch Fehlernummern gr68er als 43 vorkommen kon- 
nen, kann man hier leicht mit Hilfe der TRAP-Anweisung 
verschiedene Unterprogramme ersetzen oder auch spe- 
zielle Fehlermeldungen provozieren (z.B. »Falsche Einga- 
be!"). Aufruf: 

SYS 19775,, Fehlernummer 

(2 Kommata sind Pflicht, Fehlernummer > 125 entspricht 
keinem Fehler). Listing 2 ist ein kur2es Demoprogramm. 

(K. H. Guckler/ef) 



1* BANK 1 : PRINT "DK" 

29 PRINT "»■«-■- FEHLER - 66" 

3© TRAP 16G 

40 ! 

50 SYS IV773,,66 

60 : 

79 PRINT "tDOHNJRN DER FEHLERROUT I NE VDRBE1 " 



98 I 

I©3 IF ER=66 THEN PRINT ' 

119 IF ERO66 THEN PRINT 

128 GET KEY rt« 

130 RESUflE NEXT 



! DOWN > FEHLER = 66 !!1" 
"FEHLER - "ER,,ERR*(ER) 



Listing 2. Beispiel fur die kiinstliche Fehlermeldung 



6. INPUT mit Punkt und Komma 



Durch einen einfachen Trick kann man beim INPUT-Befehl 
auch die Zeichen ».« und »,« eingeben. 

Drei POKE-Befehle sorgen fur eine einfachere Eingabe. 
Zuerst wird der Tastaturpuffer auf zwei Zeichen gesetzt: 
POKE 208, 2: REM (Zwei Zeichen im Tastaturpuffer) 



Der nachste POKE-Befehl erlaubt dann die Eingabe von 
Punkt und Komma: 

POKE 842, 34: REM ( An fuhrungs zeichen) 

Urn den Schonheitsfehler (stehengebliebenes Anfuh- 
rungszeichen) zu beseitigen, loscht man einfach das letzte 
Zeichen: 
POKE 843,20:REM (letztes Zeichen ISschen) 

Der INPUT-Befehl muB unmittelbar nach den POKE- 
Befehlen stehen. Einer Eingabe von ».« und »,« steht nun 
nichts mehr im Wege. (M. Volker/ef) 



7. PEEKs und POKEs 



Nach LIST nur die Zeilennummern sichtbar: 

POKE 774, 38. -POKE 775, -160 

Nach LIST Reset: 
POKE 774, 61: POKE 775,255 

< RUN/STOP > und < RUN/STOP RESTORE > ausschal- 
ten: 
POKE 808, PEEK (808) -3 

< RUN/STOP RESTORE> ausschalten: 
POKE 792, 51: POKE 793, 255 

Nach SAVE Reset: 
POKE 818, 61: POKE 819,255 

BOOT-Routine aufrufen: 
SYS 65366 oder SYS 65363,0,8 

(die erste Zahl ist die Laufwerksnummer, die zweite die Ge- 
rateadresse) 

Zwischen 40- und 80-Zeichen-Modus umschalten: 
SYS 49194 

Software-Reset: 
BANK 15: SYS 4352 

Direkt in den C 64-Modus springen: 
SYS 65357 oder SYS 57931 

Nach einem Reset in den C 64-Modus springen oderdort 
bleiben: 

MONITOR 

M 1FFF5 1FFF9 

die ersten Zahlen andern in 43 42 4D 4D FF 05 FF 3D 

danach X eingeben 

Hard- oder Software-Reset geben. 

Sie sind nun im C 64-Modus und konnen ihn auch durch 
Reset nicht wieder verlassen. (P. Vandekerckhove/ef) 



8. PEEK-POKE-SYS, Mummer 2 



Wiederherstellen eines Basic-Programms nach NEW oder 
einem Reset (OLD, RENEW): 
POKE 1+256*PEEK(46) , 1: RENUMBER 

Neu laden des VDC-Original-Zeichensatzes: 
SYS 65378 

Banknummer setzen oder lesen: 
POKE 981, banknummer 

oder 

BN=PEEK(981) 

Aktuelle Basic-Zeilennummer: 
PEEK (59)+256*PEEK(60) 

Aktuelle Zeilennummer fur DATA: 
PEEK (65)+256*PEEK(66) 

Tastaturpuffer: 
POKE 842, x bis POKE 851, x 

Anzahl der Zeichen im Tastaturpuffer: 
PEEK (208) 
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Der Bereich des Video-Chips VIC ist ohne weiteres nicht 
durch POKE ansprechbar. Besonders storend ist dies bei 
der Sprite-Steuerung. Die entsprechenden Register sind 
jedoch in einen zuganglichen Bereich gespiegelt. Die X- 
und Y-Koordinaten der Sprites 1 bis 8 finden Sie ab Adresse 
4566 ($11 D6) bis Adresse 4581 ($11 E5). Die entsprechen- 
den hdchstwertigen Bits stehen in Speicherstelle 4582 
($11 E6). (K. Guckler/ef) 

9. POKEs, PEEKs & SYS 



Als erstes nehmen wir uns mal die aus Low- und High-Byte 
bestehenden Vektoren der Restore- und der Reset-Taste 
vor, Theorie dazu (Fortgeschrittene konnen das tiberlesen): 
Vektoren sind die Zeiger, die auf bestimmte Maschinen- 
sprache-Routinen gerichtet sind. High- und Low-Bytewerte 
einer Zahl errechnen wir wie folgt: Beispielzahl: 4846 dezi- 
mal. DieseZahl wandeln wir in hexadezimaie Schreibweise 
mit PRINT HEX$ (4864) um und erhalten $1300. Diese tren- 
nen wir bei der Mitte in »13« und »00« auf . Diese Zahlen wan- 
deln wir wieder in dezirnale Schreibweise durch PRINT 
DEC("13"), DEC("00") um und erhalten dann die Zahlen- 
paare dezimal 19 und dezimal 0. Die rechts ausgegebene 
Zahl ist immer das Low-Byte, die andere das High-Byte. 

1. Praktische Anwendung: In Bank 15 unter derdezimalen 
Adresse 792 und 793 liegt der NMI-Vektor der Restore- 
Taste. Diesen Vektor konnen Sie nun beliebig verbiegen. 
Beispiele: POKE 792,0: POKE 793,64 = bei Restore Ein- 
schaltbild; POKE792.75: POKE793.226 = bei Restore 
C 64-Modus; POKE 792,0: POKE 793,224 = Reset bei 
Restore, 

2. Praktische Anwendung: In Bank 1 an den (dezimalen) 
Adressen 65528 und 65529 liegt der Reset-Vektor. Auch 
diesen konnen Sie beliebig manipulieren. 

Beispiele: BANK 1 : POKE 65528,75: POKE 65529,266 = 
bei Reset 64'er-Modus; BANK 1: POKE 65528,33 = bei Re- 
set Bildschirrnchaos. 

Denken Sie daran, da8 Sie eigene Maschinensprache- 
Programme genauso gezielt durch Druek von Reset Oder 
Restore aufrufen konnen, wie auch ROM-Routinen. 

Nun fofgen diverse Einzeltricks, mit denen Sie Ihre Pro- 
gramme verbessern, 

1. POKE 820, 189 macht Escape im Quote-(Anfiihrungszei- 
chen-) Modus sichtbar. 

2. POKE 808, 225 laBt den Computer total absturzen. 

3. POKE 0, PEEK (0) OR 64: POKE 1.PEEK (1) AND 191 
schaltet auf DIN-Modus um (wer bisher nur POKE 0, PEEK 
(0) OR 64: POKE 1,0 benutzt hat, diirfte festgestellt haben, 
daB das im 40-Zeichenrnodus nur mit einer Farbe funktio- 
niert). 

4. POKE 0, 47 schaltet wieder zuriick in den ASCII-Modus. 

5. POKE 2757, 129. Im DIN-Modus werden alle Tastaturein- 
gaben nur mit GroBschrift wiedergegeben; Zahlen bleiben 
jedoch erhalten. 

6. POKE 2757, 128 sperrt im 80-Zeichen-Modus die Urn- 
schaltung von ASCII auf DIN. Dieser POKE hat aber noch 
eine Funktion: Wird nach der Eingabe im Direktmodus von 
ASCII auf DIN umgeschaltet und werden dann Zeichen ein- 
gegeben, so erscheinen die Buchstaben A bis Z geSHIF- 
Tet, der Rest ungeSHIFTet. 

7. PEEK (235) gibt die aktuelle Zeile aus (evtl. fiirTextverar- 
beitungen). 

9. PEEK (236) gibt die aktuelle Spalte aus. 

10. POKE 902, 128 gibt bei alien Befehlen Syntax-Error aus. 

11. POKE 900, 20: kein Befehl hat Wirkung. 

12. SYS 52684, 255 bewirkt bei 80-Zeichen extrem groBe 
Schrift. Durch den Interlace-Modus flimmert es stark. 

13. SYS 65366 ruft die »BOOT CALL ROUTINE* auf. 



14. POKE 244, schaltet im Program m-/R UN-Mod us den 
Quotemodus aus. 

15. Ist PEEK (204) gleich 128, dann ist der ASCII-Zeichen- 
satz aktiv. 

16. POKE 245, 64 sperrt GroB/Klein-Umschaitung. 

17. POKE 245, gibt GroB/Klein-Umschaltung frei. 

18. POKE 248, 128: Bildschirmrollen aus. 

19. POKE 248, 0: Bildschirmrollen an. 

20. SYS 51602 gibt Ton aus (= chr$(7)). 

21. SYS 57344: Reset. 

22. SYS 16384: Reset; Attribute wie Farbe werden beibe- 
halten. 

23. POKE 2595, 2 vergroBert den Tastenpuffer um 20 Ele- 
mente. 

24. POKE 2595, schaltet den Tastenpuffer aus. 

25. POKE 53296, 255: Fastmodus fur 64'er-Modus. 

26. POKE 53296, Fastmodus im 64'er-Modus aus. 

27. Wenn PEEK (215) = 128 ist, dann ist der 80-Zeichen- 
Modus aktiv. 

28. POKE 43, 1: POKE 44, 28: geben Sie diese POKEs im 
C 64-Modus ein. AnschlieBend wird das sich vorher im 
C 128-Modus befindende Programm im C 64-Modus zur 
Bearbeitung freigegeben. 

29. POKE (PEEK (45) + 256 * PEEK (46) + 1), 28: SYS 
DEC ("4F4F") bringt das durch Reset oder NEW geioschte 
Programm wieder zuriick (= OLD). 

30. POKE (PEEK (45) + 256 * PEEK (46)), 1: SYS 20303: 
SYS 20354 gleiche, jedoch sicherere Funktion als unter 
Punkt 29. 

31. POKE 2593, 1: ersetzt GETKEY. 

32. POKE243, 1:reversan. 

33. POKE 243, 0: revers aus. 

34. In PEEK (6212) steht die Tastaturnummer der soeben 
durch GETKEY abgefragten Taste. Dam it werden zum Bei- 
spiel die »1« Ciber dem Q und die »1« vorm Zehnerblock ge- 
trennt abgefragt. 

35. POKE 208, 0: WAIT 208, 1: wie Punkt 31. 

36. POKE 808, 112: RUN/STOP aus. 

37. POKE 808, 110: RUN/STOP ein. 

38. POKE 208, 0: loscht Tastenpuffer. 

39. SYS 65520, zeile, spalte ersetzt CHAR. 

40. POKE 53265, 27: FAST im 40-Zeichen modus. 

41. POKE 53265, 11: SLOW im 40-Zeichenmodus. 

42. POKE 241, PEEK (241) OR 214: PRINT "TEXT": Der 
TEXT wird blinkend dargestellt, 

43. POKE 241, PEEK (241) OR 215: PRINT "TEXT": Der 
TEXT wird unterstrichen dargestellt. 

44. POKE 241, PEEK (241) OR 216: PRINT "TEXT": Der 
TEXT wird invertiert dargestellt. 

45. POKE 241, PEEK (241) OR 217: PRINT "TEXT". Der 
TEXT wird im DIN-Zeichensatz dargestellt. 

46. Die Punkte 42 bis 45 konnen auch kombiniert werden. 
Beispiel: POKE 241, PEEK (241) OR 214 + 215: PRINT 
"TEXT". Der Text wird unterstrichen und blinkend darge- 
stellt. 

47. SYS 57931: G064 ohne Kontrollfrage. 

48. POKE 981, 128: jeder darauf foigende SYS-Befehl wird 
falsch adressiert. 

49. POKE 249, 128 verhindert den Ton durch <ControlG>. 

50. SYS 19910 entspricht einem END, jedoch ohne »REA- 
DY.-Meldung. (A. Glootz/ef) 



10. Interiace-Busk 



Im 64'er-Sonderheft 22 uber den C 128 stellten wir Ihnen ei- 
ne Routine vor, die den Interlace-Modus des VDC aktiviert. 
Heute prasentieren wir das »TNT-Basic« (Listing 3), das die- 
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se Fahigkeit Ihres C 128 besser unterstiltzt und noch eine 
Menge weiterer Befehle bietet. So erhalten Sie durch diese 
Erweiterung nicht nur eliiche Befehle und Funktionen, die 
die Programmierung des VDC unterstiitzen, Sie finden 
auch viele Anweisungen, die dem C 128 bisher einfach fehl- 
ten: OLD macht ein versehentlich eingegebenes NEW 



riickgangig, FIND findet Basic-Befehie und String-Kon- 
stanten Oder eine Anweisung wie LOCKS, die die Tasten- 
kombination < RUN/STOP RESTORE> blockiert. Syntax 
und Bedeutung der neuen Anweisungen und Funktionen 
entnehmen Sie bitte der Tabelle 1. Sie starten TNT-Basic 
durch SYS 4864. <M. Ilse/ef) 



BBEEHLS-UBERSICHT 
FUR TNT-BASIC 

FUHRT EINEN RESET AUS 
MERGE L10T EIN PROGRAHM HINTER DAS IN SPEICHER STEKENDE PROGRAHM 
HfiRGtB VEHBINDET ZHEI PROGRAHME NACH EINEH HERGE-BEFEHL 
OLD STELLT EIN BASIC- PROGRAHM NACH NEW HIEDER KIR 
QkBOX ORIGINAL-FUNKTIONSTASTENBELEGUNG HIEDBRHERSTBLLEN 
HMO HI LISTET ALLE IEILEN,IN DENEN DER SUCHBEGRIFF HINTER FIND 
VORKOHMT. UERDEN TEXTE IN ANF DKRUNGSSTRI CHEN GESUCKT. HUES EM 
DIESE AUCH IN ANFUHRUNGSZEICHEN EINGEGEBEN HERDEN . 
CDOB SCHALTET DEN CURSOR AH 
CpjFJ SCHALTET DEN CURSOR AUS 

LOCHS BLOCKIERT DIB STOP-TASTE UND (RUN/STOF RESTORE) 
UNLOCKS GIBT DIB BLOCKIERTE STOP-TASTE FRSI 
LLIST K -Y BASIC-PROGRAMH AUF DRUCKER (GBR«TEADREB5E i, 
SEKUNDiRADRESSE 7? 

LSET HIT "LSET GER1TE ADRESSE , SEKUNDiRADRESSE" KttNNEN GERi- 
TEADRESSE UND SEKUNDiRADRESSE FUR LLIST NEU GE5ETZT HERDEN 
OF? SCHALTET DIE B ASIC-ERWEITERUNG AB UND SBTZT DEN ALIEN RBSET- 
VEKTCIR (KB IN NEU ST ART VON TNT-BASIC) 

OFFK SCHALTET DIE BASICERHEITERUNG AB. ALLERDINGS BLEIBT DEB RE- 
SET- VEKTOH ERHALTEN, EIN -LOCKS" HIED DURCHGEFUHRT UND BEI 
BETJTIGUNG DER RESTORE-TASTE HIRD DIE ERHEITERUNG HIEDEH 
GESTARTF.T 

BCRBEH »fX POKE FUR DAS VDC-RAH 
IIISCB IX) EIN PEEK EUR DAB VDC-RAH 

KKET ._*..•• HIE KEY, NUR 1ST DIE NUHHER JEWEILS UK BINS KLEINER UND 
ES KONNEN ALLE IB TASTED BELEGT HERDEN 
CGOTQ X BERECHNETES GOTO 

HVREG_J^T SCHREIBEN SIDES HERTES IN SIN VDC-REGiSTER 
CBOBUB X BERBCHNF.TBS GOSUB 

LWIMP OHNE PARAHETER HIRD DAS FENSTEH ■ MAXTHALE BILDSCHIRHGRdSSE 
LJtMGL* HIT HUB EINER ZEILE: BILDSCHRIMFENSTER ■ ZEILE 
LMlHP I.Y B1LDBCHIRMFEN5TEH ■ ERSTE BIS LE7ZTE IE I LE 
DF-OKB jt.V IUH POHEN EINES 16 BIT- INTEGER-HERTE5 INS BAH 
PetBK (X) LIEFERT DEN WERT DER ADRESSE X«256"HERT DEB ADRESSE X*l 



OF1HPOT A INPUT OHNE AUSGABE EINES FRAGEI EI CHENS 

TJBI HAHTET AUF DAS DRUCKEN EINER TASTE, DER TASTATURPUFFER HIHD 

UBtOSCKT 

IHTKRLACK OHNE PARAHETER HIRD DER INTERLACE-HODUS DES VDC AKTI- 

VIERT, UNO DER OBERE AUF DEN UNTEREN BILDSCHIRH KOPIERT 

IMTtRLACtl KOPIERT DEN OBEREN AUF DEN UNTEREN BILDSCHIRH 

HtTPlLACI2 KOPIERT DEH UNTEREN AUF DEN OBEREN BILDSCHIRH 

IITTtHLACH VERTAUSCHT DBN UNTEREN UND DEN OBEREN BILDSCHIRH KIER- 

BEI HIRD DEB 2EICHENSPEICHER DBS VOC FUR GROSS /GRAPH 1K-SCHRI FT 

BENUTZT, UND DESHALE HIRD DER IEICHEN5ATI AUS PEH RDM NOCHEINHAL 

IN DAS RAH DES VDC -KOPIERT. 

IMTtRLACIil HIE INTERLACES. HUB HIRD DER ZEICKENBATZ NICHT KOPIERT 

HftlKLACBOFF SCHALTET DEN INTER LACE -HOD US AB . HAN KANN IN EINEH 

PROGRAHM BIN ECHTBS HINDOH SIHULIBREN, INDEH HAN AH ANEANG DES 

PROGRAHMS "INTERLACE : INTERLACEOFB- EINGIBT.DEN ED RETTED 

BILDSCHIRH HIT INTERLACE! IH PROGRAHM RETTET UND MIT INTERLACE2 

SPJTER ZURUCKHOLT. 



Sondflrtaiten 

ALT 

A1T*EHIFT 

ALT 'CONTROL 

ALT* COMMODORE 

A L T * SH I FT . COMH DORE 

ALTtSHIFTfCONTROL 



INTERLACE! 
INTERLACES 
INTERLACE 2 

INTERLACE! 

INTERLACE 

I NT EH LAC BOB F 



CJUIST H0D1F1IIERT DIB LIST-ROUTINE, BSIM LISTEN HERDEN ALLE 

BEFEHLE DER BASI C-ERHE ITERUNG UND ALLE REN-ZEILEN INVERS 

AUSGEGEBEN. AUSSERDBH HIRD SEIH BEFEHL WKEV AUF EINEN TASTENDRUCK 

GEHARTET. DIE FORMAT! ERSToRENDEN ZEICHEN CHRSC13). CHRS(lil) UND 

CHB3 12?) HERDEN ALS CHRS-KDDE IN DEN STRING EINGEFUGT. EIN 

ERNBUTES CLIST HEBT DIE HODIFIZIERUNG AUF 

DSMI <») GIBT DIB LINGS DES 8ASIC-FROGRAMMS IN BYTE AN 

RVRK G lil GIBT DEN INHALT DES VDC-REGISTERS X AN 

L OH IK) LIEFERT DAB LOH-BYTE DES WF.RTES K 

HIB_IU LIEFERT DAS HIGH-BYTE DES HERTES X 

Kami IX ) LIEFEST DIE NUHMEB DER EINGESCHALTETEN BANK 



Tabelle 1. Befehlserklarung und Syntax des »TNT-Baslc« 



Name 


tnt-basic 13 00 IcOl 


1418 
1420 
1428 


4c 2e 51 29 3f 09 80 e8 
fO 27 aa a9 14 aO 6e 85 

25 84 24 aO 00 ca 10 Of 


05 
8f 

61 


1540 
1548 
1550 


ce d4 2d d3 4f 46 54 00 b7 
7d 16 cl 16 50 16 06 16 fd 
Oe 16 16 16 le 16 00 a9 98 


1300 


a9 ff 85 fe a9 f8 85 fd 


5e 


1308 


a9 fd 8d b9 02 aO 01 a9 


c7 


1430 


bl 24 48 e6 24 dO 02 e6 


81 


1558 


00 fO 0b 85 2e a9 00 85 7f 


1310 


17 a2 7f 20 af 02 88 a2 


cf 


1438 


25 68 10 f4 30 ef c8 bl 


3d 


1560 


2d a9 00 8d 58 15 60 ad If 


1318 


7f a9 d7 20 af 02 20 24 


3a 


1440 


24 30 05 20 0c 56 dO f6 


66 


1568 


58 15 dO 0a a5 2d 8d 5e 77 


1320 


ea aO 00 8c 00 ff b9 6b 


8a 


1448 


60 aa aO ec a9 14 dO d7 


fl 


1570 


15 a5 2e 8d 58 15 ad 10 9a 


1328 


13 c9 40 dO Oe 24 d7 10 


cb 


1450 


29 3f 0a a8 b9 Od 15 48 


99 


1578 


12 ac 11 12 38 e9 02 bO a3 


1330 


Od a2 13 a9 20 20 69 92 


56 


1458 


b9 Oc 15 48 4c 80 03 29 


8d 


1580 


01 88 85 2d 84 2e 4e 2c 10 


1338 


ea dO f8 20 69 92 e8 cO 


7c 


1460 


3f 0a a8 b9 49 15 48 b9 


d7 


1588 


91 fO 18 c9 f9 fO 03 4c 9c 


1340 


84 dO e3 a2 05 bd 65 13 


73 


1468 


48 15 48 4c 56 79 52 45 


db 


1590 


6c 79 20 45 a8 a2 4o bd b6 


13*8 


9d Oe 03 oa 10 f7 a9 5f 


2c 


1470 


53 45 d4 4d 45 52 47 45 


d3 


1598 


a8 ce 9d 00 10 ca 10 f7 96 


1350 


a2 14 8d fe 02 Se fd 02 


90 


1478 


b2 4d 45 52 47 c5 4f 4c 


e5 


15a0 


4e 80 03 aO 01 98 91 2d 77 


1358 


a9 af 8d 00 0a a9 lb 8d 


b2 


1480 


c4 46 49 4e o4 43 55 4f 


de 


15a8 


4e e5 5e 20 03 88 86 fe 0b 


1360 


01 0a 4e b5 lb ef 13 15 


d8 


1488 


ce 43 4f 46 c6 4c 4f 43 


27 


15b0 


a5 17 c9 40 bO 11 a2 12 9d 


1368 


14 50 14 Od 0b Oe 05 93 


a7 


1490 


4b d3 55 4e 4c 4f 43 4b 


c7 


15b8 


20 21 la a5 16 a2 13 20 a7 


1370 


3e 20 20 40 d4 oe d4 2d 


40 


1498 


d3 4e 4c 49 53 d4 4f 46 


73 


15c0 


21 la a5 fc 4c If la 4c b6 


1378 


c2 41 53 49 43 20 28 d3 


56 


I4a0 


c6 53 43 52 45 45 ce 58 


95 


15c8 


28 7d fO 08 20 f4 87 eO 75 


1380 


4f 46 54 2d c2 41 53 49 


c3 


I4a8 


4b 45 d9 43 47 4f 54 cf 


54 


15d0 


0a 4c e7 60 a2 ff aO 00 b3 


1388 


43 2d c5 52 57 45 49 54 


8b 


I4b0 


57 56 52 45 c7 43 47 4f 


c2 


15d8 


e8 a9 08 85 77 bd 00 10 ed 


1390 


45 52 55 4e 47 29 40 20 


1c 


I4b8 


53 55 c2 4e 57 49 4e c4 


72 


15eO 


fO 19 86 fc 85 78 a2 06 51 


1398 


20 3c 3e 20 20 40 3<J 43 


e5 


I4c0 


44 50 4f 4b c5 4f 46 49 


ec 


15e8 


bd 00 16 ca dO 02 05 fc af 


13a0 


3e 20 42 59 20 d4 ce d4 


38 


14o8 


4e 50 55 d4 54 4b 45 d9 


97 


15 fO 


20 69 92 8a 10 f2 20 3f 52 


13a8 


20 2d 20 53 4f 46 54 57 


f8 


l4d0 


49 4e 54 45 52 4c 41 43 


11 


15f8 


61 a6 fc eO 09 dO d9 60 47 


13bO 


4f 52 4b 20 28 cd 41 52 


9a 


I4d8 


c5 43 4c 49 53 d4 57 4b 


4b 


1600 


2c 30 20 59 45 4b 58 20 c8 


13b8 


54 49 4e 20 c9 4c 53 45 


If 


I4e0 


45 d9 4c 53 45 d4 45 52 


44 


1608 


64 16 a5 16 4c 96 16 20 b6 


13c0 


29 40 20 3c 3e 20 20 40 


7f 


I4e8 


41 53 c5 00 49 4e 53 43 


If 


1610 


64 16 a5 17 4c 96 16 ac f7 


13c8 


31 32 32 33 36 35 20 c2 


18 


14 fO 


d2 55 53 45 c4 52 56 52 


c7 


1618 


d5 03 a9 00 4c d9 16 20 05 


13d0 


41 53 49 43 20 c2 59 54 


9c 


I4f8 


45 c7 4c 4f d7 48 49 47 


91 


1620 


64 16 a5 16 a6 17 85 fc ef 


13d8 


45 53 20 46 52 45 45 20 


3c 


1500 


c8 52 42 41 4e cb 44 50 


9f 


1628 


• 86 fd 68 85 16 68 85 17 61 


13e0 


30 31 2e 31 31 2e 31 39 


16 


1508 


45 45 cb 00 3c ff 56 15 


2a 


1630 


ae d5 03 aO 00 a9 fc 20 If 


13e8 


38 37 40 20 20 3c Od 85 


f3 


1510 


66 15 88 15 f6 16 85 17 


2a 


1638 


74 ff 85 fb e6 fc dO 02 2a 


13 fO 


fc a9 14 aO 6e 20 e2 43 


d4 


1518 


8b 17 91 17 97 17 aa 17 


81 


1640 


e6 fd ae d5 03 aO 00 a9 14 


13f8 


90 Oe a2 00 29 7f 09 40 


6b 


1520 


01 18 aa 15 c9 15 e4 16 


80 






1400 


4c b2 43 a5 fc 4c 26 43 


7c 


1528 


d7 18 ea 16 f8 18 89 18 


2f 






1408 


a9 14 aO ec 20 e2 43 90 


c8 


1530 


b8 18 37 19 44 19 bf la 


26 


Listing 3. »TNT-Basie« 


1410 


f2 a2 ff dO e7 20 lb 14 


81 


1538 


37 19 9d lb cl lb 00 d4 


65 1 


unterstiltzt VDC und Basic 
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1648 


: fc 20 74 ff a4 fb 4c d9 


80 


1838 


a9 18 8d 19 03 a9 67 8d 


aa 


la28 


: 48 a2 08 aO 04 a9 18 20 06 


1650 


16 20 64 16 a5 17 dO 23 


ef 


1840 


18 03 58 4c 92 17 20 98 


Od 


la30 


: 81 19 a2 Oa aO 00 a9 08 e8 


1653 


a6 16 eO 25 bO Id 20 5a 


Of 


1848 


17 a9 ff 85 fe a9 f8 85 


10 


la38 


: 20 81 19 20 d3 19 a2 02 f8 


1660 


• la 4c 96 16 68 aa 68 a8 


d8 


1850 


fd a9 fd 8d b9 02 aO 01 


83 


la40 


: aO Oa a9 30 20 81 19 a2 Od 


1668 


a5 17 48 a5 16 48 98 48 


f6 


1858 


a9 e2 a2 7f 20 af 02 88 


a3 


la48 


: 06 aO 08 a9 28 20 81 19 91 


1670 


8a 48 20 da 77 20 15 88 


60 


1860 


a2 7f a9 24 4c af 02 d8 


ad 


la50 


: 68 e9 03 dO a8 4c Oc ce 32 


1678 


4c 45 a8 4c 28 7d 20 64 


d2 


1868 


20 3d f6 c9 ff dO 12 20 


2d 


la58 


. a2 If 20 45 a8 4c da cd 2f 


1680 


16 a5 17 c9 40 bO f4 e6 


53 


1870 


43 13 78 a9 40 8d 18 03 


67 


la60 


: ad 7a la fO 06 ce 7a la e4 


1688 


16 a6 16 e8 dO 02 c6 17 


fa 


1878 


a9 fa 8d 19 03 58 20 98 


ca 


la68 


4c 65 fa a5 d3 aa 29 08 21 


1690 


20 ae 16 20 ae 16 a8 68 


aO 


1880 


17 4c 40 fa 21 43 cd 51 


23 


la70 


: e9 00 fO 03 20 7b la 4c b5 


1698 


85 16 68 85 17 cO 00 fO 


4c 


1888 


a9 48 20 f3 18 84 fc 85 


80 


la78 


65 fa 00 eO 08 dO 04 a2 d3 


I6a0 


03 4c d4 84 a2 04 94 63 


f2 


1890 


fd 20 fO 18 85 fb 98 aO 


b8 


la80 


04 dO a4 eO 09 dO 04 a2 9e 


I6a8 


ca 10 fb 68 68 60 a2 13 


cO 


1898 


00 a2 fc 8e b9 02 ae d5 


Oc 


la88 


03 dO 9c eO Oa dO 03 4c 02 


16b0 


a5 16 20 21 la a2 12 a5 


d7 


18a0 


03 20 77 ff a5 fb e6 fc 


61 


la90 


72 19 eO Oe dO 03 4c d3 46 


I6b8 


17 20 21 la 20 58 la 4e 


31 


18a8 


dO 02 e6 fd aO 00 a2 fc 


81 


la98 


19 eO Od dO 03 4c ef 19 03 


I6c0 


58 la ad 10 12 ae 11 12 


92 


18b0 


8e b9 02 ae d5 03 4c 77 


07 


laaO 


eO Ob dO lb 4c 47 19 a2 46 


I6c8 


38 e5 2d bO 02 ca 38 e9 


7f 


18b8 


ff 48 a5 15 85 fc a9 01 


dO 


laa8 


18 20 5a la 09 80 20 21 02 


I6d0 


02 bO 01 ca a8 8a 38 e5 


4f 


18c0 


85 15 68 20 62 56 48 &5 


33 


labO 


la aO 03 b9 fa 00 be Oa dl 


I6d8 


2e cO 00 dO 04 c9 00 fO 


fl 


18c8 


fc 85 15 86 fc 84 fd 20 


c9 


lab8 


la 20 21 la 88 10 f4 60 Oe 


I6e0 


C3 18 4c c9 84 20 f3 18 


45 


18d0 


98 55 68 a6 fc a4 fd 60 


af 


lacO 


ae 07 03 a9 d5 aO la eO 74 


I6e8 


4c e2 59 20 Id 5a 20 86 


32 


16d8 


20 f4 87 eO 25 bO Oe 86 


8d 


lac8 


51 fO 03 a9 51 a8 8d 06 24 


I6f0 


03 20 e5 16 4c f6 4a 20 


25 


18e0 


fc 20 09 88 20 45 a8 8a 


24 


ladO 


03 8c 07 03 60 10 le c9 ce 


I6f8 


83 17 fO 4f a2 00 86 fb 


69 


18e8 


a6 fc 4c 21 la 4c 28 7d 


e3 


ladS 


ff 10 la 24 11 30 16 c9 69 


1700 


c9 22 dO 11 e6 fb 20 7d 


fa 


18f0 


20 5c 79 20 d7 77 4c 15 


35 


laeO 


8f dO 07 a9 12 20 Oc 56 cd 


1708 


17 c9 22 dO 08 a4 fb fO 


le 


18f8 


88 dO 03 4c 24 ca 20 2f 


aa 


lae8 


a9 8f e9 fe fO 58 e9 ce 42 


1710 


04 20 80 03 98 9d 00 Ob 


31 


1900 


19 eO 19 bO 30 86 fc 20 


51 


lafO 


fO 67 4e 63 51 c9 Od fO 8d 


1718 


e8 c9 00 dO e9 a5 2e a6 


dl 


1908 


86 03 fO Ob 20 2c 19 eO 


37 


laf8 


Ob c9 8d fO 07 c9 lb fO 76 


1720 


2d aO 01 dO Id 20 98 55 


d8 


1910 


19 bO 22 eO DO dO 02 a.6 


02 


IbOO 


03 4c 32 51 85 fc a5 4b 4d 


1728 


aO 02 20 ec 42 aa c8 20 


4c 


1918 


fc 8a e5 fc 90 17 a5 fc 


c5 


lb08 


48 a5 11 48 a5 ^ 48 86 a3 


1730 


ec 42 20 25 51 20 b5 4b 


6e 


1920 


85 e5 86 e4 20 50 el a9 


b5 


IblO 


fd 84 fe a9 22 20 Oc 56 44 


1738 


aO 00 20 ec 42 aa c8 20 


5b 


1928 


00 4c Oc 56 20 5c 79 20 


27 


lbl8 


a9 43 20 Oc 56 a9 c8 20 03 


1740 


ec 42 85 62 86 61 20 ec 


c9 


1930 


ee 91 4c f4 87 4c 28 7d 


Of 


lb20 


Oc 56 a9 28 20 Oc 56 a9 d6 


1748 


42 dO 12 60 c8 e8 bd 00 


4e 


1938 


a9 00 85 dO a5 dO fO fc 


fb 


lb28 


00 a6 fe 20 32 8e a9 29 4f 


1750 


Ob fO d2 20 ec 42 dd 00 


e4 


1940 


a9 00 85 dO 60 dO 75 a2 


Oc 


lb30 


20 Oe 56 a6 fd a4 fe 68 92 


1758 


Ob fO f 1 dO lc 88 84 fa 


80 


1948 


14 20 5a la 85 fc c9 10 


ce 


lb38 


85 55 68 49 ff 85 11 68 ec 


1760 


aO 04 a2 00 20 ec 42 fO 


ff 


1950 


fO 06 20 de 6a 20 de 6a 


If 


lb40 


85 4b a9 22 dO bb aa c8 41 


1768 


cf c9 22 dO 06 a9 01 45 


fb 


1958 


aO 05 b9 Oe la be 14 la 


c7 


lb48 


20 ec 42 dO 03 4c 32 51 87 


1770 


fa 85 fa a5 fb c5 fa fO 


5c 


1960 


20 21 la 88 10 f4 a9 10 


18 


lb50 


84 4b c9 27 bO 16 4e 9d f9 


1778 


da c8 dO e6 60 e6 3d dO 


9b 


1968 


8d 2f Oa a5 fe c9 10 dO 


c4 


lb58 


51 aa c8 20 ec 42 dO 03 5f 


1780 


02 e6 3e 4c e9 03 20 45 


ee 


1970 


01 60 a2 06 aO 04 a9 18 


Oc 


lb60 


4e 32 51 84 4b c9 Ob bO 3b 


1788 


a8 4c 6f cd 20 45 a8 4c 


53 


1978 


20 81 19 a2 02 aO 00 a9 


6c 


lb68 


07 4c b7 51 a2 00 fO 02 9f 


1790 


9f cd a2 17 a9 a2 dO 04 


9c 


1980 


08 8d ae 19 bd fe 19 85 


eO 


lb70 


a2 ff 85 fc 86 fd 84 fe 7b 


1798 


a9 6e a2 f6 8e 29 03 8d 


59 


1988 


fe bd ff 19 85 fd b9 fe 


b3 


lb78 


a9 12 20 Oc 56 a5 f c a6 88 


17a0 . 


28 03 85 fc a9 01 08 a5 


59 


1990 


19 85 fa b9 ff 19 85 fb 


38 


lb80 


fd a4 fe 20 lb 14 29 7f 89 


17a8 


fc 28 60 20 45 a8 20 bd 


6a 


1998 


ce ae 19 20 a7 la a9 00 


f9 


lb88 


20 Oc 56 a9 92 20 Oc 56 80 


17b0 


ff a9 00 a2 04 aO 07 20 


7a 


19a0 


a2 le 20 21 la e6 fb e6 


14 


lb90 


a5 fc c9 56 dO 03 20 38 07 


17b8 


ba ff 20 cO ff a2 00 20 


e7 


19a8 


fd a5 fb c9 27 dO ec 20 


9d 


lb98 


19 a9 00 4c 2e 51 20 2f 5c 


17c0 : 


c9 ff 20 86 03 20 e2 50 


bf 


19b0 


a7 la a9 dO a2 le 4c 21 


77 


IbaO 


19 86 fc 20 2c 19 8e b6 73 


17c8 : 


20 98 55 a9 00 20 c3 ff 


cf 


19b8 


la 4c 28 7d c9 fe fO 25 


55 


IbaS 


17 a5 fe 8d b4 17 60 20 48 


17d0 


a9 00 85 ba 4c c9 ff a2 


8a 


19c0 


20 f4 87 eO 01 fO ab eO 


60 


IbbO 


b5 lb 4c 03 40 78 a9 60 96 


17d8 : 


f f 78 9a d8 20 42 e2 20 


b5 


19c8 


03 fO 5c eO 04 fO 58 eO 


61 


ibb8 


a2 la 8d 14 03 8e 15 03 4c 


17e0 : 


09 el 20 93 eO 20 56 eO 


7e 


19d0 


02 dO e6 a2 04 a9 If aO 


94 


lbcO 


58 60 78 20 b3 77 a9 3f 87 


17e8 


20 00 cO 20 7a 41 20 51 


11 


19d8 


06 20 81 19 a2 00 aO 02 


23 


lbe8 


8d 00 ff a9 00 a8 a6 2d c5 


17f0 


42 20 45 40 20 00 13 ad 


45 


19eO 


a9 Of 4c 81 19 20 80 03 


ef 


IbdO 


86 fe a6 2e 86 fd 91 fc dc 


17f8 . 


04 Oa 09 01 8d 04 Oa 4c 


le 


19e8 


e9 4a dO 11 20 80 03 aO 


80 


lbd8 


e6 fc dO 02 e6 fd a6 fd a6 


1800 . 


3c 40 08 20 80 03 a2 05 


17 


19f0 


04 b9 la la be 14 la 20 


dO 


IbeO 


ec 11 12 dO fl a6 f c ec 16 


1808 


bd 84 18 9d Oc 03 ca 10 


e5 


19f8 


21 la 88 10 f4 60 00 00 


9d 


lbe8 


10 12 dO ea a9 00 8d 00 64 


1810 


f7 a9 40 8d 01 Oa a9 03 


ab 


laOO 


dO 07 00 10 dO 17 00 20 


5c 


lbfO 


ff 20 e4 77 58 4c d9 51 11 


1818 


8d 00 Oa a9 78 8d fc 02 


49 


la08 


00 28 21 20 13 12 4d 03 


66 


lbf8 


ff 00 ff 00 ff 00 ff 5f b6 


1820 


a9 4c 8d fd 02 20 cb la 


97 


lalO 


00 40 32 10 04 08 24 07 


de 


leOO : 


41 Id lc Oa 00 41 4e b2 cl 


1828 


78 a9 fa 8d 15 03 a9 65 


eO 


lal8 


06 14 27 fc f 5 20 19 a2 


9c 






1830 


8d 14 03 58 28 fO Of 78 


ca 


la20 


If 20 45 a8 4c cc cd 8a 


2d 


Llstlnj 


I 3, (Schlufl) 



11. Input 128 



Schon haufigerhaben wirverbesserte INPUT-Routinenfiir 
den C 128 veroffentlicht. -Input 128« ist komplett in Assem- 
bler geschrieben, erlaubteine einfache Parameteruberga- 
be und besticht durch seine Geschwindigkeit. Input 128 ist 
nur im 80-Zeichen-Modus lauffahig. Nachdem Sie den 
DATA-Lader (Listing 4) eingetippt und gespeichert haben, 



wird er mit RUN gestartet. Nun wird die eigentliche 
Maschinensprache-Routine in den Speicher geschrieben, 
der Basic-Start auf dezimal 8192 gesetzt und ein NEW aus- 
gefiihrt Die unteren 8 KByte gelten jetzt als gemelnsamer 
(»common«) Bereich fiir alle Speicherbanke, was zur Folge 
hat, daS in Bank ein KByte und in Bank 1 sieben KByte 
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weniger zur Verfugung stehen. 
Die Syntax lautet: 
SYS 4864,X,Y } L,,EZ$,VG$,IN$ 
Dabei bedeuten die Variablen 



X 

Y 

L 

EZ$ 

VG$ 



x-Position der Eingabemaske (0 bis 79) 
y-Position der Eingabemaske (0 bis 24} 
Lange der Eingabe (1 bis 80) 
in der Eingabemaske erlaubte Zeichen 
Vorgabe, die in der Eingabemaske 
auftauchen soil (maximal »L« Zeichen) 



1N$ : String-Variable fur die Eingabe 

Die Variablen-Namen sind selbstverstandlich frei wahl- 
bar. Es ist aber zu beachten, da6 EZ$, VG$ und INS nichtdi- 
mensionierte Variablen sein mussen. X, Y und L durfen da- 
gegen sowohl als Konstanten wie auch als Feldelememte 
angegeben werden. Weiter sollte EZ$ mindestens ein Zei- 
chen enthalten, sonst erscheinen wirre Zeichen im Bild- 
schirmspeicher — es ware auch keine Eingabe erlaubt. Li- 
sting 5 demonstriert die Anwendung von Input 128. 

(J. Bosmann/ef) 



100 

lie 
120 

130 
140 

ise 
i6e 

170 

tse 
190 
zee 

210 

22« 

230 

240 

230 
240 

270 
280 
290 
300 
310 
320 

330 



350 
360 
370 

380 

390 
400 
410 
420 
430 
440 



REN * INPUT 1 2 B DATALADER • 

REM > • 

REM * WRITTEN IN 1987 BY JOCHEN BOSMANN • 

REN * • 

REN * ANSCHRIFT: CRANACHMEQ 2 • 

REN • 4440 RHEINE 1 « 

REM ■■■■llll ff ■■ ■■ '■■■■ ■ ■■ ■ ■ ■ ■■»>»»■ ■ * » • « « « »» ' 

SCNCLR a PRINT "LESE INITIALISIERUNGSDATEN. . . 

I 

REM DATA'S DER INITIALIBIERUNGROUTINE 

t 

BANK 15: FOR 1=2816 TO 2837; READ D*: D=DEC(D 

*)i PI1KE l,Di 5=S+D= NEKT 

IF S02428 THEN PRINT -FEHLER IN ZEILE 260": 

END 

i 

DATA AD,0e,FF,4B,A9,00,BD,00,FF,AO,06,tW,09,e 

6,eD,0b,D5,6S,BD,ee,FF,60 

I 

PRINT "LESE INPUTDATEM 

REN DATA'S WON INFUT128 

I 

FOR ]=*864 TO 3393 STEP 21 ( CK-0: FOR J-l TO 

1+20 

READ DA*! POKE J,DEC<DA*ll CK-CK4-DEC ( DA* > : ME 

XT t READ CM 

IF CHOCK THEN PRINT "ERROR IN ZEILE" PEEK<65 

>+256>PEEK(66>: END 

NEXT 

I 

DATA SS,FA,85,FC,S6,FB,B4,FE,1B,65,FE,B5,FD,C 

6,FD,A2,0E,A5,FA,C9,3e, 3627 

DATA B0,«C,A5,FB,C9,19,B0,e6,A5,FO,C9,50,9e,0 

3,4C,3F,4D,20,F1, 14.AO, 2527 

DATA 02,Bl,49,99,A9,ee,88,10,FB,20,D4,14,2e,F 

1,14,A0,02,B1 ,49,99,A6, 2262 

DATA 00,B8,10,F8,20,D4,14,A2,17,A5,FE,C5,A6,9 

e,D5,A9,43,20,iE,Ce,A9, 2647 

DATA 0e,BD,2B,0A,20,6F,CD,A9,12,BS,63 T A9,15,e 

S,64,A5,FA,85,FC.20,EB, 2448 

DATA 14,A4,FE,8a,R9,20,91,63,20,D2,FF,B8,t0,F 

S,2»,EB,14,fiS,A6,F9,M, 2791 

DATA A0,ee,2e,DE,14,Bl,A7,91,63,2e,D4,14,2e,D 

2,FF,CB,C1,A6,D0,EE,A9, 2960 

DATA 0e,B3,FF,20,Ea,14,2e,E4,FF,Fe,FB,A2,ee,D 

D,FA,14,F0,07,E8,E0,e8, 3B42 



<IIA> 

<IQB> 
<I2B> 
<IA9' 

■;jik 

<39C 
<J2C 

OAD' 

<acp: 
<W6: 

<ics: 
<jad: 
<eci; 

<ASV> 

<0HF> 
<3SF> 

■SMLO 

<2SB> 
<NUI> 
<5SN> 
<J1E> 

<«S3> 

<D3D> 

<37A> 

<9TE> 
<TBG> 
<3CD> 

<B3R> 

<AJO> 

<T3J> 
<79B> 

<eeo> 

<I4B> 

<VOE> 
<HUP> 



450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

330 

560 

570 

5B0 

590 

600 

610 

620 

630 
640 

650 
660 



DATA 90,F6,S0, 12, 
0,03,15,80,01,06, 

DATA «B,A4,A9,B8, 
6,BS,ie,F3,4C,CC 
DATA D2,FF,A4,FF, 
C,E6,FF,4C,96,13 
DATA B8,B1,63,C9, 
0,F1,14,20,D4,14, 
DATA 20, 99, 92, F0, 
5,20,04, 14, C8,C4, 
DATA Fl,2e,DE,14 
B, 91, 49, 00,02, D0, 
DATA D*,14,4C,9F, 
4,C6,FC,C6,FF,4C 
DATA A5,FC,C5,FD, 
0,96, 13,A6,FC,E4 
DATA 7B,C6,FC,20, 
0,D2,FF,CS,A9,2e, 
DATA CB,C4,FE,D0, 
6,13,A4,FE,B8,Bt , 
DATA 20,D0,4F,A5 
3,08,91 ,63,84,65 
DATA ES, 14,68,20, 
0,E7,A9, 20,91 ,63, 
DATA EB, 14, 68, 20 
0,92, 13, AS, FA, 83, 
DATA ES,14,A9,2e, 
E,De,F6,4C,92,13, 
DATA 20,D2,FF,4C, 
B,2B,60,eB,4B,A9 
DATA 00,FF,6B,2B, 
0, 20,50,79, 20, AF, 
DATA DE,14,0D,9D, 
4,3B, 14, 4B, 14,74, 
DATA 14,84,14,63, 

e AA S*A f*A 1* Jlkj^ 
, W ¥ W 1 WOq 'W^T.,. <^W^ 



BA,0A,AA,BD,02,lS,8D,00,eB,B 

6C,00, 1740 

20,DE,14,Dl,AA,20,D4,l'4,Fe,0 

14,20, 2370 

91 ,63,A6,FC,E4,FD,F0,B3,E6,F 

A4,FE, 4961 

20,D0,e3,B8,10,F7,C8,S4,FE,2 

AS.FE, 2817 

lt,A0,ee,Bl,63,20,DE,14,91,3 

FE,D0, 261B 

Ae,00,A5,FE,9I,49,B9,35,00,C 

F6.20, 264H 

CD,A5,FC,C5,FA,D0,e3,«C,CC,J 

94,13, 3195 

DB, 03 , 4C , CC , 1 4 ,E6 , FC ,E6 , FF , 4 

FA.F0, 3726 

EB, 14, A4,FF,Bi, 63,68,91,63,2 

91,63, 3074 

EE, 20,02, FF, 91 ,63,C6,FF,4C,9 

43,09, 3566 

FD,C5,FC,Fe,49,B5,FC,BS.Bl,6 

4S,20, 3077 

D2,FF,A4,65,BS,C6,FC,C4,FF,D 

48,20, 3143 

D2,FF,4C,96,13,A3,FA,85,FC,4 

FC.20, 2971 

A0,e0,91,63,20,D2,FF,CS,C4,F 

A9,07, 2873 

96,13,eS,4B,A9,00,BD,ee,FF,6 

7F,BD, 2144 

60,A6,FB,A4,FC,18,2e,F@,FF,6 

7A,4C, 2625 

10, 14,94, 13,93, IB, ES, 13, 2B.1 

14, AD, 1596 

1 3 | WV-f QV| W| vV| W| vO-j- W| WV y V 



REM BASICSTART 
N 



HOCHLEGEN UNO PROBRAMM LOESCHE 



PRINT -PROSRANM EINGELESEN UND INITIALISIEHT! 



670 PRINT : PRINT "AUFRUFi SYS4B64,X,Y,L, ,E2*,VS* 

,IN*lIN«-IN« 
680 POKE 46,32: POKE 8192,01 POKE 4S,32i Cl_R i SY 

B 2B16: NEW 

Listing 4. "Input 128« ist eine komfortable 

Eingabe-Routine 



<E2N> 

<4RR> 

<R7D> 

<N60> 

<T4N> 

<QB3> 

<JJS> 

<01R> 

<62C> 

<N7A> 

<JKH> 

<.*FJ> 

<11I> 

<2HT> 

<D09> 

<101> 

<0BC> 

<PVO> 
<4SJ> 

<820> 

<7SV> 

<JOK> 

<28J> 
<HE0> 



100 
110 
120 
130 
14e 
150 
160 
170 
IBe 
190 
200 
210 

22e 

230 
240 
25 e 
260 
270 

2B0 
29e 



3ie 

320 
330 

340 
330 



REM ***»##** *#*»#*» #*#»•**••*»*»**»»***#»« 
REM » 1NPUT12Q DCflONSTRATIDN • 
REM « * 

REM * WRITTEN IN 19B7 BY JOCHEN BOSNANN * 

REM ***■ ■ #»iaiB*.t ■ »»**#»at-*»»» n**9***99*#* 



COLOR 5,6: COLOR 4,1: GRAPHIC 5,1: FAST 

EZ*-""I £A*="01234567B9. ": D1HAD*C6> 

FDR 1=032 TO 090t EI»*E7*-H:HR» < I ) : NEXT 

FOR 1-193 TO 21Bs EZ*«EZ*<-CHR*( 1 1 : NEXT 

00 WHILE A*<>-«-" 

: SCNCLR : PRINT I PRINT TAB(32> CHR*(14) CHR 

*(2»"iJDRESSWERNALTUNG , 'l PRINT 

: PRINT TAB ( 15) "£R0GRANM JUR JSEMONSTRATION DE 

R NEUEN INPUT-iCtJTINE"! PRINT 

: PRINT : PRINT TAB! 151 "HACHNAME: " 3FC(21>"<" 
PRINT TAB<13>"KDRNAME :" SPC<21)"<" 
PRINT TftB(15>-fiTRASSE 3- SPC(21)"<" 
PRINT TAB(15t"J10HNORT i " SPC(21l-<- 
PRINT TAB<15)"J i AND(4SPACE>:- SPC(21 



: PRINT 

: PRINT 

i PRINT 

I PRINT 
) "<" 

: PRINT 

: WG*=" " 



PRINT Tft8<15)"fiEBURTS. I " SPCC111"<" 
FOR 1=>1 TO Si SYB 4S64,25,4+2»1 ,20, 
,EZ*,UG«,IN«; IN*=IN*J AD*U)-1N»S NEXT 
: W64--01.01. t9B7"l SYS 4B44,25, 16, 10, ,3 A*, VS 
*,IN*I IN«=IN*: »IH(6l=.lNi 
: SCNCLR ; PRINT AD*(2V "AD* (II 
> FOR 1-3 TO 6i PRINT AD*(I): NEXT 
: PRINT I PRINT 1 PRINT TAB( 10> "IASTE! "l GET 
KEY A* 
LOOP 
SCNCLR 



<I1A> 
■ [(JR :■ 
<I2B> 
<1A9> 
<JIE> 
<0B3> 
<B2E> 
<932> 
<BT4> 
<P50> 
<9T6> 

<1LR> 

<2JL> 
<JNL> 
<JGO> 
<BDO> 
<B05> 

<0V4> 
<IB1> 



OWK> 
<SPJ> 
<U1M> 

<K9C> 
<R39> 
<9PJ> 



Listing 5. Ein Demo zu Input 128 



Futter fur den C128 



Wer kennt das nicht? Da versucht man verzweifelt, ei- 
ne Losung ftir ein spezielles Problem zu finden: Der 
Drucker gibt nur wirre Zeichen aus, die Bildschirmaus- 
gabe ist plotzlich anders als eingeplant. .. Aber da gibt 
es noch ja die Tips&Tricks, in denen vielleicht auch die 
Losung Ihres Problems zu finden ist, 

Wenn Sle solche Tips&Tricks kennen, zogern Sie 
nicht, uns diese zuzusenden. Helfen Sie den C128-Be- 
sitzern mit Ihren Soft- und Hardware-Kniffen, die Sie in- 
zwischen entdeckt haben. Ganzgleich, obessich dabei 
um Einzetler Oder urn kurze Routinen handelt: 

Schicken Sie Ihren Brief an: 

Markt&Technik 
Redaktion Sonderhefte 
Kennwort: Tips&Tricks 
Hans-Pinsel-StraRe 2 
8013 Haar 
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SONDERHEFT 36 



i^HJ* 



C128 



TIPS&TRICKS 



12. BAS.MON mit zwei Bildsdiirntseiten 



»BAS.MON« (Listing 6) erleichtert das Program mieren von 
Basic und Assembler. Wer standig zwischen Basic und 
dem eingebauten Maschinensprache-Monitor des C 128 
wechselt, kennt das zeitraubende Suchen von Programm- 
teilen und Speicherzellen. Das Aufrufen des Monitors und 
das immer neue Auflisten des Basic-Programms entfallen 
nun, da mit zwei Bildschirmseiten im 80-Zeichen-Modus 
gearbeitet wird. 

Starten Sie das Programm nach BLOAD"BAS.MON. 
SYS7136" ON B15 mit SYS 7136. Nach dem Erscheinen der 
Copyright-Meldung wartet BAS.MON auf einen Tasten- 



druck. Der Biidschirm wird geloscht und BAS.MON ist ini- 
tialisiert. Durch Drucken der Funktionstaste <F1> wird 
auf diezweite Bildschirmseite undgleichzeitiginden Moni- 
tor gewechselt, und zwar ohne Registeranzeige. Ein zwei- 
ter Druck auf <F1 > aktiviert wieder die erste Bildschirm- 
seite und man arbeitet wieder mit dem Basic-Interpreter — 
ohne die Ausgabe von »READY«. Beide Bildschirminhalte 
bleiben naturllch voll erhaifen. Gefallt Ihnen die Farbe 
nicht, andern Sie direkt beim Abtippen die Adresse $1B0C. 
Und nun viel SpaB beim Programmieren! 

(H. Kruger/ef) 



lbOO 
lb08 
lblO 
ibl8 
lb20 
lb28 
lb30 
lb38 
lb40 
lb48 
lb50 



Name : bas.mon. sys7136 lbOO lbf9 



a9 01 
20 50 
00 8d 
14 18 
c2 Gl 
20 28 
2d 20 
39 38 
45 4e 
47 45 
fO fa 



ea 30 

cl a9 
72 lb 
20 fO 
d3 2e 
d6 c4 
20 28 
37 20 
52 59 
52 00 
20 42 



dO 20 
8d 85 
60 a2 
f f 20 
cd ef 
c3 29 
43 29 
42 59 
20 cb 
a5 d4 
cl 4e 



42 cl 
fl a9 
0a aO 
7d ff 
ce 2e 
20 20 
20 31 
20 c8 
52 bd 
c9 58 
cO lb 



2e 
16 
5b 
55 

70 
fl 
db 
60 
91 
9f 
c5 



lb58 
lb60 
lb68 
lb70 
lb78 
lb80 
lb88 
lb90 
lb98 
IbaO 
lba8 
lbbO 
lbb8 



a9 6a 
a9 fa 
f f 60 
38 Od 
8d 3c 
*2 09 
10 f8 
06 9d 
7f 8d 
03 4c 
10 fO 
cc cd 
a9 13 



85 fa a9 

a2 01 a0 

93 53 d9 

10 78 a9 



8e 3d 
dd c6 



a6 dO ec 



4a 03 e8 
00 dc 60 
ca c6 ad 
15 a2 Oe 

8d 2e Oa 
20 d2 f f 



lb 85 
08 20 
37 31 
80 a2 
03 58 
fO 16 
20 Oa 
86 dO 
eO 00 
72 lb 
a9 10 
8d 72 
4c 8e 



fb 78 

65 e5 

34 6b 

lb al 

60 c4 

ca be 

bO 31 

a9 bl 

fO 68 

c9 aj 

20 59 

lb 99 

bO 4b 



lbcO : a2 Oc a9 00 20 cc ed 8d 8d 

lbcS : 2e Oa 8d 72 lb a9 13 20 39 

lbdO : d2 ff 20 cc ff 20 7a 41 bl 

lbd8 : 20 38 52 58 4c ba 4d ff 84 

IbeO : 20 00 lb 20 58 lb 20 73 91 

lbe8 : lb 4c 15 lb 20 00 lb 20 81 

lbfO : 58 lb 20 73 lb 4c 52 lb eO 

lbf8 : 54 fd 01 fd 81 fd 01 ff 57 
Listing 6. »Bas.Mon.« - Pro- 
grammieren mit zwei Bildschirm- 
seiten. Im Monitor lose hen Sie bitte 
den Biidschirm vor der ersten 
Eingabe. 



13. Verbessertes RENUMBER 
fur den C 128 



Bei groBeren Basic-Programmen besteht, zum Beispiel 
aus Griinden der Ubersichtlichkeit, oftmals der Wunsch ei- 
ner Neustrukturierung des Programms. Zwar befindet sich 
im Basic 7.0 des C 128 der Befehl RENUMBER, aber mit 
diesem ist eine Umstrukturierung eines Programms nicht 
mdglich, da mit diesem Befehi keine Zeilenbereiche ver- 
schoben werden kdnnen. 

Urn so erfreuter war ich, als im Sonderheft 10 eine 
RENUMBER-Routinezu finden war, die eine Verschiebung 
von Zeilenbereichen gestattete. Dariiber hinaus bestach 
das Programm durch Geschwindigkeit (etwa 20mal schnel- 
ler als der originale RENUMBER-Befehl). Leider sind im 
besagten Programm ganz erhebliche Fehler. So werden 
die Befehle TRAP und RESTORE bei der Neunumerierung 
ignoriert. Beim Befehl ON ... GOTO wird in der folgenden 
Sprungtabelle nur der erste Wert geandert. AuBerdem un- 
terscheidetdas Programm nicht zwischen Basic-Token und 
Grafikzeichen in Strings, was mitunter zu recht eigenarti- 
gen Veranderungen des Programms fuhrt. 

Eine weitere Besonderheit weist die RENUMBER-Routi- 
ne auf, die der Verfasser aber verschwiegen hat: Befindet 
sich im bearbeiteten Basic-Programm ein Sprung auf eine 
nicht vorhandeneZeile, so wird dieserohne Meldung igno- 
riert. Dies ist zwar nicht gerade ein Fehler, aber bei Un- 
kenntnis eventuell doch prekar, denn die originale RENUM- 
BER-Routine gibt in diesem Fall die Meldung UNRESOL- 
VED REFERENCE ERROR aus. 

Nach Einarbeitung in das Programm habe ich die vorge- 
nannten Fehler beseitigt. Nur die letztgenannte Besonder- 
heit der RENUMBER-Routine wurde aus Geschwindig- 
keitsgrunden nicht geandert. Ferner wurde das Programm 
so gestaltet, daB es bei der Initialisierung nur noch einen 
Vektor aus der Vektoren-Tabelle verandert, namlich 



$0304/$0305 (Umwandlung eines Basic-Befehls in Token). 
Tippen Sie Listing 7 im C 64-Modus mit dem MSE ab. Die 
Initialisierung der RENUMBER-Routine erfolgt mit SYS 
4888. Die Syntax des neuen RENUMBER-Befehls ist die- 
selbe wie beim originalen und ist nur durch die Angabe des 
Endes des umzunumerierenden Bereichs erweitert. 

Alle Befehlsparameter sind wie beim originalen RENUM- 
BER-Befehl der Reihe nach optional, das heiBt, es kdnnen 
von hinten her Parameter weggelassen werden. Beispiele: 
RENUMBER (ohne Parameter): Neunumerierung von An- 
fang bis Ende mit der Schrittweite 10 und der Anfangszei- 
lennummer 100. 

RENUMBER 500: Neunumerierung von Anfang bis Ende 
mit der Schrittweite 10, die neue Anfangszeilennummer ist 
500. 

RENUMBER 111,5: Neunumerierung von Anfang bis Ende 
mit der Schrittweite 5, die neue Anfangszeilennummer ist 
111. 

RENUMBER 1000, 10, 300: Neunumerierung ab Zeile 300 
bis Ende mit der Schrittweite 10, die neue Anfangszeilen- 
nummer ist 1000. 

RENUMBER 40, 3, 100, 140: Neunumerierung von Zeile 
100 bis 140 mit der Schrittweite 3 und einfiigen ab Zeile 40. 
Bei diesem Beispiel wird der Zeilenbereich 100 bis 140 
nach Zeile 40 v erschoben. Dabei darf diese Zeile nicht be- 
reits existieren und der neue Bereich darf nicht in andere 
vorhandene Zeilen hineinreichen. Ist dies doch der Fall, 
wird die Fenlermeldung CROSSING LINE NUMBER ER- 
ROR ausgegeben und die Neunumerierung unterbleibt. 
Will man nach der Initialisierung der neuen RENUMBER- 
Routine die originale verwenden, so muB lediglich vor den 
Befehl ein »;« gesetzt werden. 

(H. Buche/ef) 
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C128 



Name 


renumber 4888 1300 1997 


1530 


20 aO 18 a2 04 b5 18 c9 


dd 


1770 


ad 04 11 85 24 ad 05 11 fa 








1538 


30 dO 03 ca dO f7 aO 00 


3a 


1778 


85 25 20 ac 18 70 04 90 64 








1300 


4c 18 13 64 00 Oa 00 00 


fa 


1540 


b5 18 91 16 c8 ea 10 f8 


3e 


1780 


lc fO la ad 07 11 ae 06 10 


1308 


00 00 00 01 Oa 64 e8 10 


bO 


1548 


20 aO 18 aO 00 2c a4 33 


2d 


1788 


11 dO 03 a8 fO 12 sd 01 bO 


1310 


00 00 00 03 27 40 ea ea 


67 


1550 


4c 9a 14 c8 bl 2f 91 16 


Oe 


1790 


11 90 Od dO 05 ec 00 11 21 


1318 


a2 23 aO 13 8e 04 03 80 


05 


1558 


c9 20 fO f7 38 e9 30 90 


21 


1798 


90 06 aO cf 60 aO d5 60 70 


1320 


05 03 60 20 0d 43 a2 ff 


38 


1560 


07 c9 Oa bO 02 38 60 18 


78 


17a0 


aO 00 60 20 6b 18 20 60 15 


1328 


e8 bd 00 02 fO f4 o9 20 


4d 


1568 


60 85 24 86 25 84 27 20 


b8 


17a8 


18 84 2a 84 2b aO 00 84 de 


1330 


fO f6 c9 f8 dO ee aO 07 


32 


1570 


60 18 aO 00 fO 05 c8 dO 


00 


17b0 


be 84 bf c8 bl 16 dO Oa dc 


1338 


b9 03 13 99 00 11 88 10 


36 


1578' 


02 e6 21 bl 20 aa c8 bl 


4a 


17b8 


a9 ff aO 04 91 20 88 10 66 


1340 


f7 88 84 fe 64 fd aO 00 


f? 


1580 


20 c9 fa bO la e8 c8 e4 


2e 


17c0 


fb 60 aO 03 bl 16 aa 88 fb 


13^8 


84 fa 84 fb 20 ee 18 bO 


15 


1588 


24 dO eb c5 25 dO e7 bl 


a4 


17c8 


bl 16 aO 00 91 20 c8 48 7a 


1350 


28 8c 00 11 3d 01 11 20 


46 


1590 


20 aa 88 bl 20 a4 27 c5 


ad 


17d0 


8a 91 20 c8 68 91 20 e8 69 


1358 


ea 18 bO 18 8c 02 11 8d 


b6 


1598 


24 dO 02 e4 25 18 60 a5 


21 


17d8 


8a 91 20 20 85 18 aO 03 d9 


1360 


03 11 20 ea 18 bO Od 84 


95 


15aO 


24 a6 25 a4 27 38 60 a5 


f6 


17e0 


c8 bl 16 fO 22 20 38 18 59 


1368 


fa 85 fb 20 ea 18 bO 04 


62 


15a8 


fa. 85 24 a5 fb 85 25 20 


e3 


17e8 


bO 07 10 f4 20 Od 18 dO 2b 


1370 


84 fc 85 fd aO ff c6 3e 


35 


15bO 


98 16 85 2f 86 30 a6 fc 


19 


17f0 


ef c8 bl 16 fO 11 c9 20 71 


1378 


2c aO 00 20 df 18 78 20 


d9 


15b8 


a4 fd e8 dO 01 e8 86 24 


68 


17f8 


fO f7 20 5c 15 90 e2 e6 a? 


1380 


Oc 14 8d 01 ff 20 07 19 


69 


15c0 


84 25 20 98 16 85 31 86 


51 


1800 


2a dO dd e6 2b dO d9 20 c7 


1388 


20 5c 16 a5 2a 05 2b fO 


6a 


15c8 


32 38 e5 2f 85 35 8a e5 


6e 


1808 


b5 16 4c ad 17 a6 be dO d4 


1390 


6b 18 a9 04 65 2a 90 02 


eO 


15dO 


30 85 36 38 a5 22 e5 35 


c5 


1810 


26 c9 89 90 22 f 20 e9 4d 


1398 


e6 2b Oa 26 2b Oa 26 2b 


4d 


15d8 


a5 23 e5 36 bO 03 aO 04 


fd 


1818 


d7 bO lc c9 d6 bO 18 e9 6e 


13a0 


85 2a 38 ad 12 12 e5 2a 


9c 


15eO 


60 ad 00 11 85 24 ad 01 


6b 


1820 


d5 bO 14 c9 a7 bO 10 c9 5f 


13a8 


85 28 ad 13 12 e5 2b 85 


17 


15e8 


11 85 25 20 98 16 85 33 


cO 


1828 


91 dO 02 85 bf c9 Sd bO 34 


13b0 


29 20 74 18 38 a5 28 e5 


27 


15 fO 


86 34 85 18 86 19 18 65 


51 


1830 


06 c9 8c bO 02 c9 8a 60 ad 


13b8 


la 85 22 a5 29 e5 lb 85 


Ob 


15 f 8 


35 85 lc 8a 65 36 85 Id 


al 


1838 


48 a2 00 c9 22 dO Ob a5 2b 


13e0 


23 90 4f 20 a3 17 a5 2b 


e3 


1600 


20 74 18 18 65 35 85 37 


e8 


1840 


be 49 ff 85 be 86 bf 18 a3 


13c8 


06 2a 2a 06 2a Oa aa e8 


9e 


1608 


8a 65 36 85 38 20 lc 19 


aa 


1848 


68 60 c9 3a dO 04 ea ea 49 


13d0 


86 26 e4 23 bO 3c a5 fa 


80 


1610 


38 a5 2f e5 33 a5 30 e5 


90 


1850 


86 bf a6 bf fO 07 e9 2c le 


13d8 


05 fb dO Oc 20 60 18 bl 


59 


1618 


34 90 la 18 a5 2f 65 35 


f2 


1858 


dO 03 ea 68 60 18 68 60 9b 


13e0 


20 85 fa c8 bl 20 85 fb 


c5 


1620 


85 2f a5 30 65 36 85 30 


2b 


I860 


aO 00 a5 28 85 20 a5 29 bl 


13e8 


20 f8 16 fO Oc 10 25 20 


3e 


1628 


18 a5 31 65 35 85 31 a5 


9b 


1868 


85 21 60 a5 2d a6 2e 85 16 


13f0 


c4 16 dO 20 20 a? 15 dO 


2d 


1630 


32 65 36 85 32 a2 05 b5 


Ob 


1870 


16 86 17 60 18 ad 10 12 ef 


13f8 


lb 20 52 14 20 09 19 8d 


04 


1638 


2f 95 18 ca 10 f9 20 lc 


lb 


1878 


ae 11 12 69 02 90 01 e8 db 


1400 


03 ff 20 Oc 14 8d 03 ff 


46 


1640 


19 a5 31 85 18 a5 32 85 


ab 


1880 


85 la 86 lb 60 18 48 a9 53 


1408 


58 4c a2 4a 20 4f 4f 4c 


cb 


1648 


19 a5 37 85 la a5 38 85 


6d 


1688 


04 65 20 85 20 90 02 e6 54 


1410 


82 4f aO 80 20 09 19 8d 


3c 


1650 


lb a5 2f 85 lc a5 30 85 


75 


1690 


21 68 18 60 18 98 65 2f 32 


1418 


03 ff 58 98 10 05 a2 10 


18 


1658 


Id 20 lc 19 20 6b 18 a9 


cl 


1898 


85 2f 90 03 e6 30 18 60 4a 


1420 


4c 3c 4d cO 04 dO 05 a2 


16 


1660 


00 85 2a 85 2b aO 01 bl 


7d 


18aO 


18 98 65 16 85 16 90 03 72 


1428 


26 4c 3e 4d cO 06 fO 05 


37 


1668 


16 fO 28 e6 2a dO 02 e6 


do 


18a8 


e6 17 18 60 aO 00 bl 20 3d 


1430 


a2 Oe 4c 3c 4d 20 81 92 


75 


1670 


2b aO 03 c8 bl 16 dO fb 


cc 


18b0 


aa c8 bl 20 c9 fb bO Oe 86 


1438 


Od 3f 43 52 4f 53 53 49 


6f 


1678 


c8 18 98 65 16 a6 17 90 


33 


18b8 


c5 25 90 06 fO 02 bO 02 db 


1440 


4e 47 20 4c 49 4e 45 20 


20 


1680 


01 e8 aO 00 91 16 48 c8 


9a 


18c0 


e4 24 b8 60 2c 15 13 60 69 


1448 


4e 55 4d 42 45 52 00 4c 


'5c 


1688 


8a 91 16 68 85 16 86 17 


bf 


18c8 


c8 20 d6 18 c9 20 fO f8 ac 


1450 


a5 4d 20 74 18 20 6b 18 


93 


1690 


4c 65 16 aO 00 91 16 60 


ce 


iedo 


60 aO 00 2c aO 01 8d 01 50 


1458 


85 16 85 lc 85 2f 18 8a 


15 


1698 


20 6b 18 dO 05 20 b5 16 


e2 


18d8 


ff bl 3d 8d 03 ff 60 18 93 


1460 


85 19 65 26 85 Id 85 30 


48 


16a0 


fO Od aO 02 bl 16 aa c8 


87 


18e0 


98 65 3d 85 3d 90 02 e6 59 


1468 


20 lc 19 20 6b 18 aO 00 


db 


16a8 


bl 16 20 b8 18 90 ee a5 


91 


18e8 


3e 60 aO ff 20 c8 18 c9 bb 


1470 


84 be 84 bf bl 2f 91 16 


73 


I6b0 


16 a6 17 18 60 aO 00 bl 


51 


18 fO 


00 fO 13 c9 3 a fO Of c9 61 


1478 


e8 bl 2f 91 16 dO 07 e8 


ac 


16b8 


16 aa c8 bl 16 fO 04 86 


92 


18 f 8 


2c dO 01 c8 20 df 18 20 87 


1480 


91 16 a8 91 16 60 c8 c8 


92 


16cO 


16 85 17 60 20 60 18 ad 


2b 


1900 


d7 77 20 15 88 18 60 18 39 


1488 


bl 2f 88 aa bl 2f 20 69 


30 


16c8 


00 11 85 24 ad 01 11 85 


69 


1908 


24 38 a2 20 b5 16 90 05 5d 


1490 


15 aO 02 91 16 c8 8a 91 


9d 


I6d0 


25 20 ae 18 70 lc fO Id 


19 


1910 


bd 08 11 95 18 9d 08 11 79 


1498 


16 c8 bl 2f 91 16 20 38 


If 


16d8 


bO 05 20 85 18 90 f2 ad 


fl 


1918 


ca 10 fl 60 38 a5 la e5 58 


I4a0 


18 bO 12 30 Ob dO f2 e8 


30 


16e0 


04 11 85 24 ad 05 11 85 


a5 


1920 


18 a8 a5 lb e5 19 48 38 12 


I4a8 


20 94 18 20 aO 18 90 be 


a? 


16e8 


25 20 ac 18 70 04 90 05 


bf 


1928 


a5 18 e5 lc aa a5 19 e5 de 


I4b0 


20 Od 18 dO e4 20 53 15 


3e 


I6f0 


fO 03 aO 00 60 aO 06 60 


6e 


1930 


Id dO 05 8a dO 02 68 60 c7 


I4b8 


90 eO 84 33 &2 00 95 18 


fl 


16 f 8 


20 60 18 a5 fa 85 24 a5 


bb 


1938 


68 90 31 aa e8 84 la 38 15 


I4c0 


e8 c8 bl 2f 20 5c 15 bO 


f9 


1700 


fb 85 25 a9 00 aa 8e 06 


d8 


1940 


a9 00 e5 la a8 84 la 38 2d 


I4c8 


f5 84 34 ca b5 18 85 24 


eO 


1708 


11 8d 07 11 20 ac 18 70 


6d 


1948 


a5 18 e5 la 85 18 bO 02 96 


I4d0 


aO 00 84 25 fO la b5 18 


Id 


1710 


4d fO 07 bO 4c 20 85 18 


b9 


1950 


c6 19 38 a5 lc e5 la 85 ca 


I4d8 


85 27 c8 10 Of 18 a5 24 


b6 


1718 


90 ec a5 fc 85 24 a5 fd 


33 


1958 


lc bO 02 c6 Id bl 18 91 09 


I4e0 


79 Ob 13 85 24 a5 25 79 


4b 


1720 


85 25 ad 00 11 85 16 ad 


94 


I960 


lc c8 dO f9 e6 19 e6 Id 61 


I4e8 


10 13 85 25 c6 27 10 ed 


4a 


1728 


01 11 85 17 aO 03 a5 17 


dd 


1968 


ca dO f2 60 84 18 aa e8 e8 


I4f0 


ca 10 e3 20 6d 15 bO 56 


ae 


1730 


8d 05 11 91 20 88 a5 16 


bf 


1970 


18 65 Id 85 Id 38 a5 la 91 


I4f8 


fO 54 85 24 86 25 a2 04 


lc 


1738 


8d 04 11 91 20 18 6d 02 


ba 


1978 


e5 18 85 la bO 02 e6 lb 7a 


1500 


a9 30 85 27 38 bO 06 84 


32 


1740 


11 85 16 ad 03 11 65 17 


oc 


1980 


98 fO 07 bl la 91 lc 88 38 


1508 


24 85 25 e6 27 a5 24 fd 


41 


1748 


85 17 bO 21 c9 fa bO Id 


la 


1988 


dO f9 bl la 91 lc c6 lb 50 


1510 


Ob 13 a8 a5 25 fd 10 13 


2e 


1750 


20 85 18 20 ac 18 70 2b 


el 


1990 


c6 Id ca dO f 2 60 20 fd 60 


1518 


bO ed a5 27 95 18 ca dO 


f4 


1758 


90 d2 fO dO bO 12 aO 02 


ca 






1520 


df 18 a5 24 69 30 85 18 


58 


1760 


60 bl 20 85 fb 88 bl 20 


5d 


Listing 7. 


1528 


ac 34 00 20 94 18 a4 33 


f5 


1768 


85 fa 18 90 ad aO 04 60 


33 


Eine schnelle Ren umber- Routine 
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14. POP RETURN 



Werkennt nicht das Problem, nach einem ungewollten GO- 
SUB-Befehl wie zum Beispiel COLLISION nicht In das 
Hauptprogramm zuruekkehren zu wollen. Hier hilft »POR 
ASM« {Listing 8), das den lelzten GOSUB-Befehl verges- 
sen laBt. Wenn noch gar kein GOSUB-Befehl auftrat, gibt es 
die Fehlermeldung »RETURN WITHOUT GOSUB- aus. 



Name 


: pop. asm 2000 2020 


2000 : 68 68 a9 8d 20 aa 4f fO 2f 
2008 : 05 a2 0c 4c 3c 4d 20 50 3& 
2010 : 50 aO 05 20 59 50 4c 8f 5e 
2018 : 52 ff 00 ff 00 ff 00 bl cd 

Listing 8. »POP. ASM- beseitigt die Riicksprungadresse 
eines vorangegangenen GOSUBs 



Das Programm ist im Speicher mit dem MONITOR-Befehl 
»t« frei verschiebbar. Listing 9 demonstriert die Anwendung 
dieser Programmierhilfe, (K. H. Guckler/ef) 



(•> BLOAD "POP. ASM": BANK IS 

1 PRINT "{DQWN>IM HAUPTPRQSRAMH" 

2 GOSUB 10 

3 PRINT 

4 GOTO 1 
7 END 

10 PRINT "(DOWN} NACH EOSUB 10 .. 

11 INPUT "(R) FUER RETURN ODER 
# 

12 IF A*<>"R" AMD A#<>"=" THEN 

13 IF A*="=" THEN SYS B172 

14 PRINT "{25PACE>-> RETURN" 

15 RETURN 

Listing 9. »POR Beispiel" demonstriert die Anwendung 
von POP. ASM 



(■=) FUER BEFEHL POP 



1 1 



15. Gioftbuchstuben in der Grafilc 



»BIG LETTERS* (Listing 10)isteine Basic-ErweJterung.die 
Zeichen in doppelter Hohe in bis zu zwei Farben auf dem 
Grafikbildschirm darstellt. Hierzu werden vom Programm 
funf neue Befehle bereitgestellt. Im einzelnen handelt es 
sich hier urn die Befehle SET, OUT, BIGON, BIGOFF und 
OFF. Letzterer dient dazu, die Erweiterung abzuschalten. 
Doch nun die Funktion der restlichen Befehle im einzelnen: 
SET Zeile,Spalte,Farbe1,Farbe2 

Der SET-Befehl legt Zeile, Spalte und Farbe der oberen 
und der unteren Zeichenhalfte fur den OUT-Befehl fest. Al- 
le Angaben konnen auch uber Variablen erfolgen. 
OUT "XXXXXXXXXXXXXXXXXXXXXXXX" 

Mit dem OUT-Befehl wird die nachfolgendeZeichenkette 
unterden mitSETangegebenen Daten auf dem Grafikbild- 
schirm ausgegeben. Der Grafikbildschirm braucht dazu 
nicht eingeschaltet sein, Auch hier kann die Zeichen kette 
als Variable angegeben werden. 
BIGON 

Fur diesen Befehl sind keine weiteren Angaben erforder- 



lich. Er hat die Aufgabe, den oberen und unteren Bild- 

schirmrand abzuschalten. 

BIGOFF 

Dieser Befehl bewirkt das Gegenteil von BIGON. Er 
schaltet den Bildschirmrand wieder ein. 

Urn Ihnen die Wirkungsweise der einzelnen Befehle zu 
verdeutlichen, liegt mit Listing 2 noch ein Demo-Listing vor, 
das Ihnen die Fahigkeiten der Erweiterung vor Augen fuh- 
ren soli. 
Laden und starten 

Nachdem Sie Listing 10 im C 64-Modus eingegeben ha- 
ben, laden Sie es im C 128-Modus mit BLOAD "BIG LET- 
TERS " von Diskette und starten es mit SYS 4864. Nun ste- 
hen Ihnen die oben beschriebenen Befehle zur Verfiigung. 
Geben Sie das Demoprogramm (Listing 11) auf die gleiche 
Art und Weise ein. Das Abtippen mit dem Basic-Interpreter 
scheidet aus, da unser Druckprogramm ("Cursor-Transla- 
tor*) die neuen Basic-Befehle nicht interpretieren kann. 

(D. Bozza/ef) 



Name 


big letters 1300 1599 


13c0 
13c8 
13d0 


ed 13 eO 29 bO 2d 86 fb 
20 ed 13 eO 10 bO 24 8a 
18 a5 fc 69 10 85 fc ca 


lb 


1490 : 
1498 : 

I4a0 : 


00 d8 48 
13 20 d2 

8d aa.02 


a6 fe fO 17 a9 Oa 
f f aO 00 a9 24 69 
a2 7f 20 a2 02 df 


1300 


a9 58 aO 13 8d 0c 03 8e 


be 


de 


1308 


Od 03 a9 70 aO 13 8d Oe 


04 


13d8 


dO f6 20 ed 13 eO 10 feO 


c3 


l4a6 : 


20 d2 f f 


ae 00 04 68 8d e4 


1310 


03 8c Of 03 a9 8c aO 13 


25 


13e0 


12 8a 18 a5 fd 69 10 85 


69 


l4b0 : 


00 d8 68 


8d 00 04 a9 00 af 


1318 


6d 10 03 8c 11 03 a9 2b 


26 


13e8 


fd ca dO f6 60 20 5c 79 


c9 


l4b8 : 


aO dO 85 


aa 84 ab eO 00 aO 


1320 


aO 13 8d 00 03 8c 01 03 


4c 


13 fO 


4c f4 87 a2 Oe 6c 00 03 


37 


l4c0 : 


fO Oe 18 


a5 aa 69 08 85 93 


1328 


4c 4f 9f 8a 30 08 a9 lb 


75 


13 f 8 


e6 a8 dO 02 e6 a9 60 aO 


25 


I4e8 : 


aa 90 02 


e6 ab ca dO f2 52 


1330 


8d 5a 15 20 83 15 4c 3f 


c4 


1400 


00 a2 04 bl aa 91 a8 20 


a3 


I4d0 : 


aO 00 20 


ff 13 18 a5 a8 52 


1338 


4d 53 45 d4 4f 55 d4 42 


92 


1408 


f8 13 91 a8 e6 aa dO 02 


Oe 


l4d8 : 


69 38 65 


a8 90 02 e6 a9 dc 


1340 


49 47 4f ce 42 49 47 4f 


05 


1410 


e6 ab 20 f8 13 ca do eb 


96 


l4e0 : 


e6 a9 20 


ff 13 a5 fc 91 18 


1348 


46 c6 4f 46 c6 00 a7 13 


bf 


1418 


60 a5 eb 48 a5 ec 48 a9 


85 


I4e8 : 


ac 18 a5 


ac 69 28 85 ac e6 


1350 


18 14 2a 15 82 15 50 42 


36 


1420 


87 85 03 a9 7b 85 04 ad 


af 


l4f0 : 


90 02 e6 


ad a5 fd 91 ac da 


1358 


aa a9 13 aO 39 20 e2 43 


56 


1428 


00 ff 8d de 02 a9 Of 85 


lc 


I4f8 : 


38 a5 ac 


e9 28 85 ac bO 2e 


1360 


10 09 29 7f 18 69 27 a2 


de 


1430 


02 20 cd 02 a5 06 85 fe 


95 


1500 : 


02 c6 ad 


e6 ac dO 02 e6 d5 


1368 


00 90 02 38 8a 4c 21 43 


4e 


1438 


a9 00 aO lc 85 ac 84 ad 


b8 


1508 : 


ad 38 a5 


a8 e9 40 85 a8 58 


1370 


eO ff fO 14 c9 27 90 10 


47 


1440 


a6 fa fO Oe 18 a5 ac 69 


95 


1510 : 


bO 02 c6 


a9 c6 a9 e6 24 46 


1378 


c9 2c bO Oc e9 26 09 80 


fa 


1448 


28 85 ac 90 02 e6 ad ca 


14 


1518 : 


dO 02 e6 25 c6 fe fO 03 76 


1380 


aa a9 13 aO 39 4c 6a 51 


la 


1450 


dO f2 18 a5 ac 65 fb 85 


45 


1520 : 


4c 8b 14 68 a8 68 aa 18 ed 


1388 


38 4c cd 51 c9 02 90 14 


9b 


1458 


ac 90 02 e6 ad a9 00 aO 


13 








1390 


c9 2c bO 10 e9 26 0a aa 


eb 


1460 


20 85 a8 84 a9 a6 fb fO 


9f 








1398 


bd 4f 13 48 bd 4e 13 48 


16 


1468 


Oe 18 a5 a8 69 08 85 a8 


3f 








13a0 


18 4c a9 4b 38 4c a9 4b 


d5 


1470 


90 02 e6 a9 ca dO f2 a6 


3c 








13a8 


a9 00 3d 00 ff ad 21 dO 


48 


1478 


fa fO 10 18 a5 a8 69 40 


b7 


Listing 10. »BIG LETTERS-, erne 


13b0 


29 Of 85 fc 85 fd 20 f4 


14 


1480 


85 a8 90 02 e6 a9 e6 a9 


68 


klelne Basic-Erweiterung fur groBe 


13b8 


87 eO 18 bO 36 86 fa 20 


Bf 


1488 


ca dO fO ad 00 04 48 ad 


49 


Buchstaben 
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152s 


4c fO ff a9 00 8d 00 ff 8e 


1558 


58 60 00 ad 19 dO 8d 19 17 


1588 : 65 8d 14 03 a9 fa 8d 15 ee 


1530 


8d ff 3f 78 a9 5b 8d 14 70 


1560 


dO ad 12 dO c9 f9 90 Od 6e 


1590 : 03 ad 5a 15 8d 11 dO 58 f8 


1538 


03 a9 15 cd 15 03 fO 18 6c 


1568 


a9 13 8d 11 dO a9 32 8d 5f 


1598 : 60 dO 02 e4 25 18 60 a5 5d 


1540 


8d 15 03 ad 11 dO 29 7f Oa 


1570 


12 dO 4c 33 ff ad 5a 15 65 




154S 


8d 11 dO 8d 5a 15 a9 32 9d 


1578 


8d 11 dO a9 f9 8d 12 dO ed 




1550 


3d 12 dO a9 81 8d la dO de 


1580 


4c 65 fa ceOO ff 78 a9 4c 


Listing 10, (SchluS) 



Name 


big letters demo IcOl ledc 


lcf9 


32 2c 35 3a fe 28 22 54 


38 


led 


: b2 31 30 a? 99 22 12 22 84 








laoi 

ld09 


48 45 20 42 49 47 20 4c 
45 54 54 45 52 22 00 3a 


24 

el 


le09 

lell 


: 3b 00 If le b4 00 8b 4e e6 
: b2 32 30 a7 99 22 92 22 17 


IcOl 


lc lc Oa 00 8f 20 2a 2a 


a5 


lc09 


2a 2a 2a 2a 2a 2a 2a 2a 


09 


ldll 


Id 6e 00 fe 27 36 2c 39 


8d 


lel9 


: 3b 3a 4e b2 30 DO 33 le 67 


Icll 


2a 2a 2a 2a 2a 2a 2a 2a 


11 


ldl9 


2c 36 2c 31 34 3a fe 28 


£3 


1*21 


: be 00 8d 32 35 30 3a 4e e3 


lcl9 


2a 2a 00 37 lc 14 00 8f 


cl 


ld21 


22 28 43 29 20 49 4e 20 


13 


le29 


: b2 4e aa 31 3a 89 31 36 f4 


lc21 


20 2a 20 42 49 47 20 4c 


8f 


ld29 


31 39 38 38 20 42 59 20 


c6 


le31 


s 30 00 4f le c8 00 8b 4l 36 


lc29 


45 54 54 45 52 20 20 44 


85 


ld31 


44 42 2d 53 4f 46 54 22 


09 


le39 


r 24 b2 c7 28 31 33 29 a7 4e 


lc31 


45 4d 4f 20 2a 00 52 lc 


19 


ld39 


00 67 Id 78 00 fe 27 38 


48 


le4l 


: de 30 2c 31 3a 99 42 24 2a 


lc39 


le 00 8f 20 2a 2a 2a 2a 


30 


ld4l 


2c 37 2c 38 2c 38 3a fe 


86 


le49 


: 3a fe 2a 3a 80 00 61 le 9e 


lc4l 


2a 2a 2a 2a 2a 2a 2a 2a 


41 


ld49 


28 22 2d 2d 2d 2d 2d 2d 


bf 


le51 


: d2 00 8b 41 24 b2 c7 28 76 


lc49 


2a 2a 2a 2a 2a 2a 2a 2a 


49 


ld51 


2d 2d 2d 2d 2d 2d 2d 2d 


51 


le59 


: 32 30 29 a7 32 33 30 00 60 


lc51 


00 6d lc 28 00 8f 20 2a 


65 


ld59 


2d 2d 2d 2d 2d 2d 2d 2d 


59 


le6l 


: 89 le dc 00 8b 58 b3 33 el 


lc59 


20 45 49 4e 20 50 52 4f 


a4 


ld6l 


2d 2d 2d 2d 22 00 92 Id 


bd 


le69 


: 31 a7 fe 28 4l 24 3a 42 d5 


lc6l 


47 52 41 4d 4d 20 56 4f 


99 


ld69 


82 00 fe 27 31 33 2e 39 


60 


le71 


: 24 b2 42 24 aa 41 24 3a bd 


lc69 


4e 20 2a 00 88 lc 32 00 


84 


ld71 


2c 35 2c 31 33 3a fe 28 


ba 


le79 


: 58 b2 58 aa 31 3a 89 31 03 


lc71 


8f 20 2a 20 20 20 20 44 


ab 


ld79 


22 4e 41 4d 45 3a 20 2d 


bd 


le81 


: 35 30 3a d5 31 36 30 00 9d 


lc79 


49 52 4b 20 42 4f 5a 5a 


7f 


ld81 


2d 2d 2d 2d 2d 2d 2d 2d 


81 


le89 


: 9d le e6 00 8b 58 b3 31 9c 


lc81 


41 20 20 20 20 2a 00 a3 


79 


ld89 


2d 2d 2d 2d 2d 2d 2d 22 


73 


le91 


: 36 a? 31 36 30 3a d5 8d f5 


lc89 


lc 3c 00 8f 20 2a 2a 2a 


06 


ld91 


00 cc Id 8c 00 fe 27 32 


c9 


le99 


: 32 35 30 00 bd le fO 00 03 


lc91 


2a 2a 2a 2a 2a 2a 2a 2a 


91 


ld99 


32 2c 31 2c 38 2c 39 3a 


fl 


leal 


: 58 b2 58 ab 31 3a 42 24 14 


lc99 


2a 2a 2a 2a 2a 2a 2a 2a 


99 


ldal 


fe 28 22 41 4e 4c 20 52 


bO 


lea9 


: b2 C8 28 42 24 2c c3 28 15 


leal 


2a 00 a9 lc 46 00 8f 00 


5c 


lda9 


49 47 48 54 53 20 52 45 


3d 


lebl 


: 42 24 29 ab 31 29 3a 89 Id 


lca9 


cd lc 50 00 fe 11 22 42 


le 


Idbl 


53 45 52 56 45 44 20 42 


82 


leb9 


: 31 35 30 00 d4 le fa 00 cb 


lcbl 


49 47 20 4c 45 54 54 45 


02 


ldb9 


59 20 4d 41 52 4b 54 20 


af 


leel 


: 8b 58 b2 33 31 a7 fe 28 28 


lcb9 


52 53 22 2c 91 42 30 2c 


07 


Idcl 


26 20 54 45 43 48 4e 49 


f7 


lec9 


: 22 20 22 3a d5 fe 28 22 05 


lccl 


50 34 38 36 34 3a 9e 34 


f8 


ldc9 


4b 22 00 el Id 96 00 f e 


e6 


ledl 


: 2d 22 00 da le 04 01 8e 8e 


lcc9 


38 36 34 00 ee lc 5a 00 


& 


lddl 


' 27 31 33 2c 58 2c 35 2c 


f7 


led9 


: 00 00 00 01 fd 01 fd 01 db 


lcdl 


e7 30 2c 31 3a e7 34 2c 


Oe 


ldd9 


■ 31 33 3a 4e b2 31 30 00 


72 






lcd9 


36 3a de 31 2c 31 3a 58 


fO 


ldel 


■ fb Id aO 00 al 4l 24 3a 


be 






lcel 


b2 31 35 3a 42 24 b2 22 


15 


lde9 


: 8b 41 24 bl 22 22 a7 99 


59 


Listing 11. »l 


lce9 


22 3a fe 29 00 10 Id 64 


cb 


ldfl 


: 22 92 22 3b 3a 89 32 30 


65 


zeigt 


die Fahigkeiten von 


lcfl 


00 fe 27 32 2c 31 33 2c 


f2 


ldf9 


: 30 00 Ob le aa 00 8b 4e 


25 


BIG LETTERS 



16. Der »Extended Color-Modus« 



Haben Sie sich schon einmal gefragt, warum sich auf Ih- 
rem C 128 nicht jedem Zeichen im Textmodus neben seiner 
Schrift- auch eine eigene Hintergrundfarbe zuweisen Ia6t? 
Hiensteineeinfache.aberauBerstwirkungsvolleMethode, 
die das Phanomen "Extended Color-Mode« (erweiterter 
Farbmodus) alien C 128-Fans eroffnet. Listing 12 zeigt, wie 
Sie bis zu vier verschiedene Hintergrundfarben auf den 
40-Zeichen-Bildschirm zaubern. 

Zeile 260: Durch Setzen von Bit 6 in Adresse 53265 (VIC- 
Register #27) aktivtert man den Extended Color-Modus 
(ECM). Das Ausschalten demonstriert Zeile 380. 

Im ECM warden nur die ersten 64 verschiedenen Zei- 
chen dargestellt. Dafur stehen vier Hintergrundfarben zur 
Auswahl(machtinsgesamtwiederum256Zeichen-Codes). 
Zeilen 270-300: Die vier Hintergrundfarben werden als 
Farbcodes (0 bis 15) in den Adressen 53281 bis 53284 un- 
tergebracht. Achtung: Die Farb-Codes sind VIC-spezifisch 
und liegen urn 1 niedriger als die entsprechenden Basic 
7.0-Farb-Codes beim COLOR-Befehl. 
Zeilen 320 bis 360: Ausgabe der Texte. Die Hintergrundfar- 
be wird durch die Darstellungsart der Texte bestimmt: 
ohne <SHIFT>, nicht ro- 
vers ; Farbe #0 {Adresse 53281) 
mit <SHIFT>, nicht revers : Farbe #1 (Adresse 53282) 
ohne <SHIFT>, revers : Farbe # 2 (Adresse 53283) 



mit <SHIFT>, revers : Farbe #3 (Adresse 53284) 

Die Vordergrundfarbe ist wie gewohnt uber COLOR 5,x 
oder uber Steuerzeichen wahlbar. Es ist noch darauf hinzu- 
weisen, daBdie mit <SHIFT> eingegebenen Zeichen so 
ausgegeben werden wie ohne < SHIFT >, dafiir aber in ei- 
ner anderen Farbe. Die Eingabe mil < SHIFT > dient nur 
zur Farbkennzeichnung. Der ECM laBtsich vielfaltig einset- 
zen, naturlich vor allem dort, wo ubersichtliche Bildschirm- 
aufbauten gefragt sind. (F Miiller/ef) 



1®® 
lie 

120 

13* 
149 
150 
160 
170 

is® 

17® 
20® 
210 
220 
230 
24® 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



* * 

* BEI5PIEL FUER DEN E.C.M, * 

* * 

* EXTENDED COLOR MODE * 

* * 

* * 

» U.A. BASIEREND AUF TRICKS * 

* AU5 >>VOM C64 ZUM C12B<< * 

* (ISBN 3-99090-402-3) * 



Listing 12. Veranschaullcht den "Extended Color-Modus* 
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250 IF RWINDOW(2)=B0 THEN PRINT "NUR 40-ZEICHEN-MODUB 

!■": STOP 
260 POKE 53265, PEEK (53265) OR 64 i REM *** EXTENDED COL 

OR MODE WIRD AKTIVIERT 
270 POKE 53261,5: REM HINTERBRUND #0 (NORMAL) ■ 5 (6RU 

EN) 
2B0 POKE 53282,7: REM HINTERGRUND #1 (SHIFT) = 7 (BEL 

81 
290 POKE 532B3,15s REM HINTERBRUND *2 (RE VERS) =15 CH 

ELLSRflU! 
300 POKE 53284,6: REM HINTERBRUND #3 (SHF/RVS)= 6 (BLfl 

U) 
310 BCNCLR t CQJ-DR 5,1 1 CHAR ,0,0," DEMONSTRATION FUER 

EXTENDED CDLOR MODE ",1 
320 CHAR ,0,7,"SCHWARZ AUF SRUEN" 



330 COLOR 5,3: CHAR ,0,8, "SflKSHF, SPACE JHHEtSHF. SPACE > 

S£iJ{28SHF. SPACE >": REM »** SHIFT! 
340 COLOR 5,7: CHAR , 0,9, "DUNKELBLAU AUF HELLGRAUU7SP 

ACE>",1 
350 CDLOR 5,2! CHAR , 0, 10, "HtiSS-CSHF. SPACE > HUE £SHF. SPA 

CE>flUia£LaLaiK20SHF.SPACE>»,l: REM SHIFT ! 
360 COLOR 5,9: CHAR ■ 0.20. "AY.tSHF. SPACF> FtDRlRM fSHF. RP 

ACE 3 flM£AiE£C 1 7SHF . SP ACE J IHaiE" 
370 PRINT CHR*(7)J 3ET KEV A*: REM -*«» AUF TASTE WARTE 

N 
330 POKE 53265, PEEK C 532651 AND 171: REM #« EXTENDED C 

OLOR MODE AUSSCHALTEN 
390 GRAPHIC 0,1: END 



Listing 12. (SchluB) 



17. iigene Zeidiensatze fur den VDC 



Den Zeichensatz im 40-Zeichen-Modus des C 128 zu ver- 
andern, steilt selbst den BASIC-Programmierer vor keine 
unlbsbaren Probleme,zumal hierzu bereitsgenug Hilfsrou- 
tinen existieren. Anders hingegen sieht es aus, will man 
auch im 80-Zeichen-Modus in den GenuB eines eigenen 
Zeichensatzes kommen. Hierzu ist meines Wissens bisher 
keine brauchbare Routine veroffentlicht worden. Mit dem in 
Listing 14 abgedruckten Maschinenprogramm Ia8t sich 
diese Aufgabe ebenso schnell wie elegant losen. Nach 
dem Aufruf mit SYS DEC("OBOO") kopiert die Routine ei- 
nen Zeichensatz (Listing 15 beinhaltet einen hubschen De- 
mozeichensatz), derab Ad resse 8192 ($2000) in BankO(im 
Grafikspeicher) liegen mu6, in das VDC-RAM, Listing 16 
demonstriert diesen Vorgang. Die neuen Zeichen stehen 
dann im Kleinschrift-ZeichensatzzurVerfugung ($3000 bis 
$3fff im VDC). Bei dem Programm handelt es sich urn eine 
modifizierte ROM-Routine, die ab $FCE0C im Speicher 
stent. Achtung: Nach Driicken der ASCII/DIN-Taste wird der 
veranderte Zeichensatz durch das Betriebssystem mit dem 
Original iiberschrieben. Deshalb sollte man die ASCII/DIN- 
Taste durch POKE DEC ("0AC5"),128 vor dem Kopieren 
sperren. 
Interessante Speicherstellen (ZS=Zeichensatz): 

$B10: HI-Byte der Zieladresse des ZS Im VDC-RAM 
Beispiel: POKE 2832, 32 Beim nachsten Auf- 
ruf von $B00 wird der ZS nach $2000 In den VDC 
(GroJischrift) kopiert. 

$B08: HI-Byte der Quelladresse in »normalen« RAM 
Beispiel: Poke 2824,40 Durch den Aufruf von $B00 
wird der Bereich ab 4Q*256=$2800 in den VDC uber- 
tragen. 
ACHTUNG!: Inhalt von $B3C berucksichtigen 

$B3C: HI-Byte des ZS-Endes im »normalen« RAM 
Im Normalfall sollte man diese Speicherstelle nach jeder 
Veranderung von $B08 durch POKE 2876,PEEK(2824)+8 
re-initialisieren. 

Im folgenden Listing 13 sehen Sie einen kommentierten 
Quelltext, den Sie im TOP-ASS-Fbrmat auch auf der Le- 
ser-Service-Diskette finden. Dank der zahlreichen Kom- 
mentare sind keine weiteren Erklarungen notwendig: 



— code number- 

100 - 






110 


- 


*** uebergibt zs 


ab zbase an vd< 


120 


- 






130 


- 


base $0b00 




140 


- 






150 


- 


define pntr 


= $da 


160 


- 






170 


- 


define zbase 


= $2000 


180 


- 


define zsatzend 


= $2800 


190 


- 


define zsatz 


= $3000 


200 









loc — code— 
ObOO a93e 
0b02 BdOOff 

0b05 a900 
0b07 a220 
0b09 85da 
ObOb 86db 

ObOd a212 
ObOf a930 
Obll 20420b 
0bl4 e8 
0bl5 a900 
Ob 17 20420b 

Obla aOOO 
Oblc blda 
Oble 20400b 
0b21 e8 
0b22 c008 
0b24 90f6 

0b26 a900 
0b28 20400b 
0b2b 88 
0b2c dOfa 

0b2e 18 
0b2f a5da 
0b31 6908 
0b33 85da 
Ob35 90e5 
0b37 e6db 
0b39 a5db 
0b3b c928 



Ob^f 60 

0b40 a21f 
0b42 8e00d6 
0b45 2c00d6 
0b48 lOfb 
0b4a 8d01d6 
0b4d 60 



-number- 
210 - 
220 - 
230 -; 
240 -main 
250 - 
260 - 
270 - 
280 -; 
290 - 
300 - 
310 - 
320 - 
330 - 
340 - 
350 -; 
360 - 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 



0b3d 90dd 560 



570 
580 
590 
600 
610 
620 
630 
640 
650 
660 



-mnemonic — < 

Ida #*00111110 j alles ram, 
sta $ff00 ; i/o ein 



Ida #( (zbase) 
ldx #) (zbase) 
sta pntr 
stx pntr+1 

ldx #18 ; update adr hi 

Ida #) (zsatz) 

Jsr writereg 

inx j und lo 

Ida #{ (zsatz) 

jsr writereg 



-loopl 



-loop2 



ldy #0 

Ida (pntr),y 

jsr wrltedata 

iny 

cpy #8 

bcc loopl 

Ida #0 

jsr writedata 

dey 

bne loop2 

cle 

Ida pntr 
ado #8 
sta pntr 
bcc loopl 
inc pntr+1 
Ida pntr+1 



zeichen aus zs 
holen 
(a)-) vdc-ram 



8 nullbytes 
schrelben 



pointer in 
zeichensatz 
auf naechtes 
zeichen 

ende des 



cmp #) (zsatzend); zs er- 
reicht ? 



bcc loopl 
chen 
- * 

rts 

-writedata ldx #31 j 
-writereg stx ?d600 
-writeloop bit $d600 ; 
bpl writeloop 
sta $d601 
rts 



nein: weiterma- 



vdc data reg 

auf vdc-status 
; wart en 



Listing 13. Der Quelltext zu Z'SATZCOPY Im 
TOP-ASS-Format 
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C128 






Es werden folgende Labels benutzt: 


writereg 




$0b42 








pntr 


■ $00da 




write loop 
abase 


B 


$0b45 
$2000 






main 


= $0b05 




zsatzend 


m 


$2800 






loopl 
loop2 


= $Oblc 
= $0b28 




esatz 


= 


$3000 


(C. Fuhner/ef) 




wrltedata = $0b40 




Listing 13. (SchluB) 












Name : 


a'satzcopy.obj ObOO 0b4f 




2160 : 


00 00 00 00 00 08 08 10 


el 


2368 : 


08 08 08 08 Of 00 00 00 


68 
















2168 : 

2170 : 


00 00 00 7e 00 00 00 00 
00 00 00 00 00 18 18 00 


38 
92 


2370 : 
2378 : 


00 00 00 00 f8 08 08 08 
00 00 00 00 00 00 ff ff 


70 
78 








ObOO : 


a9 3e 8d 00 ff a9 00 a2 


be 




0b08 : 


20 85 da 86 db a2 12 a9 


el 




2178 : 


00 02 04 08 10 20 40 00 


7f 


2380 : 


00 00 00 00 Of 08 08 08 


e2 








OblO : 


30 20 42 0b e8 a9 00 20 


5e 




2180 : 


18 24 42 42 42 24 18 00 


29 


2388 ■ 


08 08 08 08 ff 00 00 00 


97 








0bl8 : 


42 Ob aO 00 bl da 20 40 


fb 




2188 : 


04 Oc 34 04 04 04 04 00 


90 


2390 . 


00 00 00 00 f f 08 08 08 


01 








0b20 : 


Ob e8 cO 08 90 f6 a9 00 


28 




2190 : 


3c 42 02 04 08 78 6e 00 


ec 


2398 ■ 


08 08 08 08 f 8 08 08 08 


a7 








0b28 : 


20 40 Ob 88 dO fa 16 a5 


cd 




2198 : 


3c 42 02 lc 02 42 3c 00 


Id 


23 aO 


cO eO eO eO eO cO cO cO 


9f 








Ob30 : 


da 69 08 85 da 90 e5 e6 


09 




21a0 : 


Oc 14 24 44 7e 04 04 00 


60 


23a8 


eO eO eO eO eO eO eO eO 


a? 








0t,38 : 


db a5 db c9 28 90 dd 60 


55 




21a8 : 


7e 40 78 44 02 44 38 00 


10 


23b0 


07 07 07 07 07 07 07 07 


bO 






0b40 : 


a2 If 8e 00 d6 2c 00 d6 


92 




21b0 . 


3c 42 40 7c 42 42 3c 00 


d4 


23b8 


f f f f 00 00 00 00 00 00 


b7 






0b48 : 


10 fb 8d 01 d6 60 30 8a 


20 




21b8 


3e 42 04 le 08 10 10 00 


le 


23C0 


ff ff ff 00 00 00 00 00 


bf 














21c0 


3d 46 42 3c 42 42 3c 00 


60 


23c8 


00 00 00 00 00 ff ff ff 


c8 






Listing 


1 14. »Z'SATZ COPY.O&I- 






21c8 


3c 42 46 3a 02 42 3c 00 


21 


23d0 


01 02 44 48 50 60 40 00 


f6 






(copier 


1 einen Zeichensatz in den 






21d0 


00 00 08 00 00 08 00 00 


13 


23d8 


00 00 00 00 fO fO fO fO 


15 






VDC 








21d8 : 


00 00 08 00 00 08 08 10 


5b 


23e0 


Of Of Of Of 00 00 00 00 


Id 














21e0 : 
21e8 : 


Oe 18 30 60 30 18 Oe 00 
00 00 7e 00 7e 00 00 00 
70 18 Oe 06 Oe 18 70 00 


Oe 
70 
74 


23e8 

23 fo 

23 f 8 


08 08 08 08 f8 00 00 00 
f fO f f 00 00 00 00 
fO fO fO fO Of Of Of Of 


87 

b3 
7e 






















21f0 : 




Name 


chr-set 2000 2801 


21f8 : 


3e 42 02 Oe 10 00 10 00 


99 


2400 


e3 dd b5 a9 b3 df el ff 


36 












2200 


no nn on on ff nn on on 


00 


2408 


ff ff e5 d9 bd 39 c6 ff 
df af af 99 b9 3a c7 ff 


7c 






2000 


le 22 4a 56 4c 20 le 00 


e9 


2208 • 


Uv UU Uv U\J 1 * uu uu uu 

02 06 Oa 3e 32 3f c2 00 


80 


2410 


72 




2008 


00 00 la 26 42 c6 39 00 


93 


2210 


3c 42 22 2c 22 a2 5c 00 


24 


2418 


ff ff fl ef df if eO ff 


Oc 






2010 


20 50 50 66 46 e5 38 00 


ad 


2218 


06 Oa 54 38 10 10 Of 00 


fd 


2420 


fd fd e5 d9 bd 39 c6 ff 


91 






2018 


00 00 Oe 10 20 eO If 00 


23 


2220 


3c 42 11 11 31 52 2c 00 


3a 


2428 


ff ff e3 dd d3 Of eO ff 


15 








2020 


02 02 la 26 42 c6 39 00 


ae 


2228 


lc 22 20 18 20 20 If 00 


eO 


2430 


f3 ed eb e? cf 28 e7 ef 


ef 








2028 


00 00 lc 22 2c fO If 00 


3a 


2230 


7f 80 08 08 lc 48 30 00 


b7 


2438 


ff ff e2 dd 9d 60 dd e3 


c7 








2030 


Oc 12 14 18 30 d7 18 10 


90 


2238 


38 48 fO 42 42 3f 22 le 


f8 


2440 


of b7 af 83 bd 3d be ff 


08 








2038 


00 00 Id 22 62 9f 22 lc 


a8 


2240 


73 95 16 lc 34 54 23 00 


f9 


2448 


f 7 f f f7 e7 d7 37 f 8 f f 


55 








2040 


30 48 50 7c 42 c2 41 00 


77 


2248 


36 Oa 02 02 02 22 lc 00 


e6 


2450 


fb f f f3 cb b8 63 db e7 


a7 








2048 


08 00 08 18 28 c8 07 00 


3a 


2250 


36 Oa 02 02 02 If 22 lc 


26 


2458 


ef b7 af 83 bd 31 be ff 


b7 








2050 


04 00 Oc 34 47 9c 24 18 


fe 


2258 


e2 22 34 38 24 a2 4l 00 


be 


2460 


f7 eb e7 ef cf 2f fO ff 


7f 








2058 


• 30 48 50 7c 42 ce 43 00 


f8 


2260 


06 29 le 08 28 58 37 00 


a6 


2468 


ff ff ab 95 55 55 d6 ff 


60 








2060 


: 08 14 18 10 30 dO Of 00 


40 


2268 


09 09 lb 2d 29 49 cl 00 


46 


2470 


f f f f a7 9b 5b 5b dc f f 


dO 








2068 


: 00 00 54 6a aa aa 29 00 


6f 


2270 


09 la 2a 2o 4c 48 88 00 


cO 


2478 


ff ff e3 dd be 5d e3 ff 


72 








2070 


: 00 00 58 64 a4 a4 23 00 


Of 


2278 


19 2e 42 42 42 24 18 00 


27 


2480 


ff ff a3 9d 5d 5d de df 


17 






2078 


: 00 00 lc 22 43 a2 lc 00 


7d 


2280 


3e 41 11 16 10 50 20 00 


6a 


2488 


ff ff e5 d9 b9 45 fc fd 


fl 






2080 


: 00 00 5c 62 a2 a2 21 20 


e8 


2288 


19 2e 42 42 4a 24 lb 00 


«3 


2490 


ff ff b7 ab 5c 5f df ff 


32 








2088 


: 00 00 la 26 46 ba 03 02 


le 


2290 


3e 4l 11 le 14 52 21 00 


cf 


2498 


ff ff f7 eb dd 3d eO ff 


5d 








2090 


: 00 00 48 54 a3 aO 20 00 


ed 


2298 


06 29 le 08 08 48 30 00 


3f 


24a0 


f7 f7 cl f7 e7 37 f8 ff 


lc 








2098 


; 00 00 08 14 22 c2 If 00 


d2 


22a0 


7f 80 08 08 08 48 30 00 


e6 


24a8 


f f f f bd bd bd 39 c6 f f 


8f 








20a0 


: 08 08 3e 08 38 c8 07 00 


23 


22 a8 


42 22 22 22 22 22 Id 00 


70 


24b0 


ff ff b9 b9 bd 5a e7 ff 


a3 








20a8 


: 00 00 42 42 42 c6 39 00 


cO 


22b0 


46 27 22 22 22 14 08 00 


3a 


24b8 


ff ff be b4 b6 36 c9 ff 


cl 






20b0 


: 00 00 46 46 42 a5 18 00 


be 


22b8 


86 47 42 52 52 5a 64 00 


46 


24c0 


ff ff bb 57 6f d7 b8 ff 


31 






20b8 


: 00 00 43 4b 49 c9 36 00 


ae 


22c0 


61 92 14 08 18 24 47 00 


30 


24e8 


ff ff bd bd bd 40 dd e3 


Ob 






20c0 


: 00 00 44 a8 90 28 47 00 


4e 


22c8 


42 22 22 22 23 le 22 le 


ec 


24d0 


ff ff cl bd 73 6f cO ff 


ad 






20c8 


: 00 00 42 42 42 bf 22 lc 


84 


22d0 


3f 41 02 If 08 78 6f 00 


16 


24d8 


ed ff e5 d9 bd 39 c6 ff 


3a 






20d0 


: 00 00 3e 42 8c 90 3f 00 


f2 


22d8 


Ob 06 Oa 3e 32 3f e2 00 


59 


24e0 


ed ff e3 dd be 5d e3 ff 


c8 






20d8 


: 12 00 la 26 42 c6 39 00 


75 


22e0 


5a 24 42 42 42 24 18 00 


cb 


24e8 


db ff bd bd bd 39 c6 ff 


ab 






20e0 


: 12 00 lc 22 43 a2 lc 00 


f7 


22e8 


24 42 22 22 22 22 Id 00 


a2 


24f0 


e7 db bb b3 bd 3d bO bf 


32 






20e8' 


: 24 00 42 42 42 c6 39 00 


24 


22f0 


00 00 01 3e 54 14 22 00 


67 


24f8 


: ff ff ef df 80 df ef ff 


b5 






20f0 


: 18 24 44 4c 42 c2 4f 40 


ad 


22f8 


ce 66 33 99 cc 66 33 99 


f7 


2500 


: ff ff ff ff ff ff ff ff 


ff 






20f8 


: 00 00 10 20 7f 20 10 00 


3a 


2300 


00 00 00 00 00 00 00 00 


01 


2508 


: f7 f 7 f7 f 7 f f f f f 7 f f 


d7 






2100 


: 00 00 00 00 00 00 00 00 


01 


2308 


fO fO fO fO fO f fO f 


07 


2510 


: db db db ff ff ff ff ff 


dO 






2108 


: 08 08 08 08 00 00 08 00 


38 


2310 


00 00 00 00 ff ff ff ff 


10 


2518 


: db db 81 db 81 db db ff 


23 






2110 


: 24 24 24 00 00 00 00 00 


50 


2318 


ff 00 00 00 00 00 00 00 


18 


2520 


: e3 d5 d7 e3 f5 d5 e3 ff 


fe 






2118 


: 24 24 7e 24 7e 24 24 00 


Oc 


2320 


00 00 00 00 00 00 00 ff 


20 


2528 


: ff 9d 9b f7 ef d9 b9 ff 


90 






2120 


: le 2a 28 lc Oa 2a lc 00 


41 


2328 


80 80 80 80 80 80 80 80 


28 


2530 


: cf b7 b7 cf b5 bb c5 ff 


13 






2128 


: 00 62 64 08 10 26 46 00 


bf 


2330 


aa 55 aa 55 aa 55 aa 55 


85 


2538 


: fb f7 ef ff ff ff ff ff 


2b 






2130 


: 30 48 48 30 4a 44 3a 00 


4c 


2338 


01 01 01 01 01 01 01 01 


38 


2540 


: fb f7 ef ef ef f7 fb ff 


df 






2138 


: 04 08 10 00 00 00 00 00 


45 


2340 


00 00 00 00 aa 55 aa 55 


eb 












2140 


: 04 08 10 10 10 08 04 00 


aO 


2348 


99 33 66 ec 99 33 66 ee 


14 


Listing 15, »CHR-SET« ist ein Demo- 






21-48 


: 20 10 08 08 08 10 20 00 


f5 


2350 


03 03 03 03 03 03 03 03 


50 


Zeichensatz ftir Z'SATZ COPY.OBJ, 






2150 


: 08 2a lc 3e lc 2a 08 00 


6f 


2358 


08 08 08 08 Of 08 08 08 


c9 


der handgeschriebener Schrift 










2158 


: 00 08 08 3e 08 08 00 00 


e7 


2360 


: 00 00 00 00 Of Of Of Of 


24 


nahekommt 
























m 








s 


MM 


4: 


Ma*Id 






jfHJ* J 
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25^8 


: df ef f7 f7 f7 ef df 


ff 


9a 


2638 


c7 b7 Of bd bd cO dd e3 


77 


2728 : 


7f 7f 7f 7f 7f 


7f 7f 7f 


28 


2550 


: f7 d5 e3 cl e3 d5 f7 


ff 


30 


2640 


8c 6a e9 e3 cb ab do ff 


86 


2730 : 


55 aa 55 aa 55 


aa 55 aa 


da 


2558 


: ff f? f7 el f7 f7 ff 


ff 


c8 


2648 


c9 f 5 fd fd fd dd e3 f f 


a9 


2738 ; 


fe fe fe fe fe 


f e f e f e 


37 


2560 


: f f f f f f f f f f f? f7 


ef 


de 


2650 


C9 f5 fd fd fd eO dd e3 


79 


2740 : 


ff ff ff ff 55 


aa 55 aa 


94 


2568 


: f f f f f f 61 f f f f f f 


ff 


97 


2658 


Id dd cb c7 db 5d be f f 


f3 


2748 : 


66 ce 99 33 66 


cc 99 33 


7b 


2570 


: f f ff f f f f ff e7 e7 


ff 


4d 


2660 


f9 d6 el f7 d7 a7 c8 ff 


19 


2750 : 


fc fc fe fe fc 


fc fc fc 


4f 


2578 


: ff fd fb f7 ef df bf 


ff 


71 


2668 


f6 f6 e4 d2 d6 b6 3e ff 


89 


2758 : 


f7 f7 f7 f7 f 


f7 f7 f7 


e6 


2580 


: e7 db bd bd bd db e7 


ff 


d6 


2670 


f6 e5 d5 d3 b3 b7 77 ff 


If 


2760 : 


ff ff ff ff fO 


f f f 


9b 


2588 


: fb f3 cb fb fb fb fb 


ff 


7f 


2678 


e6 dl bd bd bd db e7 ff 


c8 


2768 : 


f7 f7 f7 f7 f 


ff f f f f 


67 


2590 


: c3 bd fd fb f7 87 91 


ff 


33 


2680 


cl be ee e9 ef af df ff 


95 


2770 : 


ff ff ff ff 07 


f7 f7 f7 


6f 


2598 


: c3 bd fd e3 fd bd c3 


ff 


12 


2683 


e6 dl bd bd b5 db e4 ff 


4c 


2778 : 


ff ff ff ff ff 


f f 00 00 


77 


25a0 


: f3 eb db bb 81 fb fb 


ff 


df 


2690 


cl be ee el eb ad de ff 


50 


2780 : 


ff ff ff ff fO 


f7 f7 f7 


Id 


25a8 


: 81 bf 87 bb fd bb e7 


ff 


3f 


2698 


f9 d6 el f7 f7 b7 cf ff 


fO 


2788 : 


f7 f7 f7 n 00 


f f ff ff 


78 


25b0 


: c3 bd bf 83 bd bd c3 


ff 


8b 


26aO 


80 7f f7 f7 f7 b7 cf ff 


59 


2790 : 


ff ff ff ff 00 


f7 f7 f7 


le 


25b8 


: cl bd fb el f7 ef ef 


ff 


52 


26a8 


bd dd dd dd dd dd e2 ff 


df 


2798 : 


f7 f7 f 7 f 7 07 


f7 f7 f7 


88 


25c0 


: e2 b9 bd e3 bd bd 03 


ff 


If 


26b0 


b9 d8 dd dd dd eb f7 ff 


25 


27a0 : 


3f 3f 3f 3f 3f 3f 3f 3f 


aO 


25c8 


: e3 bd b9 c5 fd bd e3 


ff 


6e 


26b8 


79 b8 bd ad ad a5 9b ff 


29 


27a8 : 


If If If If If 


If If If 


aB 


25d0 


: ff ff f7 ff ff f7 ff 


ff 


8c 


26c0 


9e 6d eb f7 e7 db b8 ff 


4f 


27bO : 


f8 f8 f8 f8 f8 


f8 f8 f8 


af 


25d8 


: f f f f f7 f f f f f7 f7 


ef 


54 


26c8 


bd dd dd dd dc el dd e3 


c3 


27b8 : 


00 00 ff ff ff 


f f f f f f 


be 


25e0 


: fl e7 cf 9f cf e7 fl 


ff 


bl 


26dO 


cO be fd eO f7 87 90 ff 


89 


27cO : 


00 00 00 ff ff 


ff ff ff 


cO 


25e8 


: ff ff 81 ff 81 ff ff 


ff 


5f 


26dS 


f4 f9 f5 cl ed eO 3d ff 


56 


27c8 : 


f f f f f f f f f f 


00 00 00 


c7 


25f0 


: 8f e7 f3 f9 f3 e7 8f 


ff 


6c 


26e0 


a5 db bd bd bd db e7 ff 


f4 


27dO : 


fe fd bb b7 af 


9f bf ff 


aa 


25f8 


: c3 bd fd f3 ef ff ef 


ff 


56 


26e8 


db bd dd dd dd dd e2 ff 


2d 


27d8 : 


ff ff ff ff Of 


Of Of Of 


9a 


2600 


: ff ff ff ff 00 ff ff 


ff 


ff 


26fO 


ff ff fe cl ab eb dd ff 


78 


27e0 : 


fO fO fO fO ff 


ff f f ff 


62 


2608 


: fd f9 f5 cl cd cO 3d 


ff 


8f 


26f8 


33 99 cc 66 33 99 cc 66 


f8 


27e8 : 


f7 f 7 f7 f 7 07 


f f f f f f 


48 


2610 


: o3 bd dd d3 dd 5d a3 


ff 


fb 


2700 


ff ff ff ff ff ff ff ff 


ff 


27f0 : 


Of Of Of Of ff 


f f ff ff 


2d 


2618 


: f9 f5 ab c7 ef ef fO 


ff 


32 


2708 


Of Of Of Of Of Of Of Of 


08 


27f8 : 


Of Of Of Of fO 


fO fO fO 


71 


2620 


: c3 bd ee ee ee ad d3 


ff 


05 


2710 


ff ff ff ff 00 00 00 00 


Of 


2800 : 


U 03 f d Ob 7d 


03 fd 03 


95 


2628 


: e3 dd df e7 df df eO 


ff 


6f 


2718 


00 ff ff ff ff ff ff ff 


18 










2630 


: 80 7f f7 f7 e3 b7 cf 


ff 


aB 


2720 


f f f f f f f f f f f f f f 00 


If 


Listing 15. »CHR.SET.« 


(SchtuB) 





10 rem bei5pielpr0gramm zur benutzung der routine "i' 

satzcopv.obj" 
20 rem laeuft am bo-zeichen bildschirm 

3« : 

40 BLQAD "ZSATZCOPY.OBJ- : REM MASCHINENROUTINE NACH 

*eee NACHLADEN 
39 : 
60 BRAPHIC 1 : REM PLATZ FUER ZEICHENSAT 

Z IN BANK RESERVIEREN 
70 BLQAD "CHR-SET" ON B0.P BI92 : REM ZS NACH S2000 N 

ACHLADEN 
80 : 
90 PDKE DECC'ACS") , I2B : REM ASCII/DIN - TASTE SPE 

RREN 



100 1 




110 SVS DECt"B»«"> 


: REM RUFT ROUTINE AUF 


120 : 




130 GRAPHIC CLR 


: REM BRAPHIK-SPEICHER WIED 


ER FREIGEBEN 




140 : 


i REM CNICHT UNBEDINGT NOT 


WENDIG) 




150 PRINT "ICLR>LIST": 


LIST 


Listing 16. Eln Demo fur Z'SATZ COPY.OBJ 



18. KleinbiKhstoben bei CHAR 



Sollten Sie schon einmal versucht haben, mit dem CHAR- 
Befehl des Basic 7.0 den GroB-/Kleinschrift-Zeichensatz zu 
benutzen, so werden Sie festgestellt haben, daB der Com- 
puter immer auf den GroB-/Grafik-Zeichensatz zugreift. 
Druckt man an entsprechender Stelle im auszugebenden 
Text < CONTROL N > (ein kleines, reverses »n« erscheint), 
so wird der folgende Text im GroB-/Kleinschrift-Modus aus- 
gegeben. 
Beispiei(Unterstrichen = invers):CHAR1,0,0,TESTnTEST* 



Ergebnis: TESTtest 

Durch die Eingabe eines groBen, reversen »N« schalten 
Sie wieder auf den Gro8-/Grafik-Zeichensatz um. Geben 
Sie dazu zunachst»KEY 1 ,CHR$(142)« ein (oderjede ande- 
re Funktionstaste). Durch Driicken von F1 im auszugeben- 
den Text schalten Sie in den urspriingiichen Zeichensatz 
zuriick. Beachten Sie auch, daB bei jedem neuen CHAR- 
Befehl (im Grafik-Modus) zuruckgeschaltet wird. 

(J. H. Schutz/ef) 



19. Point Magic und der C 128 



Mit Paint Magic aus dem 64'erSonderheft23 (Grafik) erstel- 
len Sie vielleicht schon anspruchsvolle Grafiken. Wir wol- 
len nun diese Bilder auch im C 128-Modus verwenden. 

Zur Erinnerung: Paint Magic speichert die Bilder als Pro- 
grammdateien zusammen mit einer Assembler-Routine 
zur Darstellung der Bilder, Diese Routine interessiert uns 
aber nicht. Wichtig sind nur die Speicherbereiche, in denen 
die Bilddaten liegen. Bei Paint Magic-Biidern liegt die Bit- 
map von $4000 bis $5F40 und das Farb-RAM von $6000 bis 
$63E8. Die Werte der Farben fur Hintergrund, Multicolor 



und den Rahmen stehen von $5F40 bis $5F44. Beim C 128 
liegt die Bitmap ab $2000 und das Farb-RAM beginnt bei 
$1C00. 

Um Paint Magic-Bilderdirekt in den Computer laden und 
ansehen zu konnen, muB man allerdings eine Kleinigkeit 
beachten: Nach dem Einschalten des Grafikmodus lassen 
sich die Multicolorfarben nicht mehr andern. Wir konnen al- 
so nicht einfach den Grafikbildschirm loschen, ein Biid la- 
den und danach die Farben setzen. Aber man kann sich mit 
einem kleinen Trick behelfen. Wir laden das Bild in Bank 1, 



: 
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setzen dann die Farben und kopieren es zum SchluB in 
Bank 0. Da das Kopieren von einer Bank in eine andere in 
Basic nur sehr langsam vonstatten geht, ist es von Vorteil, 
deneingebauten Monitor zu benutzen. DieGrundlagen zur 
Benutzung der Monitor-Routinen von Basic aus lesen Sie 
am besten in der Ausgabe 4/87 des 64'er-Magazins nach. 

Nun mochte man vielleicht die Bilder in eigene Program- 
me einbauen. Dazu ist es sinnvoll, die Bilder gleich im 
C128-Format auf Diskette zu speichern. Dadurch konnen 
die Bilder dann direkt in den Grafikspeicher geladen wer- 
den. 

Noch einmal kurz die einzelnen Schritte zur Konvertie- 
rung von Paint Magic-Bildern: 

1. Grafikbildschirm einschalten und loschen: 

GRAPHIC 3,1 

2. Paint Magic-Bild in Bank 1 laden: 

BLOAD"Naroe" J QN Bl 

3. Im Monitor die Werte der Adressen $15F40 bis $15F44 no- 
tieren. 

4. Mit dem Monitor die Bitmap verschieben: 

T 14000 15F40 2000 

5. Mit dem Monitor das Farb-RAM verschieben: 

T 16000 163E8 1C00 

6. Und schlieBlich das Bild speichern: 

S"Neuer Name ",08,1000, 3 F40 

Vor dem Laden dieser Bilder mussen nur noch die Far- 
ben gesetzt und der Grafikmodus eingeschaltet werden. 
Fiir die Farben sind die notierten Werte einzusetzen. Und 
zwar: 

COLOR , Wert aus $15F40 
COLOR 1 , Wert aus $15F41 
COLOR 2 , Wert aus $15F42 
COLOR 3 , Wert aus $15F43 
COLOR 4 , Wert aus $15F44 

Das Programm »RAINTMAGIC-128« {Listing 17) erledigt 
diese Aufgabe fiir Sie. Sie werden nach dem Namen des 



Bildes gefragt, das geladen werden soil. Wenn Sie »$« ein- 
geben, erscheint das Directory der Diskette. Danach zeigt 
Ihnen der Computer die Farbwerte und fragt, ob Sie das 
Bild im C128-Format speichern wollen, Oder ob Sie viel- 
leicht nur die Bitmap speichern wollen. Dies ist bei mehre- 
ren Bildern mit identischem Farb-RAM sinnvoll, zum Bei- 
spiel bei Computer-Filmen oder -Animationen. 

Sicher ist Ihnen aufgefallen, daB die Bilder nur noch 36 
Blocks auf Diskette belegen. Der 37. Block des Originalbil- 
des wird von der Routine zur Darstellung der Bilder einge- 
nommen, Sie fallt bei dem neuen Format weg, und die Bil- 
der benotigen etwas weniger Speicherplatz.(T. Gudella/ef) 



1 GRAPHIC 1,1: BRAPHIC 5,1 

2 INPUT "tCTRL+N^DOWNJaiLDNAME "IB* 

3 IF B*-"*" THEN DIRECTORY ! BDTO 2 

4 IF B*= n " THEN 2 

5 BLOAD <B*> ,DN Bl 

6 PRINT i BANK 1: FOR J=e TO 4: COLOR J ,PEEK (243B4+J > + 
It PRINT "COLOR" ( J( " »"|RCLR(J) : NEXT J GRAPHIC 3,1: 
BANK a 

7 FOR 1-1 TO 2 

B N*="T 14 909 15F4» 20«0" 

9 IF 1=1 THEN N*="T 16000 163EB 1G00" 

10 FOR J-l TO IB: POKE 511*J»ABC(HID*<N*,J, 1> > i NEXT 

11 POKE 51l+J,0: ZL=PEEKIB04>: 7_H=PEEK<Se5> : POKE B04, 

ieei poke Be5,isi 

12 BANK IS: BYS DECCB0AA") = POKE 094, ZL: POKE S03.ZH: 

NEXT 

13 GRAPHIC 5 

14 INPUT " {RUSONXHRVOFFJ ICHT ABSPEICHERN, CRVSON>a«W 
OFFJIT EARBRAM ABSPEICHERN, NUR CRVSON>JSCRVOFF>ITHA 
P SPEICHERN" ;G* 

15 IF E*="N" THEN END 

16 IF B*<>"M" AND G*<>"B" THEN 14 

17 INPUT " t3DOHN>aiTTE BISK EINLEBEN, aiLDNAfflB* 
IB IF B*="H" THEN BSAVE (B*> .P7I&8 TO P16193 

19 IF S*="B" THEN BSAVE t8«) .P8192 TO P16193 



Listing 17, »Paint Magic-128« konvertlert Paint 
Magic-Bilder ins C 128-Format 



20. Super-Hordtopy 



Super-Hardcopy (Listing 18) funktioniert auf alien 8-Nadel- 

Druckern wie Star oder Epson. Das Programm erlaubt, 

Hardcopies vom Text- und Grafikbildschirm zu nehmen und 

diese beliebig nach x- und y-Achse zu vergroBern. Dariiber 

hinaus konnen auch Texthardcopies mit eigenen Zeichen- 

satzen gemacht werden. 

Syntax: SYS 4867, Modus, VergroBerung, Druckmodus 

Modus 1 := Hardcopy vom Textbildschirm, 

Modus <>1:= aile anderen Eingaben ergeben eine 

Grafik-Hardcopy!) 

VergroBerung: 

Die oberen 4 Bits geben die x-Vergr66erung ( 

die unteren 4 Bits geben die y- VergroBerung an. 

Dieser Wert kann folgendermaBen berechnet werden: X * 

16 + Y. (Ist die Angabe »0«, wird die Hardcopy in Originai- 

groBe gedruckt). 

Druckmodus: 

Dieser Wert gibt den Druckmodus an und kann aus dem 

Druckerhandbuch entnommen werden. 

Bei Epson LX 800 und Star NL-10 lauten die Druckmodi 
wie folgt: 
oder 75: Normal density (480 dots); 

76: Double density (960 dots); 

89: double density with double speed; 

90: Quadruple density (1920 dots); 
Einige Beispiele: 

SYS 4867,10,0 {Hardcopy des Textbildschirms in Original- 
groBe und Normal density) 



SYS 4867,0,3*16+3,76 Oder SYS 4867,0,51,76 
Hardcopy des Grafik-Bildschirms, 
VergroBerung: dreifach x und y, 
Bemerkung: 3 * 18 + 3 - 51; 

x * 16 + y = VergroBerung. 
Texthardcopy mit eigenen Zeichensatzen: 
SYNTAX: SYS 5442, Startlo, Starthi 

Die Parameter »Startlo« und »Starthi« geben die Start- 
adresse des eigenen Zeichensatzes an. Nach Eingabe die- 
ses Befehls greift das Hardcopy-Programm auf diesen Zei- 
chensatz zu. 

Beispiele: SYS 5442,0,32 schaltet auf einen Zeichensatz ab 
$2000 (« 8192) urn. 

SYS 5442,0,216 schaltet auf den DIN-Zeichensatz urn, 
SYS 5442,0,208 schaltet auf den ASCII-Zeichensatz. 

Listing 19 paBl Super-Hardcopy an den Star NL-10 oder 
den Epson LX-800 an, Listing 20 druckt eine Demo-Hard- 
copy. {E. Aitenbichler/ef) 



Name : super-hardcopy 1303 1551 

1303 : 3d 4c 15 8e 53 15 8c 56 8a 
130b : 15 ad 56 15 c9 00 dO 05 19 

Listing 18. -SUPER-HARDCOPY- Flexible Hardcopies 

im 40-Zeic hen-Modus 
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1313 


a9 4b 8d 56 15 ad 53 15 


c6 


13db : 


131b 


c9 00 dO 05 a9 11 8d 53 


b9 


13e3 : 


1323 


15 20 25 15 a9 00 85 fa 


db 


13eb : 


132b 


8d 54 15 8d 55 15 a9 20 


be 


13f3 : 


1333 


85 fb a9 00 85 fc a9 04 


Of 


13 fb : 


133b 


85 fd a9 00 8d 02 13 20 


9f 


1403 : 


1343 


ce 13 20 43 14 a9 00 8d 


b5 


140b : 


134b 


52 15 20 2b 14 a9 00 8d 


3f 


1413 : 


1353 


00 13 20 5d 14 a2 00 a9 


3a 


141b : 


135b 


00 9d 58 15 e8 eO 08 dO 


3a 


1423 : 


1363 


f6 a2 00 aO 00 b9 60 15 


38 


142b : 


136b 


8d 01 13 bd c6 13 2c 01 


ad 


1433 ; 


1373 


13 fO Oa 18 bd 58 15 79 


6a 


143b : 


137b 


06 13 9d 58 15 c8 cO 08 


efi 


1443 : 


1383 


dO e3 e8 eO 08 dO do 20 


56 


144b : 


138b 


f4 13 ee 00 13 20 13 1* 


6b 


1453 : 


1393 


ad 00 13 c9 28 dO bb 20 


77 


145b : 


139b 


el f f fO 24 a9 Od 20 d2 


66 


1463 : 


I3a3 


ff ee 52 15 ad 52 15 ed 


ae 


146b : 


13ab 


57 15 dO Oe ee 02 13 ad 


29 


1473 : 


13b3 


02 13 o9 19 dO 8f 20 Oa 


f2 


147b : 


13bb 


14 60 20 b9 14 4e 4d 13 


3e 


1483 : 


13e3 


4e Oa 14 80 40 20 10 08 


7f 


148b : 


13eb 


04 02 01 a9 01 a2 04 aO 


be 


1493 : 


13<J3 


00 20 ba ff a9 00 20 bd 


28 


149b : 



ff 20 cO ff a2 01 20 c9 


61 


I4a3 : 


00 85 ff e8 ec 52 15 dO 


da 


ff a9 lb 20 d2 ff a9 4l 


as 


l4ab : 


ed aO 00 bl fe 99 60 15 


87 


20 d2 f f a9 08 20 d2 f f 


76 


I4b3 : 


c8 cO 08 dO f6 60 38 a5 


96 


60 a2 00 aO 00 bd 58 15 


32 


l4bb : 


fa e9 40 85 fa a5 fb e9 


Ob 


20 d2 ff e8 cc 53 15 dO 


fb 


I4c3 : 


01 85 fb 38 a5 fc e9 28 


C7 


f4 e8 eO 08 dO ed 60 20 


e3 


l4cb : 


85 fc a5 fd e9 00 85 fd 


a8 


cc f f a9 01 20 c3 f f 60 


42 


I4d3 : 


60 ad 4c 15 c9 01 fO 03 


2e 


18 a5 fa 69 08 85 fa a5 


cd 


l4db : 


bl fa 60 8e 4a 15 8c 4b 


09 


fb 69 00 85 fb e6 fc a5 


b2 


I4e3 : 


15 aO 00 bl fc 8d 4d 15 


la 


fc c9 00 dO 02 e6 fd 60 


2e 


l4eb : 


a2 00 86 fe a2 dO 86 ff 


d9 


a9 lb 20 d2 ff ad 56 15 


b5 


I4f3 : 


c9 00 fO 15 a2 00 18 a5 


71 


20 d2 ff ad 54 15 20 d2 


86 


l4fb : 


fe 69 08 85 fe a5 ff 69 


50 


ff ad 55 15 20 d2 ff 60 


62 


1503 : 


00 85 ff e8 ec 4d 15 dO 


12 


a2 00 18 ad 54 15 69 40 


b5 


150b : 


ed 18 a5 f e 6d 4b 15 85 


de 


8d 54 15 ad 55 15 69 01 


a3 


1513 : 


fe a5 f f 69 DO 85 f f a2 


82 


8d 55 15 e8 ec 53 15 dO 


4d 


151b : 


Oe a9 fe 20 74 ff ae 4a 


■>a 


e9 60 a9 00 8d 4f 15 a9 


da 


1523 : 


15 60 ad 53 15 a8 a2 00 


if 


00 8d 4e 15 a2 00 ac 4e 


da 


152b t 


38 ad 53 15 e9 10 8d 53 


ad 


15 20 d4 14 ac 4f 15 99 


15 


1533 : 


15 e8 bO f4 ca 8e 53 15 


20 


68 15 ee 4f 15 e8 ec 57 


06 


153b : 


98 29 Of 8d 57 15 60 8d 


98 


15 dO eb ee 4e 15 ad 4e 


b2 


1543 : 


ec 14 8e fO 14 60 00 00 


If 


15 c9 08 dO df a9 68 85 


91 


154b : 


07 01 20 08 08 Id 12 dO 


2f 


fe a9 15 85 ff ad 52 15 


35 








C9 00 fO 15 a2 00 18 a5 


11 


Listing 18. -SUPER-HARDCOPY« 




fe 69 08 85 fe a5 ff 69 


fO 


(SchluB) 





IS BLOAD "SUPER-HARDCOPY" 

20 SCNCLR 1 PRINT "STAR NL-I0<35PACE}s B" 

39 PRINT "EPSON LX-B00 : 7" 

4© PRINT "«JDWN>ZEILENABSTAND BE I GRAFIKDRUCK i " i PEEK ( 

5103) 

SO CHAR 1,30, 3 J INPUT X: POKE 5103,2 

60 A*=" SUPER-HARDCOPY": SCRATCH (A*) 

70 BSAVE <A*),P4B67 TD P5456 



Listing 19. An passu ng der Super-Hardcopy an den NL-10 
Oder LX 800 



S BLOAD "SUPER-HARDCOPY" 

10 GRAPHIC 2,1,22 

20 DRAW 1,0,2 TO 319, 2i DRAW 1,0,1 TO 319,4: DRAM 1,0, 

6 TO 31V, 6: BOX 1,0,0,319,199 
3« CHAR 1,13,0," SUPER-HARDCOPY ",1 
40 FOR 1=1 TO 35j CIRCLE 1 ,30+1*7 ,80, 15,60, ,, 1*10: NEX 

50 INPUT " X-VERSRDESSERUNB ";X 
60 INPUT "Y-VERGRDESSERUNS ";Y 
70 INPUT "DRUCKM0DUS€7SPACE>";DR 
80 SYS 48&7,0,X*16+Y,DR 
90 GOTO 50 

Listing 20. Ein Demo zur Super-Hardcopy 



21. VDC-Werte 



Ich habelhnenhiereineTabelle der sinnvollen Werte fur die 
Register des VDC zusammengestellt. 

Beschrieben wird es mit SYS DEC("CDCC"),X,0. 
X = 130 - 132 Der Bildschirminhalt wird nach oben 

gescrollt, bei kleineren Werten wird das 

Scrollen schneller. 
X = 133 - 135 Der Bildschirminhalt wird nach unten 

gescrollt, bei groBeren Werten wird das 

Scrollen schneller, 
X = 243 - 255 Die Schrift wird in doppelter vertikaler 

GroBe ausgegeben. Die exakte Steue- 

rung der Bildschirmausgabe ist nicht 

mehr moglich. 



Sobald andere Werte auBer dem Normalwert und den 
oben angegebenen benutzt werden, wird der Bildschirm 

entwederabgeschaltet, Oder eserscheint ein undefinierba- 
res Flimmern, das nur mit < RUN-STOP/RESTORE > ab- 
gebrochen werden kann. 

Ich mochte Ihnen noch ein Demo-Programm fur das 
Scrolling geben. 
10 A = DEC {"CDCC") 
20 SYS A, 133.0 : REM Scrolling starten 
30 GETKEY A$ 
40 SYS A, 132,0 :REMIndieersteZeIlezuruekscrollen 

Es konnen natiirlich auch die oben aufgefuhrten Werte 
eingesetzt werden. (Bernd Geyer/ef) 



22. Komforlable Sprite-Steuerung 



»Joysprite« (Listing 21) steuert Sprite 1 durchdie Bewegung 
eines Joysticks in Port 2. So wird die Program mierung von 
Meniisteuerungen oder Malprogrammen deutlich verein- 
facht. 

Tippen Sie die Routine im C 64-Modus mit dem MSE ab. 
lmC128-Moduswirdsiedann mit BLOAD geladen. Da Joy- 
sprite im Interrupt lauft, muB sie iiber den Vektor $314/$315 
eingehangt werden. Diese Aufgabe sollteauch von Assem- 
bler-Neulingen recht schnell gelost werden, zum Beispiel 
mit folgender Routine, die mit dem Monitor oder natiirlich 



mit einem beliebigen Assembler eingegeben wird: 

02000 SEI ■ 

02001 IDA #$0D 
02003 STA $0314 
02006 IDA #$20 
02008 STA $0315 
0200B CLI 
0200C RTS 
0200D JSR $1300 
02010 JMP $FA65 
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Mach Eingabe dieser Zeilen und Aufruf mit Bank 
15:SYS8192 wird das Sprite, das Sie beliebig definieren 
konnen, unabhangig von einem laufenden Basic-Pro- 
gramm gesteuert. Schalten Sie die Routine entweder 
durch < RUN/STOP RESTORE> aus oder durch Starten 
des etwas geanderten Initialisier-Programms. Dazu mils- 
sen nur zwei Zeilen einfach uberschrieben werden: 

02001 IDA #$65 

und 

02006 IDA #$FA (K, H. Guckler/ef) 



Name 


joy-sprite l.obj 1300 13al 


1300 


ao 00 dc 98 29 01 dO 03 


da 


1308 


20 2c 13 98 29 02 dO 03 


02 


1310 


20 30 13 98 29 04 dO 03 


lc 


1318 


20 61 13 98 29 08 dD 03 


dd 


1320 


20 34 13 98 29 10 dO 03 


8f 


1328 


20 90 13 60 ce d7 11 60 


12 


1330 


ee d7 11 60 ae d6 11 e8 


12 


1338 


fO 04 8e d6 11 60 ad e6 


41 


1340 


11 29 01 fO Oe ad e6 11 


50 


1348 


29 fe 8d e6 11 a2 00 8e 


74 


1350 


d6 11 60 ad e6 11 09 01 


9a 


1358 


8d e6 11 a2 00 8e d6 11 


e3 


1360 


60 ae d6 11 ca eO ff fO 


85 


1368 


04 8e d6 11 60 ad e6 11 


be 


1370 


29 01 fO Oe ad e6 11 29 


eO 


1378 


fe 8d e6 11 a2 ff 8e d6 


2b 


1380 


11 60 ad e6 11 09 01 8d 


82 


1388 


e6 11 a2 ff 8e d6 11 60 


44 


1390 


ea ea ea ea ea ea ea ea 


8f 


1398 


ea ea ea ea ea ea 60 ff 


97 


13a0 


fb 20 d2 f f ee 52 15 ad 


91 


Listln 


g 21. Elnfache Sprite-Steuerung in Menus 



23. VDC-Wmdow 



Diese Routine erlaubt es, den inhalt des 80-Zeichen-Bild- 
schirms in den freien Speicher des VDC-Chips zu kopieren 
und von dort auch wieder zuruckzuholen. Selbst der Attri- 
butspeicher wird hierbei berucksichtigt. Tippen Sie dazu 
Listing 22 mit dem MSE im C 64-Modus ab. In dem Bei- 



Name : 


vdc -window 


1300 1391 


1300 : 


4c 55 13 a2 18 


8e 00 d6 


b4 


1308 : 


2c 00 


d6 10 fb 


ad 01 d6 


cb 


1310 : 


09 80 48 20 79 13 a0 10 


42 


1318 : 


a9 00 


85 fa 85 


fb 85 fd 


cc 


1320 : 


a9 10 


85 fc a5 


fc &2 12 


c3 


1328 : 


20 79 


13 a9 00 


e8 20 79 


ba 


133O : 


13 a5 


fa a2 20 


20 79 13 


38 


1338 : 


a9 00 


e8 20 79 


13 a2 le 


16 


1340 : 


a9 00 


20 79 13 


e6 fa e6 


43 


1348 : 


fc 88 


dO d8 68 


29 7f a2 


eb 


1350 : 


18 20 


79 13 60 


a2 18 8e 


d2 


1358 : 


00 d6 


2c 00 d6 


10 fb ad 


08 


1360 : 


01 d6 


09 80 48 


20 79 13 


bO 


1368 : 


aO 10 


a9 00 85 


fc 85 fd 


cd 


1370 : 


85 fb 


a9 10 85 


fa 4c 24 


09 


1378 : 


13 8e 


00 d6 2e 


00 d6 10 


eb 


1380 : 


fb 8d 


01 d6 60 


00 00 00 


63 


1388 : 


00 00 


00 00 00 


00 00 00 


89 


1390 : 


00 ea 


ea ea ea 


ea ea ea 


a5 


Listing 22. »VDC-WINDOW« rettet den 


Fe n ste rh i nte rg ru nd 







spiel-Programm (Listing 23) wird ein Bild erzeugt und dann 
in den Speicher kopiert. Jetzt kann dieses Bild von neuen 
Anweisungen geandert werden. Danach muB nicht wieder 
das alte Bild hergestellt werden, sondern es wird durch den 
Aufruf in Sekundenschnelle zurOckgeholt. 
Einsprungadresse 
80-Zeichen-Bild-SAVE: $1303 
80-Zeichen-Bild-LOAD: $1300 (K. H. Guckler/ef) 



18 BANK ]5t FAST : ERAPHIC 5,1 

28 PRINT CHR*U9> CHRI<1<?> CHR* 127) "PI"; 

39 FOR 1-1 TO 1099 

48 : IF RND<9>>.5 THEN PRINT CHRtllSltl ELSE PRINT CHR 

1(143); 
5© ! COLPR 5,1NT(RND(11 •1S1+1 
68 : PRINT CHRH293*RNDI«>*.S)| 
79 NEXT 

B9 PRINT "CHR*(1"7>CHR#<1<?> 
*?8 ; 

199 SVS DEC ("1393"): REM BILD 5PE1CHERN 
119 I 

129 PRINT CHRJ(Z7>"L n CHR»13J CHR>!143)t 
139 CHAR 1,39, 12, "•»»««»•*«•«-«•*«*••" 
149 CHAR 1,39,13,"»<285PACE:>«" 
1S8 CHAR 1,39,14,"«£6SPACE>TASTECTSPACE>»" 
169 CHAR 1.39, 15,"*(29SPACE>*" 
179 CHAR 1,39,16,"* FUER ALTEB BILD(45PflCE>»" 
168 CHAR 1,39, 17,"»C29SFACE>»" 
199 CHAR 1,39, IB, "« <2«SPACE>«" 
288 CHAR 1 ,39, 19, "••#•■»»####»##*»##•*•»*■' 
219 GET KEY A* 
229 : 

238 SVB DECl'lsaa") : REM BILD WIEDERKERSTELLEN 
240 : 

259 SLEEP 1 
269 GOTP 138 

Listing 23. Ein Demo zu VDC-WINDOW 



24. Defekt im Char-Befehl 



Kurzlich habe ich bei meinem C 128 einen Fehler im Be- 
triebssystem beziehungsweise Basic-ROM entdeckt, der 
zwar selten Auswirkungen zeigt, anderenfalls jedoch sehr 
unangenehm ist. DerUbeltateristderachsoschone Befehl 
CHAR im Basic 7.0 des C 128. In der Wirkung funktioniert 
er zwar einwandf rei, doch was passiert wirklich, wenn man 
den CHAR-Befehl auf dem 80-Zeichen-Bildschirm anwen- 
det? Das Basic-RAM wird beschrieben! Dies erfolgt an den 
Adressen $d600 und $d601 in RAM-Bank 0. Bei Basic-Pro- 
grammen mit FRE{0)> 10495 ist das nicht weiter tragisch, 
da diese Speicherstelle nicht erreicht wird. Bei sehrgroBen 
Programmen — und deshalb macht sich dieser Fehler so 
selten bemerkbar — wird das Basic-Program m verandert! 
Harmlos ist es noch, wenn sich an den Adressen $d600/ 
d601 der Text zum Beispiel eines PRINT-Befehles befand. 
Hierwird dann meistensim Program mablauf etwas zu blin- 
ken anfangen. Schon schlimmer, wenn ein Token uber- 
schrieben wird. Dann fiihrt das Programm einen falschen 
Befehl aus oder endet mit etner Fehlermeldung. Doch kata- 
strophal ist es, wenn eine Basic-Zeilennummer uberschrie- 
ben wurde. Der Rest des Programmes besteht dann nur 
noch aus »Nummernsalat« und es durfte sich schwierig ge- 
stagen, es wieder zu rekonstruieren. 

Geben Sie einmal auf dem 80-Zeichen-Schirm 
CHAR,9,9, 'TEST" ein undschauen dann mit dem Monitor 
mit M 0d5f0 im Speicher der Bank nach. Das Einschaltge- 
wirr von »00«- und »ff«-Code ist jah an den Adressen 
$d600/d601 durch »0f d9« verandert. 

Doch nun hat es mir keine Ruhe gelassen. Adresse 
$d600/d601 und 80-Zeichen-Bildschirm? Da wird man 
doch stutzig. Das sind doch die Adressen des VDC-Chips. 
IrgendwomuBeineAdressierungandenVDC-ChipinBank 
rutschen. SchlieBlich tritt dieser Fehler beim 40-Zeichen- 
Schirm weder im Text- noch im Grafik-Modus auf. 

Schuld ist hier ein Unterprogramm im Basic-ROM, wel- 
ches der CHAR-Befehl an Adresse $f6838 aufruft. In die- 
sem ab Adresse $f928d gelegenen Unterprogramm soil der 
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Cursor gesetzt werden. Das Fatale ist nun, daS hier als er- 
stes mit dem Befehl sta $ff03 Bank 14 eingeschaltet wird 
(denn hier liegt das Load-Konfigurationsregister C und im 
Pra-Konfig.Reg. C an Adresse $fd503 ist nun normalerwei- 
se die Konfiguration $01 = Bank14eingestellt). Spaterwird 
die Position desCursors in dereigentlichen Plot-Routine an 
den VDC iibermittelt. Das sollte iiber die Adressen 
$d600/d60l in Bank 15 geschehen, also bei eingeschalte- 
tem l/O-Bereich. Hier aber wird in Bank 14, also das 
Charakter-ROM, geschrieben, welches ja eigentlich zum 
Lesen gedacht ist. Die MM U veriibelt nun dieses U nterfan- 
gen, indem sie kurzerhand in Bank schreibt. Ubrigens 
wird dann spater im Verlauf der CHAR-Routine zur Ausga- 
be des Strings richtig durch 

pha 

Ida #$00 

sta$FFO0 

pla 

auf den l/O-Bereich umgeschaltet. 

Spatestens jetzt wird auch verstandlich, welcher Code 
nun gerade in Bank landet. Die Adresse des Cursors im 
VDC-Chip errechnet sich nach adresse=hex$(Zeile*80+ 
Spalte). Bei CHAR,9,9 also — obiges Beispiel — gilt 
adresse =$02d9. Nun wird erst das High-Byte dieser Adres- 
se in Register $0e=14 des VDC geschrieben, Dann das 
Low-Byte in Register $0f =15 des VDC. Deshalb steht nach 
CHAR, 9,9 an Adresse $d600 ein $0f, also das Register des 
VDC, welches als letztes angesprochen wurde. An d601 
steht dann das Low-Byte der Cursor-Adresse, also hier $d9. 
Versuchen wir zum Beispiel CHAR,0,3, so konnen wir mit 
dem Monitor iiberpriifen, daB folgerichtig »0f 03« an die 
Adressen $d600/d601 geschrieben wurde. 

Nun ergeben sich zwei Fragen: 1. Wie kann man diesen 
Fehler umgehen? 2. Sind noch andere Befehle davon be- 
troffen? 

Zur ersten Frage: Noch einmal sei betont, daB man sich 
nur bei extrem langen Basic-Prog ram men Gedanken ma- 
chen muB. Leicht zu uberpriifen mit dem FRE-Befehl: Bei 
FRE(0)> 10495 ist alles in Ordnung. Allerdings sollte vor- 
her die Hires-Graf ik schon einmal eingeschaltet worden 
sein, wenn das Programm mit Grafik arbeitet. — Ferner ist 
der CHAR-Befehl bedenkenlos auf dem 40-Zeichen-Bild- 
schirm anzuwenden. 

Urn nun auch bei langen Programmen auf dem 
80-Zeichen-Bildschirm den Cursor bequem zu positionie- 
ren, sind drei Losungen denkbar. Die erste ist die Schlech- 
teste. Man andert durch 

bankl5 : poke dec ( " d503 "),0 

das PrakonfigurationsregisterC so ab, daB beim Beschrei- 
ben von ff03 immer Bank 15 eingeschaltet wird. Das wird 
aber oft in die Hose gehen, da nicht abzusehen ist, bei wel- 
chen Basic-Befehlen dann wiederum Fehler auftreten (bei 
einem ersten Versuch klappte es erstaunlich gut). 

Die zweite Losung bietet sich immer dann an, wenn man 
partout nicht auf den CHAR-Befehl verzichten mochte. Man 
rettet vor einem CHAR-Aufruf das Basic-RAM mit PEEK: 
am Anfang eines Programms: 

D=DEC( "D600" ) :BANK0:DI=PEEK(D) :D2=FEEK(D+4) 

bei jedem CHAR-Aufruf: 

CHAR, :BANK0:P0KED,D1:P0KED+1,D2 

Das geht immer gut, auBer wenn zufallig der Schwanz 
einesCHAR-Befehles gerade an besagten Adressen d600/ 
d601 liegt. Die dritte Losung ist die sauberste, bedeutet je- 
doch mit dem Verzicht auf CHAR einen Ruckschritt in alte 
C 64-Zeiten. Jeder 80-Zeichen-CHAR-Befehl wird durch 
ein SYS ersetzt: 



BANK15 : SYS DEC ( " FFFO "),.-, x,y : PRINT. . , . 
Oder :SYS DEC( "C018 " ) , ,x,y: PRINT. . . . 

wobei x=Spalte und y=Zeile die bekannten CHAR- 
Koordinaten bedeuten und der String im PRINT-Befehl 
ausgegeben wird. 

Letzteres ist das probate {und wohl auch bekannte) Vor- 
gehen in Maschinen program men fur die Positionlerung 
des Cursors: 
Ida #$00 
sta $ff00 ; Bank 15 eingeschaltet 

Idx # Spalte 

ldy #Zeile 

clc 

jsr $fff0 ; Oder auch jsr $c018 

Im x- beziehungsweise y-Register werden Spalte und 
Zeile iibergeben, anschlieBend wird das eigentliche Cur- 
sor-Plot-Unterprogramm aufgerufen. Zuvor ist unbedingt 
das Carry-Flag zu loschen, wie im folgenden noch deutlich 
wird. 

Denn nun zur zweiten Frage: Sind noch andere Befehle 
betroffen? In der Tat wird das Unterprogramm $928 D insge- 
samt funfmal aufgerufen (mit dem H-Befehi im Monitor an- 
sehen). Urn die Wirkungsweise dieser Aufrufe zu verste- 
hen, sei kurz das Unterprogramm »Cursor-Plot« skizziert. 
Es ist - wie beim C 128 iiblich - ein Universalgenie. Zu- 
nachst wird bei $928D auf Bank 14 umgeschaltet, wie oben 
beschrieben. Dann folgt die eigentliche Plot-Routine. Die- 
se erfiillt aber gleich zwei Aufgaben: Ist das Carry-Flag ge- 
loscht, wird der Cursor entsprechend x- und y-Register ge- 
setzt. Ist das Carry-Flag dagegen gesetzt, so wird die ak- 
tuelle Cursorposition gelesen und im x- beziehungsweise 
y-Register iibermittelt. Ferner wird jedesmal unterschie- 
den, welcher Bildschirm-Modus gerade aktiv ist. Jetzt las- 
sen sich die Konsequenzen im einzelnen untersuchen (sie- 
he Tabelle 2): 



Aulruf bei 


betrlfft Befehle 


Auswirkungen 


F55AA und F55BB 


SPC.TAB 


keme! Hier wird die Cur- 
sorposition nur gelesen 
und dabei ausschlieBllch 
auf Zeropage zugegriffen, 
nicht auf den VDC. 


F6838 


CHAR 


Fehler! Wie beschrieben 
Zugriff auf VDC. 


F6A8F 


SCNCLR 


Keine! Hier wird der 
Cursor zwar gesetzt, aber 
mitjsr$S28D nur auf dem 
40-Zeichen-Bildschirm. 


F84D1 


POS 


Keinel Cursor wird nur 
gelesen (siehe SPC.TAB). 



Tabelle 2. Aufrufe des Unterprogrammes ab 928D 
in Basic 7,0 

Somit ist das Uberschreiben von Basic-Prog ram men al- 
so wirklich nur bei CHAR zu befiirchten! (T. Sperling/ef) 

25. Der VDC des Blech-Diesels 



Der VDC ist wohl der interessanteste Baustein im C 128. Bei 
langerem Arbeiten mit diesem geriichteumwitterten Video- 
prozessor wurde versehentlich das Register 37 beschrie- 
ben, das — laut Commodore-Handbuch — nicht existiert. 
Die Wirkung, die durch das Beschreiben entsteht, ist fur ei- 
gene Zwecke kaum zu gebrauchen, laBt sich aber dennoch 
sehen. Von diesem Register sind nur die Bits 6 und 7 be- 
nutzt. Bit 6 bewirkt, daB der Bildschirm an den rechten 
Rand geruckt wird. Bit 7 erzeugt ein durchlaufendes Bild. 
Interessant ist noch, daB ein Zurucksetzen des Registers 
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auf den Normatwert nurdurch ein Beschreiben mit 192 bis 
255 oder einen Kaltstart {Reset-Taster) moglich ist. Die Ta- 
stenkombination < RUN/STOP RESTORE> andert dieses 
Register genausowenig wie der Software-Reset SYS 
DEC("FF3D"). 

Und wieso? Weil das Register vom Betriebssystem des 
C128 her nicht unterstutzt wird. (T. Schadde/ef) 

26. Rasterzeilen flimmerfrei 



Viele Program mierer, sicherlich auch viele Anwender, stort 
das relativ starke Flimmern zwischen den zwei Bildschirm- 
bereichen nach einem GRAPHIC2- Oder GRAPHIC4-Be- 
fehl. Um dieses Flackern beim Rasterzeileninterruptzu ver- 
hindern, muS die Rasterzeile, bei der ein Interrupt ausge- 
lost wird, um 1 verringert werden. Dazu sollte man wissen, 
daB der Computer in der Speichersteile 2512 (in der erwei- 
terten Zeropage) eben genau diese Rasterzeile speichert. 
Nach jedem Aufruf von GRAPHIC2 oder GRAPHIC4 wird 
dort diese Rasterzeile abgelegt. Wir brauchen nur von die- 
sem Wert 1 abziehen, und das Flackern hort auf. Wenn das 
geschehen ist, werden Sie feststellen, daB in der untersten 
Rasterzeile ein farbiger Streifen erscheint. Dieser wird 
durch das Zeichen-RAM der Grafik erzeugt, das auch wei- 
terhin nur eine Farbe je voile acht Rasterzeilen darstellt. 
Verhindern laBt sich dieser Streifen, indem man die letzten 
acht Rasterzeilen der Grafik nicht verwendet, Oder diese, 
wie im Demoprogramm (Listing 24), mit Spaces uber- 
schreibt. Wer mit dieser L6sung nicht zurechtkommt, der 
wird wohl nicht umhinkommen, eine komplett neue 
Interruptroutine zu schreiben. Nur dann ist ein uneinge- 
schrankter, flackerfreier Rasterzeilen interrupt moglich. 

(D. Bozza/ef) 



27. Vereiitfachtes laden 



1 REM .****#***•»*«****. 
20 REM * DIRK BQZ7A * 
30 REM • 6RUENER WEG 12 * 

40 rem * seee hagen s • 
50 rem miun i m i in « 

60 REM 

70 COLOR 0,1: COLOR 1,15s COLOR 4,1 

S« GRAPHIC 2,1 i COLOR 0,7 

90 PRINT " ■CCLR,16DDWN, YELLOW, 35PACE>RASTERZEILENINTERR 

UPT MIT FLIMMERN" 
100 PRINT " < 2SPACE ~i i.*.*.*.***.*.*.;*.**.*.***.*************?**** 

£," 
110 GRAPHIC 2,0,14 
120 BOX 1,0,0,319,103 
130 BOX 1,5,5,314,96 
140 PAINT ,1,1 

150 CHAR 1,5,6,"BITTE DROECKEN SIE EINE TASTE!" 
160 GET KEY A* 
170 PRINT "{CLR,16D0WN,3SPACE>RASTERZEILENINTERRUPT OH 

NE FLIMMERN" 
1B0 PRINT " {2SPACE> *A»..JI*Jt*«hfc».*Jt...».HI;JOt»«««*»»,«#tl-«^^«y^ jt 

SS" 
190 REM 

200 REM «»»»*»**». •«■*»*»*. *»**•» 
210 REM » FLIMMERN AUSSCHALTEN » 
220 REM #*#**********#*###*+*-*■*■* 
230 REM 

240 6RAPHIC 2,0,13 

250 X==716B+l (PEEK(2612)-48)/B>»40 
260 POKE 2612,PEEK<2612>+7 
270 FOR M=0 TO 39: POKE X+M.32: NEXT 
2B0 REM 

290 REM »«*»»•*•«»*»*»**»»*#»#*#« 
300 REM 
310 CDLOR 1,3 

320 CHAR 1,4,2,"ZU BEACHTEN IST, DAS DIE LETZTEN" 
330 CHAR 1,7,4,"8{2SPACEJRASTERZEILEN DER GRAFIK" 
340 CHAR 1,5,6," NICHT BENUTZT WERDEN KOENNEN " 
350 COLOR 1,8s FOR X=1«0 TO 220 STEP 10 
360 CIRCLE 1,X,B2,10,10: NEXT 

370 CDLOR 1,2: CHAR 1 ,12, 10, "TASTE FUER ENDE!" 
3B0 BET KEV A*: GRAPHIC 



Listing 24. Flackerfrei mit Rasterzeile 



Obwohl im Basic V7.0 des C 128 die Befehle DLOAD und 
BLOAD implementiert sind, ist es doch umstandlich, Pro- 
gramme aus einem Directory zu laden. 

Zwar muB man nicht mehr hinterdem Programmnamen 
das gefurchtete »,8« anhangen, aberda der Computer nicht 
die Dateiart ignoriert (wie bei diversen Erweiterungen ub- 
lich), ist man gezwungen, diese Kennung mittels Cursor zu 
loschen. Es geht aber auch anders: Setzen wir doch nach 
dem Programmnamen einen Doppelpunkt. Es ist iiber- 
haupt nicht schwer, im Directory beliebige Zeichen hinter 
den Dateinamen zu setzen. Der Computer fullt namlich den 
Resteines Namens mit geSHIFTeten < SPACE > auf. Alle 
Zeichen, die nach dem ersten Space stehen, gehoren nicht 
mehr zum Namen und werden ignoriert, Man muB nur dar- 
auf achten, daB Programmname, <SHIFT SPACE > und 
die folgenden Zeichen insgesamt nur 16 Zeichen lang sind. 
Wir wollen nur einen Doppelpunkt hinter einen Namen brin- 
gen, so daB wir zwei Zeichen nach dem Namen benotigen. 
Insgesamt darf der Name also 14 Zeichen lang sein. 

Nachdem man den Programmnamen zum Speichern 
eingetippt hat, gibt man (vor dem zweiten Anfuhrungszei- 
chen) ein < SHIFT SPACE > und einen Doppelpunkt ein. 
Im Directory stehen dann anstelle des <SPACE> die zwei- 
ten Anfuhrungszeichen und danach der Doppelpunkt. Nun 
muB man zum Laden nur noch auf den Anfang der entspre- 
chenden Zeile fahren, »DLOAD«, »RUN« oder <F2> ein- 
geben und das Programm wird anstandslos geladen. Qbri- 
gens reicht es, nach »DLOAD« oder »RUN« den tatsachli- 
chen Namen anzugeben. Allerdings werden beim Laden 
von Maschinensprache-Programmen mittels »BLOAD« kei- 
ne Zeiger im Computer verandert, so daB er den folgenden 
(vermeintlichen) Befehl auch noch ausfiihren will — ein 
"SYNTAX ERROR« ware die Folge. Um dies zu verhindern, 
schreibt man nach dem Doppelpunkt noch ein REM, was 
zwar etwas irritiert, aber diese Meldung verhindert. 

(T. Gudella/ef) 



28. Neues von der 1571 



Im Floppy-Betriebssystem ist noch ein bisher nicht erwahn- 
ter Fehlervorhanden: Wird beim Speichern der letzte Block 
eines Programms vollstandig gefullt, dann wird ein Block 
zuviel belegt. Im Directory erfolgt der Eintrag korrekt, aller- 
dings »fehlt« auf der Diskette ein Block. Ein Validate stellt 
hier jedoch wieder Ordnung her. Dieser Fehler ist bei mei- 
ner 1571 (Blech) in alien Betriebsarten (auch bei Dolphin- 
DOS) vorhanden. Hier ein Beispiei: Geben Sie vom Monitor 
aus »s"name",8,1c0l,1cfd« oder»s"name",8,lc01,ldfb« ein. 
Beim ersten Speichern wird ein kompletter Block ge- 
braucht, beim zweiten zwei. Der Eintrag der Blocks erfolgt 
korrekt mit 1 beziehungsweise 2, es werden jedoch 2 bezie- 
hungsweise 3 Blocks belegt. Erst ein VALIDATE korrigiert 
die Eintragungen. Solange man nicht mit Direktzugriffsda- 
teien arbeitet, ist dieser Fehler bedeutungslos. Peinlich 
wird es jedoch, wenn auf diese Weise standig Speicher- 
platz »verdunstet« und ein Validate nicht erlaubt ist, 
Scratch-geschutzte Programme konnen ubrigens mit der 
1571 (Blech) gelesen werden. Der in der Ausgabe 12/87 er- 
schienene DOS-Patch ist hier nicht notig und wahrschein- 
lich auch nicht funktionsfahig, da im DOS der 1571 (Blech) 
ja einige Veranderungen vorgenommen wurden. Der 
Block-Allocate- und der Block-Free-Befehl funktionieren 
ubrigens uberhaupt nicht. Versuchen Sie einmal, auf einer 
neu formatierten Diskette Block 1, Sektor zu belegen. 
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Spatestens nach dem nachsten Initialize zeigt sich die 
Wahrheit. Die komplette Spur 1 ist belegt! Auch ein Block- 
Free hilft nicht. Auf der Diskette zumindest ist und bleibt die 
Spur belegt. Es bleibt also nichts weiter ubrig, als direkt die 
BAM zu manipulieren (wie mit dem Autbboot Maker von der 
1571-Test-Diskette). Beim Dolphin-DOS stort ein Schdn- 
heitsfehler den Betrieb mit der 1571. Validierte man bisher 
eine zweiseitige Diskette versehentlich im 1541-Modus, so 
fehlten anschlieBend 664 Blocks, Dies konntejedoch durch 
ein Validate im 1571-Modus wieder behoben werden. Nicht 
so bei Dolphin-DOS! Hier hilft nur noch ein Disk-Monitor, 
urn die Kennung fur eine zweiseitige Diskette wiederherzu- 
stellen. (T,Lang/ef) 

29. Noch einmol 1571 



40-Spur-Disketten lassen sich mit der 1571 einfach lesen. 
GebenSiedazubittefolgendeBefehleim Direktmodusein: 
openl , 8 , 15 , » uO > mO* 

print#l,»ni-w«chr$(l72)chr$(2)chr${l)chr$(4l) 
close 1 

Noch etwas: Vorsicht ist geboten, wenn man den C 128D 
(Blech) often betreibt (Warmeabfuhr). Da die Schreib- 
schutz-Lichtschranke der Floppy hier offen liegt, werden 
Schreibschutzaufkleber wirkungslos, sobald genug 
Fremdlicht auf die Lichtschranke fallt. Ich selbst habe mir 
damit eine meiner wiehtigsten Disketten zerstort! 

Diese Eigenschaft laBt sich aber auch sinnvoll einsetzen. 
Wenn der Computer sowieso offensteht, braucht man bloB 
eine Taschenlampe iiber die Lichtschranke zu stellen und 
kann dann auch die Ruckseite einer Diskette beschreiben, 
ohne diese »anzusehneiden«. So spart man sich den 
Schreibschutzaufkleber (das sind die Dinger, die immer 
dann im Laufwerksteckenbleiben, wenn man es am wenig- 
sten erwartet). 

Auf der zweiten Seite kann sich dann zum Beispiel die 
Programmdiskette befinden, auf der ungeschutzten ersten 
Seite die Daten, Vor einem Diskettenwechsel muB aller- 
dings das Fremdlicht abgeschaltet werden, damit die neue 
Diskette initialisiert wird. (T. Lang/ef) 



30. Kopierschufz einmal einfach 



Ein einfacher, aber wirkungsvoller Kopierschutz, der aller- 
dings nur mit der 1571 im 1541-Modus funktioniert, ist das 
Speichern von Programmen auf der zweiten Diskettensei- 
te. Auf der ersten Seite befindet sich ein Lader, der densel- 
ben Namen wie das zu ladende Programm haben kann. Er 
ist einen Block lang und besteht aus nur einer Basic-Zeile: 

OPEN 1,8,15, "U0>H1" :L0AD "HAUPTPROGRAMM" ,8 

Der erste Befehl sfeJIt die Floppy auf den zweiten Kopf 
um. Dann wird von der zweiten Seite das Programm 
»Hauptprogramm« geladen und automatisch gestartet, 
Samtliche mir bekannten Kopierprogramme fur die 1571 
{egal ob 1541 Oder 1571-Modus) konnen die zweite Seite 
nicht kopieren. Thirty Seconds gibt Lesefehler aus, da die 
Spuren 36 bis 70 erwartet werden. Tornado-Copy erlaubt 
keine Umstellung auf die zweite Seite, da es i m 1571-Modus 
lauft. Mastercopy lauft nur mit der 1541, allerdings sind 
dann beim Wenden der Diskette die Daten in der falschen 
Richtung aufgezeichnet. File-copy-Programme lesen nur 
den Lader auf der ersten Seite und kopieren diesen. Kopie- 
ren ist also nur durch Einlesen und wieder Speichern m6g- 
lich. Bei verschiedenen Files wird das aber etwas schwierig 
(REL, USR). (D. Astrath/ef) 



31. Kopieren mit Laufwerk 9 



Sehr viele Kopierprogramme funktionieren aufgrund der 
anderen Diskettenstation nicht auf dem neuen C128 D 
(Blech). Besitzer einer Zweitfloppy (1570/1571) sind ab jetzt 
in der Lage, Disketten schnell zu kopieren. Dazu wird die 
Gerateadresse eines Kopierprogramms nach dem Laden 
auf 9 gestellt. Besitzer von TORNADO COPY (64'er-Son- 
derheft 10) haben nur zwei POKE-Befehle einzugeben: 

POKE 7905,9 
POKE 7932,9 

Anwender des Programms THIRTY SECONDS 
(64'er-Sonderheft 15) haben etwas mehr zu tun: 

POKE 7375,9 
POKE 7393,9 
POKE 7463,9 
POKE 8281,9 
POKE 8301,9 

Nach der Eingabe der POKEs sollte man das Programm 
speichern. Anstatt der 9 Ia6t sich auch eine andere Gerate- 
adresse von 8 bis 12 eingeben. (U. Kepper/ef) 



32. Hilfe zum MSE 



Mit dem Listing 25 »MSE-Tipphilfe« erzeugen Sie auf Ih- 
rem C 128 im C 64-Modus einen nexadezimalen Ziffern- 
block, Die Tipphilfe belegt die vier Funktionstasten mit den 
Buchstaben »A« bis »D«, < + > und <-> mit »E« und »F«. 
Der iibrige Ziffernblock ist wie im C 128-Modus belegt. 

Die »MSE-Tipphilfe« baut auf dem im 64'er-Sonderheft 
1/86, Seite 142, veroffentlichten Programm »Key 128« auf. 
Es wurde um eine Funktionstasten-Abfrage erweitert und 
soweit gekurzt, daB es in den Kassettenpuffer paBt. Des- 
halb konnten auch der Interrupt- und der Tastaturdecodier- 
Vektor nicht mehr innerhalb des Assemblerprogrammes 
auf die erweiterten Routinen umgestellt werden. Dies ge- 
schieht durch die Zeilen 190 und 200 des Basic-Laders. Die 
beiden POKE-Kommandos in den Zeilen 180 und 210 ent- 
sprechen den Assembler-Befehlen SEI und CLL Sie verhin- 
dern, daB das Betriebssystem in die Interrupt-Routine ein- 
springt, bevor der IRQ-Vektor komplett umgestellt wurde. 

Laden Sie zunachst das Programm mit »LOAD"MSE- 
TIPPHILFE",8«, starten es mit RUN und aktivieren dann 
den MSE ganz normal mit »LOAD" MSE " ,8« und RUN. Die 
Geschwindigkeit, mit der sich Maschinensprache-Pro- 
gramme eingeben lassen, ist nun betrachtlich hoher als 
bisher. 

Zwei Punkte sind noch zu beachten: Durch Drucken von 
< RUN/STOP RESTORE > deaktivieren Sie die 
MSE-Tipphilfe. AuBerdem vertragt sie sich nicht mit Pro- 
grammen, die ebenfalls im Kassettenpuffer abgelegt sind. 
Sie erkennen diese Programme an der Startadresse in der 
Kopfzeile des Listings. Diese Adresse darf nicht im Bereich 
von $033C bis $0400 liegen. (C. H6gl/ef) 



100 REM — MSE-TIPFHILFE AH 128ER — 


<238> 
<142> 
<152> 


120 FOB L=820 TO 1019 


130 READ B = POKE L,D : P=P+D 


<121> 


140 NEXT 


<150> 


150 : 


<126> 


160 IF P021212 THEN PRINT " ERROR " : STOP 


<212> 


170 : 


<146> 


180 POKE 56334. 0: REM INTERRUPT AUS 


<166> 


190 POKE 655, 166= POKE 656, 3 


<142> 


Listing 25. Die »MSE-Tfpphllfe« hilft be) MSE- 
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220 POKE 


788 


Si 


: POKE 789. 


3 






<025> 


210 POKE 


56334. 


s REM 


INTERRUPT AN 


<091> 


220 END 
















<222> 


230 : 
















<206> 


240 DATA 


169 


64 


133,203, 


41 





141 


47 


<037> 


250 DATA 


208 


9 


255,141, 





220, 


205 


1 


<209> 


2S0 DATA 


220 


240 


66,160, 


89 


169 


251 


141 


<242> 


270 DATA 


47 


208 


72,173, 


1 


220 


205 


1 


<149> 


280 DATA 


220 


208 


248,162, 


8 


10, 


176 


2 


<228> 


290 DATA 


132 


203 


136,192, 


65 


144, 


7 


202 


<125> 


300 DATA 


208 


243 


104, 74 


16 


225 


104 


173 


<105> 


310 DATA 


141 


2 


10,201 


B 


144 


2 


169 


<11B> 


320 DATA 


6 


170 


189,188 


3 


133 


245 


189 


<032> 


330 DATA 


189 


3 


133,246, 


32 


155 


3 


32 


<019> 


340 DATA 


224 


234 


32,155 


3 


169 


255 


141 


<225> 


350 DATA 


47 


208 


41,127 


141 





220 


164 


<042> 


360 DATA 


203 


140 


196, 3 


76 


49 


234 


165 


<029> 


370 DATA 


197 


174 


196, 3, 


141 


196 


3 


134 


<184> 


380 DATA 


197 


96 


165,203 


162 


3 


221 


244 


<175> 


380 DATA 


3 


240 


6 , 202 , 


16 


248 


76 


72 


<10G> 


400 DATA 


235 


189 


248, 3, 


133 


203 


208 


246 


<103> 


410 DATA 


131 


3 


155. 3, 


155 


3 


131 


3 


<204> 


420 DATA 


64 


8 


56, 53, 


142 


50 


52 


55 


<241> 


430 DATA 


49 





69, 70, 


17 


13 


54 


57 


U37> 


440 DATA 


51 


14 


48, 44, 


145 


17 


157 


29 


<133> 


450 DATA 


3 


9 


56. 53, 


24 


50, 


52 


55 


<156> 


460 DATA 


49 


27, 


43. 45, 


10 


141 


54 


57 


<103> 


470 DATA 


51 


142 


48, 58, 


145 


17 


157 


29 


<021> 


480 DATA 


3 


E 


5, 4, 


18 


20 


28 


10 


<025> 


@ 64'er 
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33. Fastload fur C 64-Modus 



90 Prozent alter Programme fur den C 128 laufen immer 
noch im C 64-Modus. Es liegt nahe, die erhohte Ladege- 
schwindigkeit der 1570/71 auszunutzen — genau hiersetzt 
»BOOT 64« an, Geben Sie dazu bitte »BOOT64 INSTALL« 
(Listing 26) im C 128-Modus und Listing 27 im C 64-Modus 
mit dem MSE ein und speichern sie auf eine freie Diskette. 
Laden Sie jetzt »BOOT64« im C 128-Modus mit DLOAD, ge- 
ben POKE 7309,147 ein und speichern es mit DSAVE 
"BOOT64H". 

Das Instailationsprogramm wird mit RUN"BOOT64 IN- 
STALL" gestartet. Jetzt entscheiden Sie sich entwederfur 
eine Boot-{»AUTOSTART«) oder fur eine im Direkt-Modus 
startbare Version (»HANDBETRIEB«), Fur die Autostart- 
Version muB spater m it dem »AUTOBOOT M AKER« von der 
»1570/71 Test/Demo Dtsk« ein entsprechender Boot-Sektor 
(fur eine Basic-Datei)eingerichtetwerden. Nach Ihrer Aus- 
wahl erscheint die Aufforderung, den Namen des C 64-Pro- 
gramms und der neu anzulegenden Starl-Datei einzuge- 
ben, Jetzt erst legen Sie die C 64-Diskette (mindestens 
«2 BLOCKS FREE«) ein und driicken < SPACE > — fertig! 
In Zukunft wird der Lader Ihres Programms nur mit RUN 
"name" im C 128-Modus gestartet. (T. Lang/ef) 



100 CLR 

11* PRINT "CCLR>BOOT64 INSTALLATION" : PRINT "<DDWN>VER 

SION FUER {RVSDN>H«WOFF>ANDPETRIEB / <RVSQNJA<RVO 

FF>UTOSTART {DOWN! " 
120 DO 

130 GET KEV AW* 
1*0 LOOP UNTIL AW*="A" OR AW*="H" 

159 IF AW*="A" THEN AW*="'* 

160 DIM A*<1) 

170 OPEN 1,B,2,"B00T64"+AW*+",P,R"« 11=1 

1B0 IF OS THEN PRINT "FEHLER !{DOWN>": PRINT DS*: END 

190 DO 

200 : GET HI, A*: A*"U2)=A* ( 12) +LEFT* < A*+CHR* (0) , 1 ) 

210 : 11=1(11+1) AND 255): 12=12- ( I 1-0) 

220 LOOP UNTIL (ST AND 64) =64 



Listing 26. Das Instailationsprogramm fiir Listing 27 



230 CLOSE 1 

240 NA*=MID*(A*t0> ,44,17) ; FOR 1=1 TO 17: IF MID#(NA«, 

I,lX>CHR*t0) THEN NEXT I 
250 NA*=MID* (NA*, 1,1-1) 
260 PRINT "BOOT-PROGRA«M<3SPACE>"NA*;LEFT*("t23SPACEJ" 

,23-LEN(NA*))s 
270 PRINT "<25LEFTJ"j 
280 INPUT N* 

290 IF LEN(N*>>16 THEN BEGIN 
300 : PRINT ! PRINT "NAME ZU LANG < (3UP1" 
310 : GOTO 2i0 

329 i BEND 

330 FOR A=0 TO 16 
340 N*=N*+CHR*(0> 
350 NEXT A 

360 N*=LEFT*<N*,17> 

379 PRINT ! PRINT "«45PACE,2UP>" 

3B0 PRINT "LADE-PR0GRAMM{3SPACE}B00T64U7SPACE,25LEFT> 

390 INPUT NP* 

409 IF LEN(NP*)>16 THEN BEGIN 

419 : PRINT : PRINT "NAME ZU LANG IC3UPJ" 

420 : GOTO 360 
430 : BEND 

449 PRINT : PRINT " U4SPACEJ " : PRINT " ZIELDISKETTE EIN 
LEGEN": PRINT ! PRINT "WEITER MIT <5PACE>" 

450 DO 

460 : POKE 208,0! WAIT 208, Is BET AW* 

479 LOOP UNTIL AW*=" " 

480 OPEN 1,8,2, <NP*>+",P,W" 
490 IF D5=63 THEN BEGIN 
500 CLOSE 1 

510 PRINT "FILE EXISTIERT BEREITS !*'s PRINT "UEBERSCHR 

EIBEN ? (J/N) " 
520 DO 

530 PDKE 208,0: WAIT 20B.1: GET AW* 
540 LOOP WHILE AW*=" " 

550 IF AW*<>"J" THEN PRINT "ENDE": END 
560 SCRATCHCNPS) : OPEN 1 ,B,2, <NP*)+",P,W" 
570 BEND 
5B0 IF DS=>20 THEN PRINT "FEHLER 'tDOWNJ": PRINT DS*! 

PRINT "tDOWNJENDE": END 
590 PRINT#1 ,MID*(A*(0) , I,43)N* MID* ( A* 10) ,61 ,LEN ( A* (0) 

> -60) A* ( 1 ) ; 

609 CLOSE 1 

610 PRINT "FERTIG !" 

Listing 26. Das Instailationsprogramm (SchluB) 



Name 


: boot64 


lcOl ld27 


lcOl 


: 28 


lc c3 07 9e 20 28 37 


03 


le09 


: 32 32 37 29 3a 8f 14 14 


eO 


loll 


: 14 14 20 fe lb 36 34 20 


8c 


lel9 


: 42 59 20 a4 52 53 54 45 


40 


lc21 


: 4e 


20 4c 41 4e 47 


00 00 


da 


lc29 


: 00 


2a 00 00 00 00 


00 00 


3f 


lc31 


: 00 


00 00 00 00 00 


00 00 


32 


io39 


: 00 


00 a2 Oe bd a8 


lc 9d 


30 


lc4l 


: 00 


13 ca 10 f7 a2 


70 bd 


51 


lc49 


: b4 


lc 9d 00 cf ca 


10 f7 


f6 


lc51 


: 78 


a9 85 Sd 4c 03 


a2 00 


18 


lo59 


: 86 


d2 a2 la 8e dl 


00 a2 


fl 


lo6l 


: 03 


bd 8d lc 9d 0a 


10 ca 


2a 


lc69 


: 10 


f 7 62 f f e8 ee 


dl 00 


6b 


lc71 


r ee 


82 lc bd 2a lc 


9d Oe 


75 


lc79 


: 10 


dO fl a2 16 bd 


91 lc 


90 


lo61 


: 9d 


Od 10 ca 10 f7 


a9 0b 


80 


lc89 


: 85 


fl 58 60 97 42 


cc 22 


2c 


lc91 


: 22 


2c 50 37 31 36 39 Od 


88 


lc99 


: 42 41 4e 4b 31 35 3a 53 


e5 


leal 


: 59 53 34 38 36 34 Od 78 


e2 


lca9 


: ad 


05 d5 09 40 8d 


05 d5 


aO 


lcbl 


: 4c 


00 cf a5 01 29 


fe 85 


06 


lcb9 


: 01 


a2 00 bd 00 lc 


9d 00 


la 


led 


: 08 


e8 dO f7 ee 0a 


cf ee 


cd 


lcc9 


: Od 


cf ad 0a cf c9 


ce dO 


93 


Icdl 


: ea 


a5 01 09 01 85 01 38 


aO 


lcd9 


: a5 


ae 8d 70 cf a5 


af e9 


03 
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lcel : 


14 8d 71 cf a2 ff 78 9a 


53 


loe9 : 


d8 a2 04- 8e 16 dO 20 a3 


95 


lcfl : 


fd 20 50 fd 20 15 fd 20 


b5 


lef9 : 


5b ff 58 20 53 e4 20 bf 


ca 


IdOl : 


e3 ad 70 cf 85 2d ad 71 


2c 


ld09 : 


cf 85 2e a2 08 86 c6 bd 


c6 


ldll : 


67 cf 9d 76 02 ca dO f7 


40 


ldl9 : 


4c 9d e3 43 4c 52 3a 52 


7a 


ld21 : 


55 4e Od 00 00 20 70 70 


84 


Listing 27. -BOOT 64- (SchluB) 





34. Tipphilfe 



»Tipphilfe« (Listing 28) hilft, C 64-Programme im C128- 
Modus (mit alien Eingabehilfen des Basic 7.0) zu editieren. 
Geben Sie das Listing bitte mit dem MSE ein und speichern 
es auf eine freie Diskette. Bevor Sie mit der Eingabe begin- 
nen, laden Sie das Programm bitte mit »BLOAD 'TIPPHIL- 
FE', ONBO« (im C 128-Modus). Nachdem sich der Compu- 
ter mit "READY. « gemeldet hat, konnen Sie beginnen, das 
C 64-Programm zu editieren. Nach vollstandiger Eingabe 
des Programms geben Sie folgende Befehlssequenz im Di- 
rektmodus(!) ein: BANK 15: SYS DEC (»1300«). Der Compu- 
ter schaltet sich in den 64er-Modus und listet Ihr Programm 
zur Kontrolle noch einmal auf. Wollen Sie jedoch, daB Ihr 
Programm sofort gestartet wird, andern Sie die Bytes ab 
Adresse 1380 wie folgt: 1380: A9 52 A2 75 A0 0D 8D 77 41. 

(M. Papke/ef) 



Name 


tipphilfe 1300 13al 


1300 


a9 f 7 8d 05 d5 a2 f f 78 


Oc 


1308 


9a d8 e8 8e 16 dO 20 a3 


ca 


1310 


fd 20 50 fd 20 15 fd a9 


e7 


1318 


03 85 9a a9 00 85 99 20 


8c 


1320 


5b ff 20 02 fd 20 lb e5 


dc 


1328 


20 53 e4 20 bf e3 20 22 


Of 


1330 


e4 78 a9 e0 85 01 aO 00 


ba 


1338 


b9 46 13 99 3c 03 c8 cO 


8d 


1340 


60 90 f5 4c 3c 03 a2 00 


56 


1348 


8a a8 a9 01 85 f7 a9 lc 


a8 


1350 


85 f8 a9 01 85 f9 a9 08 


bb 


1358 


85 fa bl f7 91 f9 c8 dO 


73 


1360 


f9 aO 00 e6 f 8 e6 fa e8 


Ob 


1368 


eO dc 90 ee a9 e7 85 01 


aa 


1370 


a9 08 8d 02 08 20 33 a5 


5b 


1378 


a5 22 a6 23 85 2d 86 2e 


75 


1380 


a9 52 a2 75 aO Od 8d 77 


41 


1388 


02 8e 78 02 8c 79 02 a9 


20 


1390 


03 85 c6 a2 81 6c 00 03 


dd 


1398 


60 00 00 00 00 00 00 00 


f9 


13a0 


00 20 d2 f f ee 52 15 ad 


96 


Listin 


g 28. "TIPPHILFE". Geben Sie C 64-Programme im 


C128 


-Modus ein. 





35. Basic 2.0 Checksummer 



In Tip 34 haben wir bereits eine Eingabehilfe fur C 64-Ba- 
sic-Programmever6ffentlicht. Die Erweiterung brachteden 
Vorteil mit sich, daB Basic 2,0-Programme rnitden komfor- 
tablen Program mierhilfen des Basic 7.0 eingegeben wer- 
den konnten. Ein Abtippen mit dem Checksummer schied 



bisher alierdings aus. Abhilfe schafft hier der Checksum- 
mer C 64-C 128 (Listing 29), der (fur Basic 2.0-Befehle) die 
gleichen Prufsummen benutzt wie das C 64-Aquivalent. 
Somit geben Sie nun Ihre C 64-Listings unter der gewohn- 
ten Checksummer-Umgebung, aber mit den leistungsfahi- 
gen Hilfen des Basic 7.0 im C 128-Modus ein. 
Eingabehinweise: Tippen Sie Listing 29 mit dem MSE im 
C 64-Modus ab. Nach dem Ladevorgang mit BLOAD im C 
128-Modus aktivieren Sie den Checksummer C 64-C 128 
mit SYS DEC("C03"). Em Start mit BOOT ist nichtmoglich. 

(D. Astrath/ef) 



Name . 


checksummer 128 0e03 0c89 


0o03 : 


a9 0c 8d 02 03 8d 03 03 


05 


OcOb : 


60 38 a5 61 e9 02 85 61 


a4 


0cl3 : 


b0 02 c6 62 a9 3f 8d 00 


8d 


Oclb : 


ff a9 00 a8 aa 85 fe bl 


3a 


0c23 : 


61 fO 28 c9 20 dO 03 c8 


66 


0e2b : 


dO f5 85 ff 8a 29 07 aa 


ba 


0c33 : 


fO Oe 48 a5 ff 18 2a 69 


2d 


0c3b 


00 ca dO f9 85 ff 68 aa 


63 


0e43 . 


e8 a5 ff 18 65 fe 85 fe 


63 


0c4b 


18 90 dc oO 02 30 db a9 


5f 


0e53 


00 8d 00 f f c6 eb a5 eb 


54 


0c5b 


48 20 7d ff 12 13 3c 00 


bd 


Oc63 


a6 fe a9 00 20 32 8e 20 


01 


0c6b 


7d ff 3e lb 51 Od 00 68 


29 


0c73 


85 eb a9 8d 20 d2 ff 18 


d3 


0c7b 


a5 61 69 02 85 61 90 02 


15 


Oc83 


e6 62 4c c6 4d 31 30 30 


06 


Listing 29. "CHECK C 64-C 128« 


hilft bei der Eingabe von 


Basic 


■Listings fur den C 64. 





36. C 64 oder CI 28 



Mir ist aufgefallen, daB im C 64-Modus des C1 28, im Gegen- 
satzzum »echten C64-, das Bit 6 des Prozessorports (Spel- 
cherstelle »1«) immer gesetzt ist. Dadurch ergibt sich eine 
einfache Abfrage, die den C 64 vom C 128 im C 64-Modus 
unterscheidet. Eineentsprechende Routine konnte etwaso 
aussehen: 

10 POKE 1, PEEK(l) AND 255-64 

11 REM BIT 6 ZORUECKSETZEN 

20 A=PEEK{1) AND 64 

21 REM BIT 6 TESTEN 
25 : 

30 IF A=0 THEN PRINT "RICHTIGER C 64": END 
40 PRINT "C 128 IM C 64-MODUS" 

Nun kann ein eigenes Programm den Computertyp fest- 
stellen, urn gegebenenfatls im C 64-Modus zwischen ein 
und zwei Megahertz Taktfrequenz hin- und herzuschalten. 
Der neue C 128D im Blechgehause ist von diesem Phano- 
men ubrigens genauso wie seine Vorganger betroffen. 

(H. Stocktein/ef) 

37. C128glei(hC64??? 

Doch wiesovieleDingeauf dieserWelt haben einfache L6- 
sungen oft einen Haken: 

Wenn bei einem C 128 die Taste ASCII/DIN gedruckt ist, 
wird Bit 6 des Prozessor-Ports gelbscht. In diesem Fall be- 
sitzt die Speicherzelle »1« eines C 128 im C 64-Modus exakt 
den gleichen Wert wie die eines »echten C 64«. Daher ist die 
Abfrage des Cornputer-Typs durch dieses Register nur im 
ASCII-Modus sicher. 

(M. Hensel/ef) 
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38. Benutzung der Zusatztasten 
im C 64 -Modus 



Die Benutzung der Zusatztasten (10er-Block usw.) ist auch 
im C 64-Modus moglich. Man ladteinfach (im C 64-Modus) 
das Programm »ZUSATZTASTEN« (Listing 30) mit: 

LOAD " ZUSATZTASTEN " , 8 < RETURN > 

und startet es mit RUN. Naeh zirka drei Sekunden meldet 
sich der Computer wieder mit READY. Nun sind die zusatz- 
lichen Tasten »aktiviert« (siehe Tabelle 3). 



10 AN=828=REM ANFANGSADRE5SE 


<153> 


20 FOE I 


=0 TO 188= READ BsPOKE AN+I.B^NEXT 




I 




<234> 


30 POKE 


AN+157,FEEXC788) =POKE AN+158,PEEK( 




709 >: 


REM NORMALER IRQ 


<050> 


40 HI=INT< <AN+165>/256) :L0=<AN-H65>-25G*HI 


<139> 


50 POKE 


AN+147,LO:POKI AN+148,HI:REM ANFAN 




G ASCII TABELLE 


<000> 


60 POKE 


5 6 334, PEEK (5633 4) AND 254: REM isq a 




US 




<12S> 


70 HI=INT( AN/256 ):LO-AN-256*HI 


<134> 


80 POKE 


788.LO--POKE 789, HI: REM NEUEE IRQ 


<236> 


90 POKE 


56334, PEEK(56334)OR 1=REM IRQ VIED 




EB AN 




<106> 


100 END 




<102> 


110 DATA 


120,165,198,201,10. 240 ,27,169,255 




,141 


,0,220,173,47,208 


<112> 


120 DATA 


41,248,141,47,208,172,1,220,9,7,1 




41.47,208,192,255 


<143> 


130 DATA 


240,127,208.2,240.120,160,0,173.4 




7,208,41,254.141,47 


<185> 


140 DATA 


208 , 174 . 1 , 220 . 9 , 7 , 141 , 47 , 208 , 138 , 




201, 


255,208,46,160 


<209> 


150 DATA 


8 , 1 73 , 47 , 208 , 41 , 253 ,141,47, 208 , 1 7 




4,1 , 


220,9,7,141 


<205> 


160 DATA 


47,208,138,201 ,255,208,23,160,16, 




173, 


17,208,41,251,141 


<085> 


170 DATA 


47,208,174,1,220,9.7,141,47.208,1 




33,201,255,240,54 


<064> 


180 DATA 


201.254,240,31 ,200,201 ,253,240,26 




,200 


201,251,240,21,200 


<081> 


190 DATA 


201 .247 . 240, 16 ,200 .201 , 239 , 240 , 1 1 




,200 


201,223,240,6,200 


<072> 


200 DATA 


201,191,240,1.200,196,2,240,12,13 




2,2. 


185,225,3,164 


<240> 


210 DATA 


198.153,119,2. 230 ,196,76,49, 234 , 1 




69,255,133,2,208,247 


<064> 


220 DATA 


022: REM HELP. 


<174> 


230 DATA 


056: REM 8 


<027> 


240 DATA 


053: REM 5 


<194> 


250 DATA 


023= REM TAB 


<070> 


260 DATA 


050: REM 2 


<117> 


270 DATA 


052: REM 4 


<193> 


280 DATA 


055= REM 7 


<046> 


290 DATA 


049: REM l 


<163> 


300 DATA 


027= REM ESC 


<019> 


310 DATA 


043= REM + 


<240> 


320 DATA 


045: REM - 


<060> 


330 DATA 


017:REM LINE FEED 


<233> 


340 DATA 


013:EEM ENTER 


<052> 


350 DATA 


054= REM 6 


<083> 


360 DATA 


057:EEM 9 


<192> 


370 DATA 


051: REM 3 


<004> 


380 DATA 


024: REM ALT 


<053> 


390 DATA 


048: REM 


<230> 


400 DATA 


046:EEM . 


<173> 


410 DATA 


145= REM CRSR UP 


<150> 


420 DATA 


01 7: REM CRSR DOBN 


<114> 


430 DATA 


157 '-REM CRSR LEFT 


<184> 


440 DATA 


029: REM CRSR RIGHT 


<069> 


450 DATA 


02 5: REM NO SCROLL 


<011> 




rrm 



Die ASCII-Codes der Tasten HELP, TAB, ALT und NO 
SCROLL habe ich ausgewahlt, da diese Codes beim C 64 
keine besonderen Aufgaben haben und somit gut in eige- 
nen Programmen abgefragt werden konnen. Beispiel: 

GET A$ : IF A$ = CHR$(22) THEN. . .: REM HELP 



Taste 


ASCII-Code 





48 


1 


49 


2 


50 


3 


51 


4 


52 


5 


53 


6 


Ot" 


7 


55 


8 


56 


9 


57 




46 


+ 


43 


— 


45 


HELP 


22 


TAB 


23 


ALT 


24 


ESC 


27 


LINE FEED 


17 


ENTER 


13 


CRSR UP 


145 


CRSR DOWN 


17 


CRSR LEFT 


157 


CRSR RIGHT 


29 


NO SCROLL 


25 



Tabelle 3. Zuordnung von ASCl-Codes zu den 
Zusatztasten 



Die Tastenbelegungkannjedoch auch geandert werden. 
Dazu muB man nur die DATA-Werte in den Zeilen 220 bis 

450 entsprechend andern. 

Das Programm belegt normalerweise den Kassettenpuf- 
fer, was jedoch bei Verwendung der Datasette ungunstig 
ist. Durch Andern des Wertes in Zeile 10 kann das Pro- 
gramm auch an jeden anderen Platz »gelegt« werden. (Es 
belegt 189 Byte.) 
Prog rammbeschrei bung 

Wollen wir verstehen, wie das Programm funktioniert, 
mtissen wir uns auch daftir interessieren, wie normalerwei- 
se die Tasten abgefragt werden. Diese sind in Zeilen und 
Spalten aufgeteilt (Tabelle 4). Will man nun wissen, ob eine 
bestimmte Taste gedruckt ist, dann muB man durch L6- 
schen des entsprechenden Bits in $DC0O (56320) die Zeile 



Listing 30. Flexible Tastaturbelegung mit "ZUSATZ- 
TASTEN". Eingabe erfolgt mit dem Checksummer 64. 



SDC01 (56321) 




BIT 





1 


2 


3 


4 


5 


6 


7 







DEL 


RET 


CRSR- 


F7 


F1 


F3 


F5 


CRSR I 


5 
D 


1 


3 


W 


A 


4 


Z 


S 


E 


SHIFT 
links 


C 
O 


2 


5 


R 


D 


6 


c 


F 


T 


X 


O 


3 


7 


V 


G 


8 


B 


H 


U 


V 


( 


4 


9 


I 


J 





M 


K 


O 


N 


5 
6 
3 
2 


5 


+ 


P 


L 


- 









, 


e 


£ 


* 


; 


HOME 


SHIFT 
rechts 


■ 


< 


/ 



) 


7 


1 


— 


CTRL 


2 


LEER- 
TASTE 


G= 


Q 


RUN- 
STOP 



Tabelle 4. Die Tastaturabfragematnx 
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auswahlen, in dersich die Taste befindet. Fur jedegedriick- 
te Taste dieser Zeile wird nun das entsprechende Bit in 
$DC01 (56321) ebenfalls auf Null gesetzt. (Zu beaehten ist, 
daB immer nur 1 Bit in $DC0O geloscht sein darf, da man 
sonst nicht erkennen kann, in welcher Zeile sich die Taste 
befindet!) 

Die Abfrage der »zusatzlichen« Tasten funktioniert im 
Grunde genauso. Diese sind namlich auch in Zeilen und 
Spalten aufgeteilt (Tabelle 5). Die Zeilenauswahl wird hier 
jedoch durch die Bits bis 2 von $D02F (53295) vorgenom- 
men. Ist eine Taste gedriickt, wird wieder das entsprechen- 



SDC01 (56321) 






BIT 





1 


2 


3 4 


5 


6 


7 


* 


( 

5 - 
3 
2 
9 

c 
) 





HELP 


B 


5 


TAB 2 


4 


7 


1 


2 

r 


1 


ESC 


+ 


— 


LINE ENTER 
FEED 


6 


9 


3 




2 


ALT 







CRSRl CRSRl CRSR- 


-CRSR- 


NO. 
SCR. 



Tabelle 5. Die Tastaturmatrix der zusatzlichen Tasten 

de Bit in $DC01 geldscht. Mochte man also eine der »zu- 
satzlichen« Tasten abfragen, muB man darauf achten, da8 
alle Bits von $DC00 auf 1 gesetzt sind, da sonst das 
Drucken einer »normalen« Taste auch ein Bit in $DC01 16- 
schen konnte! (Das gleiche gilt umgekehrt auch fur die Ab- 
frage der »normalen« Tasten!) 

Das Programm ZUSATZTASTEN funktioniert nun auf fol- 
gende Weise: Es wird ein Maschinenprogramm generiert 
(Zeile 10 bis 50 und DATA-Zeilen), das in den Interrupt »ein- 
gebaut« wird (Zeile 60 bis 90). Dieses Programm fragt nun 
zirka 60mai in der Sekunde die »zusatzlichen« Tasten ab 
und schreibt deren ASCII-Code in den Tastaturpuffer. Die 
ASCII-Codes beflnden sich in einer Tabelle am Ende des 
Programms und konnen, wieschon erwahnt, geandert wer- 
den. (J. H. Schulz/ef) 

39. CI 28 und Final Cartridge 

Kiirzlich machte ich eine Entdeckung mit dem Modul Final 
Cartridge, die m einer Meinung nach auch andere C 128- 
Besitzer interessieren durfte. Sie betrifft das Betreiben der 
Final Cartridge zusammen mit einem C 128. 

Laut mitgelieferter Anleitung ist es nicht mdglich, wah- 
rend das Modul im Expansion-Port steckt, in den C 128- 
oder den CP/M-Modus zu schalten, Doch nichts (fast 
nichts) ist unmoglich. Mit dem folgenden kleinen Trick 
schafft man auch dies: 

1 . Nach dem Einschalten des Computers befindet man sich 
im Desktop der Final Cartridge. 

2. Mit dem Befehl Final Kill aus dem Desktop verlaBt man 
dieses und kommt in den C-64-Modus. 

3. Nun betatigt man nur noch die Reset-Taste des C 128 und 
man landet im C-128-Modus und kann dessen Software la- 
den oder CP/M booten. Dieser Trick durfte die relativ emp- 
findliche Steckverbindung am Expansion-Port erhebiich 
schonen. (Reto Meyer/ef) 

40. Zehnerbloik des C 128 fur 
Btx nutzen 



Mit einem kleinen Trick Ia8t sich der Zehnerblock des 
C 128 fur den Betrieb mit dem Commodore Btx-Modul II 
nutzen. Ich habedafur das Listing »10er-tast« aus dem Son- 



derheft 10 (das zweite Sonderheft fiir den C 128) benutzt. 
Vorgangsweise: 

Nach dem Abtippen des kleinen Hilfsprogramms 10er- 
tast wird mit dem Maschinensprache-Monitordes C 128 ein 
jmp $1003 an das Programm angehangt. Das Ganze spei- 
chern Sie nun durch — S "BTX-EXTRA.MAS",8,c000,c08c 
— auf einer Diskette. Wenn man jetzt bei bereits einge- 
schalteter Floppy und angeschlossenem Btx-Modul II den 
Computer bei gedriickter CTRL-Taste einschattet, so wird 
automatisch das Hilfsprogramm geladen und nach dem 
Loslassen der CTRL-Taste gestartet. 

Die Eingabe einzelner Btx-Seiten Oder die Auswahl in- 
nerhalb von Anbietermenus gestaltet sich jetzt wesentlich 
einfacher und schneller. (Rainer Dahlhaus/ef) 



41.SSHAPEkonigiert 



Nach stundenlanger Fehlersuche in einem eigentlich kor- 
rekten Programm ist mir ein Fehler im Basic-ROM des 
C 128 aufgefallen, der, so meine ich, auch fiir andere 
C 128-Besitzer interessant sein kann. Dieser Fehler befin- 
det sich in der Routine des SSHAPE-Befehls. Wenn man 
diesen Befehl verwendet, werden die Speicherstellen 
$1135 bis $ 1138 in die darunterliegenden Speicherstellen 
$1131 bis$1134kopiert. Dies geschieht jedoch nicht, wiees 
richtig ware, in der Speicherbank 0, sondern in der Spei- 
cherbank 1 ! DaB dies unangenehme Folgen auf eine an die- 
ser Stelle gespeicherte Variable hat, durfte wohl klar sein. 
Urn das zu vermeiden, sollte man am Anfang eines Pro- 
gramms, in dem man den SSHAPE-Befehl verwendet, mit 

POKE 47,53= P0KE48,17: CLR 

den Variablenanfang auf $1135 hochsetzen. Dam it geht 
zwar der B ere ich von $0400 bis $1130 fiir Variablen verlo- 
ren, aber es wird sich sicherlich eine Verwendung fiir 3376 
Byte Speicherplatz finden lassen.(Jan Hendrik Schulz/ef) 



42. Pretext leidit gemacht 



Mein Tip bezieht sich auf das von Markt & Technik angebo- 
tene Textverarbeitungsprogramm »Protext«. Bei der Text- 
ausgabe durch <ESC> <S> wird bei gedriickter 40/80- 
Taste (also 80 Zeichen) der linke Teil des Textes auf dem 
Bildschirm angezeigt. Ist aber der 40-Zeichen-Modus ein- 
geschaltet, so wird der rechte Teil des Textes, der sonst 
nicht sichtbar ist, auf dem Bildschirm angezeigt. Dieses 
steht nicht im Handbuch, ist aber sehr nutzlich, wenn man 
den 120-Zeichen-pro-Zeile-Modus benutzt. Noch etwas In- 
teressantes ist mir aufgefallen: Sollten Sie vor dem Laden 
vergessen haben die DIN-Tastatur einzustellen, miissen 
Sie Protext nicht neu laden. Die Funktionen, die sonst mit 
<Commodore> aufgerufen werden, konnen nun ohneje- 
de Einschrankung iiber <Control> benutzt werden. Be- 
sonders fiir die 1541-Besitzer bedeutet dies eine deutliche 
Zeitersparnis. (C. Prenzel/ef) 



43. Neuer Ton fiir < Control G> 



Geben Sie im Direktmodus folgende Zeile ein: 
S0UND1, 10000 , 10000 : VOL 

Danach drucken Sie einmal die Tasten »Control+G«. Der 
Ton hat sich verandert. Sie kdnnen selbstverstandlich auch 
jede andere Frequenz nehmen, um den Ton zu verandern. 

(H. Prang/of) 
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44. SMON und der Blechdiesel 



Beim SMON funktioniert auf dem neuen C 128D (Blech) der 
Trace-Modus nicht. Das System-Timing stimmt offensicht- 
lich nicht, der Processor wird in seiner Rechenzeit vermut- 
lich durch bestimmte Peripherie-Bausteineeingeschrankt. 
Vielieichtsind bei dem 8502-Mikroprozessortatsachlich ei- 
nige Befehle um einen Taktzyklus langer. 

2ur Korrektur: An der Adresse $CD8D findet sich bei den 
verschiedenen SMON $C000-Versionen (bei anderer Start- 
adresse an entsprechender Stelle) der Befehl »LDA #$47«. 
Wird dieser auf »LDA #$48« (ggf. #$49) geandert, so lauft 
der Trace-Modus wieder. Der geanderte SMON lauft natiir- 
lich auch auf einem normalen C 64. 

Ubrigens: Das Register 48 des VIC-Chip (Adresse 
$d030) dient nicht nur zum Umschalten zwischen 1 MHz 
und 2 MHz Taktfrequenz. Durch Setzen von Bit 1 wird der 
Bildschirm vollig abgeschaltet. Durch welche Adresse al- 
lerdings die Farbe nach dem Abschalten bestimmt wird, 
konnte ich noch nicht klaren. lm Normalfall ist es grau. Wird 
das Bitim C 128-Modusgesetzt, so stiirzt der Computer ab. 

(T. Lang/ef) 



45. NIQ-Schrift fur Startexfer 128 
mil dem Citizen 120D 



im Sonderheft 22 wurde eine Erweiterung des Startexter 
128 vorgestellt, die es erlaubt, den gesamten Zeichensatz 
im verbesserten Grafikdruck zu Papier zu bringen. Leider 
ist dieser Ausdruck mit dem Citizen 120D mit Original- 
Interface nicht moglieh, da dieser Drucker das Steuerzei- 
chen fur » Backspace" ($08) als Commodore-Code fur »bit 
Image* interpreted. Durch Zufall konnte ichjedochfeststel- 
ien, da8 -Backspace* durch ESC CHR$(8) zu erreichen ist 
(steht nicht im Handbuch). 

Nun kann man die Datei »C0« auf einer Sicherungskopie 
folgendermaBen anpassen: File »C0« mit BLOAD laden 
und den Monitor aktivieren. Folgende Stellen andern: 

A00DC9LDA #$1B 
A OODCB JSR $0ED0 

A 00ED0 JSR $AB01 
A00ED3 LDA #$08 
A 00ED5 JMP $AB01 

Nun speichern Sie diese Datei nur noch mit folgenden 
zwei Befehlen auf Ihre Sicherungskopie: 
@, S:C0 
S*CO%8,COQ,ED8 

(Hi Wiesler/ef) 



46. Das zweite Betriebssystem im C 128 



in den C 128passen keine Umschaltplatinen fiirweitere Be- 
triebssysteme des C 64-Modus. Deshalb habe ich eine ein- 
fache Losung gefunden, mit der sich einfach (ohne Be- 
schadigung des Abschirmblechs) zwei Betriebssysteme 
(zum Beispiel Original-Kerne! und Exos) in ein 27256 bren- 
nen und in den Computer (nicht C 128 Blech!) einbauen las- 
sen. Dabei gent man folgendermaBen vor: Beachten Sie, 
da6 bei den C 128 der Basic-Interpreter und das Betriebssy- 
stem in einem Baustein vereint sind. Daher muB man den 
Interpreter mit in das EPROM brennen. 

Man ladt also einen Monitor (SMON) nach $C000 und 
startet diesen mit SYS 49152. Nun verschiebt man den In- 



terpreter mit W A000 C000 1000 und W A000 C000 5000. 
Der Interpreter wird fur das normale und fur das Betriebssy- 
stem gebraucht und deshalb zweimal verschoben. Danach 
wird das CBM-Kernel mit WE000 FFFF 3000 nach $3000 
verschoben und die Adresse $4FFF mit dem Wert $FF gela- 
den. Das ist nbtig, weil der Smon das letzte Byte nicht mit 
verschiebt und den Befehl W EOOO 0000 3000 nicht akzep- 
tiert. Also M 4FFF eingeben und das erste Byte in FF an- 
dern. Nun wird das externe Betriebssystem nach $7000 ge- 
laden und zwar mit L" Filename "7000. 

Nun steht das brennfertige Programm von $1000 bis 
$9000 im Speicher und kann mit S" Filename "1000 9000 
auf Diskette gespeichert Oder direkt in ein EPROM 27256 
gebrannt werden. Ist das EPROM gebrannt, kann man 
schon mal den Lotkolben einschalten. Nehmen Sie das 
EPROM in die Hand und biegen Pin 27 (am besten mit einer 
Spitzzange) vorsichtig um 90 Grad nach oben. Dieser Pin 
darf spater nicht mit in die Fassung gesteckt werden! 

Nun verzinnt man Pin 1, Pin 14 und Pin 27 mittels Lotkol- 
ben und Lotzinn. Dies sollte moglichst schnell geschehen, 
umdas EPROM nicht zu beschadigen (Lotkolben muB rich- 
tig heiB sein). Jetzt wird ein 10-Kfi-Widerstand (siehe Bild 1) 




Blld 1. Die einfachste Betriebssystem-Umschaltung fur 
den C 64-Modus des C128 

an Pin 27 und Pin 1 und der Schalter mittels zweipoliger 
Flachbandleitung an Pin 14 und Pin 27gelotet. Ist diese Ar- 
beit abgeschlossen, kann man das EPROM gegen das Ori- 
ginal-Kernel austauschen (auf Kerbe achten) und zwischen 
den beiden Betriebssystemen mittels Schalter wahlen. 

Die Funktion der Schaltung ist einfach erklart: Das 
Original-ROM ist bis auf Pin 27 Pin-kompatibel zu dem 
EPROM 27256. An Pin 27 des EPROM befindet sich AdreB- 
leitung A14. Am Kernel-ROM jedoch ist dieses Pin ohne 
Funktion und liegt auf +5 Volt. Daher lassen sich am 
EPROM-Pin A14 die oberen Oder die unteren 16 KByte aus- 
wahlen. Der 10-Kfi-Widerstand dient dazu, daB Pin 27 bei 
offenem Schalter auf High-Pegel liegt. Bei geschlossenem 
Schalter liegt Pin 27 auf Q Volt. (J. Woethe/ef) 



47. Thirty-Seconds und der Blechdiesel 

Damit auch die Besitzer eines C 128 D Blech das Backup- 
Programm Thirty-Seconds (Sonderheft 15, S. 96) nutzen 
konnen, sind einige Veranderungen vorzunehmen. 

Da es sich nur um wenige Pokes handelt, konnen sie ent- 
weder im Dtrektmodus oder einfacher mit Hilfe eines klei- 
nen Prog ram ms eingegeben werden: 
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10 keyl,"polte 9739,106:poke 9&43,l42:poke 9919,130: 
poke 9928,142: poke 10116 ,130: poke 11145,130: 
poke 11249, 142 "+chr${ 13) 

Laden Oder tipper Sie dieses Programm in den Rechner 
und starten Sie es mit RUN. AnschlieBend laden Sie thirty- 
seconds, driicken die Funktionstaste <F1 > undspeichern 
das Programm mit 
dsave "thirty seconds 2" 

(Frank Wurche/ef) 



48. Ladeprogramm ffiir 
Interiace-Funktionen 



Besitzer eines C 128 D Blech kdnnen nun mit Hilfe weniger 
Anderungen das Interlace-Programm aus dem Sonderheft 
29 nutzen. Dazu ersetzen Sie zunachst im Ladeprogramm 
in Zeile 180 den alten Wert (08192) fur die Adresse durch 
4096, AnschlieBend Idschen Sie Zeile 540 und erganzen 
das Programm urn die in Listing 31 dargestellen Zeilen. 

Speichern Sie nun den geanderten Lader unter dem Na- 
men "INT.FKTN.LADER". 

Im Hauptprogramm F(X).MAIN ist lediglich in Zeile 3410 



540 POKE 246,255 <PK<7> 

55* PfUNT CHR*<27>+' , L" : CHflfi 1 ,30,20, " CBREEfOJEVE 
RSED BY THE SREAT Z. £. (S4SPftCE) " : CHAR 1,24,1 
2i PRINT * ";! SLEEP 2l FAST <DSB> 

34* FOR 1=17 TO 75! WINDOW 1,0,1,201 CHAR 1,0,20: 

FOR J=l TO 20! ! PRINT I NEXT J, I <FP8> 

570 SLEEP 2: WINDOW 0,0,79,24: SCNCLR I CLR I PQK 

E 246,1 1 SLOW <7CC> 

see olobc -fix). main" <mik> 

Listing 31. Diese Zeilen erganzen das alte 
Ladeprogramm 



RUN "INTERLACE.FKTN" durch RUN "INT.FKTN.LA- 
DER " zu ersetzen. Speichern Sie das Hauptprogramm auf 
derselben Diskette, auf der sich der neue Lader befindet. 

(Clemens Thiele/ef) 



49. HiRes-Hardcopy-Routine 



Als Besitzer eines C 128 war ich schon lange auf der Suche 
nach einer geeigneten Hardcopy-Routine im Hi Res- 
Modus. Mit groBer Freude habe ich deshalb die Routine 
aus Sonderheft 29, Seite 131, in mein Zeichen programm, 
mit dem ich Schaltplane erstelle, eingebaut. Leiderwarder 
Ausdruck nicht so gut, wie ich es erhofft hatte, da uberfliis- 
sige senkrechte Striche das Bild uniibersichtlich gestalte- 
ten. Zudem fehlte bei mir jeder achte Pixelpunkt im Aus- 
druck, was sich im Fehlen ganzer Linien auswirken konnte. 
Nach langerem Uberlegen habe ich nun eine Lbsung (Li- 
sting 32) gefunden, die auch andere C128-Besitzer be- 
stimmt interessieren wird. {Peter Burgbacher/ef) 



L00 OPEN 1,4: FAST 






<OL«> 


lie FOR T=316 TO STEO -B 






•; IH3> 


120 SSHAPE B*,T,»,T+4,179 






<TVS> 


130 SSHAPE C*,T+3,0,T+B,199 






<RTB> 


140 DRAW l,T,e TO T,199 






<SNK> 


150 SSHAPE A*,T,0,T+7,199 






<BSK> 


160 R*=LEFT*(«#,200) 






<FOG> 


176 PHINT»1,CHR*<8)+A* 






<0tJ> 


160 SSHAPE B*,T,0t SSHAPE C*,T+3,0 






;jon> 


190 T-T+l 






<f9F> 


209 NEXT 






<1S0> 


2*0 PRINT* 1,CHR*( 13) 






<URN> 


220 SLOW 1 CLOSE 1 






CFCL> 


Listing 32. Die Hardcopy-Routine bringt 


alles 


gut 


ZU 


Papier 









Von Unidat Pro zu 
Mastertext 

Mastertext und Unidat Pro gehoren zu den Rennern unter der Software fur den C 128. 

Mit diesem kurzen Listing ist es endiich moglich, 

Unidat-Dateien fur Sertenbriefe mit Mastertext zu nutzen. 




astertext ist ein uberaus leistungsfahigesTextverar- 
beitungsprogramm fur den C 128. Im Sonderheft 29 
I stellten wir Ihnen die Version 2.0 vor, die sogar eine 
Rechtschreibprufung (Speller) bietet. Im gleichen Heft ver- 
offentlichten wir Unidat Pro, eine Dateiverwattung mit riesi- 
gem Komfort. 

Eine der zahlreichen Vorzuge von Mastertext ist das Er- 
stellen von Serienbriefen. Der Anwender nutzt dabei beste- 
hende Daten, zum Beispiel aus einer AdreBdatei, und fugt 
diese in einen Standard brief ein. Der Vorteil dabei ist, daB 
ein Rundbrief nur einmal getippt wird, die zugehorigen 
Adressen (oder andere variable Daten) automatisch einge- 
fiigt werden. 

Unidat Pro verfugt zwar uber eine Funktion namens 
»Daten-Export«. Bei dieser werden gespeicherte Daten in 
eine sogenannte Exportdatei abgelegt. Es war bisher je- 
doch nicht mdglich, Daten aus dieser Exportdatei fur die Er- 
stellung eines Serien briefs zu nutzen. Das wird erst mit 
»Unidat Ex. Change« (Listing 1) erreicht. 



Geben Sie das Listing 1 bitte mitdemChecksummer 128 
ein und speichern es auf Diskette. 
Nach dem Laden und Starten des Basic-Program ms mit 

RUN "UNIDAT EX. CHANGE" 

fordert Sie das Programm auf, eine Diskette mit Unidat-Ex- 
port-Dateien in das Laufwerk zu legen, Ist dies geschehen, 
driicken Sie bitte <SPACE>. Findet das Programm auf 
der eingelegten Diskette Dateien mit der Endung ».exp« 
(Kennung fur die Unidat-Export-Dateien), werden diese 
rechts am Blldschirm aufgelistet. Auf der eingelegten Dis- 
kette sollten mindestens noch so viele Bldcke frei sein, daB 
die zu konvertierende ».exp«-Datei noch einmal gepeichert 
werden kann. Nach einem erneuten Driicken der SPACE- 
Taste erscheint die Frage »Export-Datei ?« und ein blinken- 
der Cursor. 

Geben Sie nun den Namen der Datei ein, die Sie in das 
Mastertextformat wandeln wollen. Bei der Eingabe ist die 
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Endung ».exp« nicht mit einzutippen. AnsehlieBend ist der 
Name einzugeben, unter dem die gewandelte Datei auf 
Diskette gespeichert werden soil. Diese kann den Namen 
der Quelldatei tragen. ist dies geschehen, beginnt die 
Wandlung; Sie erkennen dies daran, daB die Daten der Rei- 
he nach in der linken Bildschirmhalfte erscheinen. Ist das 
Ende der Datei erreicht, springt das Programm zum Basic 
zuriick, »READY.« und ein blinkender Cursor erscheinen 
auf dem Bildschirm. 

Die konvertierte Datei ist nun auf der Diskette unter dem 
von Ihnen eingegebenen Namen, die Endung »R« ftigt das 
Programm an diesen an, (Damian Plaza/rs) 



Tips zu Unidat Pro 



In der Anleitung zu Unidat stent, da8 die Masken 255 Byte lang sein 
dQrfen. Das ist nicht korrekt, die maximale Langs betragt 254 Byte, 
Bei der Eingabe von rnehrals254 Datensatzen wunderten sich die An- 
wender, die die Version aus dem Sonderheft 29 besitzen, da8 die Sat- 
ze uber dieser Grenze nicht gefunden wurden. Mit folgender Ande- 
rung ist dies behoben: 

1. Programm laden mit 
DLOAD "UNIDAT PRO II. V" 

2. Im Direktmodus eingeben: 

POKE 11327,174: POKE 11330,240: POKE 11331,1: 
POKE 11332,202:POKE 11333,236 < RETURN > 

3. Ebenfalls Im Direktmodus eingeben: 
RENAME "UNIDAT PRO I IV" TO "UNIDAT ALT" 

4. Und schlieSlich speichem: 
DSAVE "UNIDAT PRO II.V* 

Danach liegt die neue Version auf Diskette vor. Sollten Sie einen Feh- 
ler bei der Eingabe gemacht ttaben, besitzen Sie sicherhettshalber 
noch eine Sicherheitskopie unter den Bezeichnung < UNIDAT ALT>. 



19 IF RWINDOW<2)-B© SOTO 39 

20 PRINT "{OOWN,RISHT>AUF B0-ZE1CHEN 5CHIRM UMSCH 
ALTEN"! BLEEP It PRINT CHR* (27) "X" CHR*<27>"M" 

30 POKE 0,P£EKt0> OR 64: POKE I,PEEK<1) AND 191 ! 

PRINT CHR*<14> 
49 COLOR 6,7: COLOR 5,2: SCNCLR : POST 
30 WINDOW 0,0,59,24,1: PRINT "001E,RVSON>.aiSKETT 

EMIT SlNIDAT-£XPORT-SATEKEN> EINLEGENtRVDFF>" 

: SOSUB 260 
69 WINDOW 91 ,9, 79,21,1s COLOR 5,6: DIRECTORY "?77 

?????■?■?'??. EXP": BOSUB 278: BOSUB 26©: IF FE-1 

THEN RUN 
TO WINDOW 0,0,50,24, t; COLOR 5,2: INPUT "<DDWN,2R 

IBHT>£XPORT-flftTEl ")EX»: EX=LEN(EX*): IFEX>12 
OR EX#= U " THEN GOTO 79 
89 Nl*-eX*+"(13SPACE}*l Nl*-MID*(Nli,l ,12)+". EXP" 

: DOPEN *1,""+N1*+"": BOSUB 279: IF FE-1 THEN 

DOLOSE #1: SOTO 78 
99 WINDOW 8,9,59,24,9: COLOR 5,2; CHftR 1,17,4,""+ 

EX**"": INPUT "OHOME,4DOWN,2RieHT)i»STER-^lTEI 
■;RU*: RU»LEN<RU«) : IF RU>15 OR RU*="" THEN E 

OTD 99 
199 NZr-RU*+"-;l6SPACE>■'^ N2*~niD* IN2S, 1 ,15! *"R" : 
DOPEN *2,""+N2*+"",W: BOSUB 279; IF FE-I THEN 
□CLOSE #2: DOLOSE #1: BOSUB 269: RUN 

119 WINDOW 9,12,79,24,1; COLOR S,B 

120 BET t»l,B»: OS-"": IF B*="" THEN B*-CHR*(9» 
139 IF ST=-64 THEN BOTO 240 

149 PRINT B*;: 

159 B-ASCCB*) 

160 IF B=1B7 THEN 8-91 
J 70 IF B-188 THEN B-92 
1B9 IF 6-109 THEN B-93 
190 IF B-190 THEN B-94 
290 IF B-219 THEN B-123 
210 IF B=220 THEN B-124 
220 IF B-221 THEN B-125 

230 C*=CHR*(B) ; PRINT»2,C*;: SOTO 120 

240 PRINT#2,"e" ,CHft*(13) ; DCLOBE »2: DOLOSE Kl 

250 POKE I, PEEK <1) OR 64: COLOR 6,1: COLOR 5,4: W 

INDOW 0,9,79,24: SCNCLR : PRINT CHR*(142): EN 

D 
260 A*-"": DO WHILE A*- 



<PEN> 
<IF6> 



<E©F> 

< 7KT ■ 



BET A»: LOOP 



hfc i IBN 



270 WINDOW 51,22,79,24,1: COLOR 5,1: F£=0: PRINT 



<F97> 
<QF7> 
<2SF> 
<ECM> 
<A06> 
<OQS> 
<960> 
<BIR> 
<9ES> 
<BDV> 
<KTU> 

<;nhs> 

<NSV> 
<UGU> 
<2IH> 



<0NB> 

■;dcc • 



■ CRVSONVDS*" OWDFFV 1 
R*(7): FE-1: RETURN 



IF DSO0 THEN PRINT CH 
ELSE RETURN 



Listing 1. Mit -UNIDAT EXCHANGE* 

wandeln Sie Unidat-Dateien 

In Mastertext-Rundschreiben-Dateien. 

Bitte mit dem Checksummer 128 (Seite 158) eingeben. 




u 

fOr 



Den Cl28-Fans steht ein riesiges Angebot an Li- 
teratur zur Verfugung . Hier eine Auswahl zu ver- 
schiedenen Themen, die Sie stets auf dem Weg 
vom Einsteiger zum Profi begleitet. 
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I iicher sind fur den Com- 
.puterfan die Butter auf 
'dem Brot. Doch der Ein- 
kauf von Fachliteratur fur Com- 
puter ist nicht so leicht , wie der 
im Supermarkt. Damit Sie sich 
nicht «den Magen verderben*, 
haben wir versucht, kurz und 
kritisch die Biicher fur den 
C128 darzustellen, die Ihnen 
den Weg vom Einsteiger zum 
Gourmet erleichtern. Guten 
Appetit! 

Brot und Butter 



Den Titel »C 128 fiir Einsteiger« 
kann man wSrtltch nehmen, 
Der Leser wird Schritt fiir 
Schritt mit vteten Fotos und Bil- 
dern vom Auspacken und Auf- 
stellen der Gerate bis zu ersten 
kleinen Basic-Programmen 
geleitet. Sehr gut fiir die Ein- 
steiger geeignet, fiir die ein 
Computer noch ein grauer Ka- 
sten und ein Joystick etwas Un- 
anstandiges ist. »Vom C64 
zum C 128- (Bild 1) widmet sich 
besonders dem C-64-Piloten, 
der auf den C 128 umgestiegen 
1st. Angesprochen ist aber 
auch der C 128-Einsteiger, der 
schon erste Erfahrungen in Ba- 
sic gemacht hat. Sehr informa- 
tiv und gut verstandlich be- 
schreibt der Autor die Beson- 
derheiten des C 128 und Unter- 
schiede zum: C64 bezuglich 
Tastatur und Betriebssystem. 
Besonders ausfuhrlich wird 
das Basic 7.0 des C 128 behan- 
delt. ZahlreicheTips und Tricks 
erfreuen das Herz des Pro- 
grammierers. Assembler-Fans 
werden in einem eigenen Kapi- 
tel mit dem C 128-Monitor, dem 
»Tedmon«, vertraut gemacht. 
Auch gibt es ausfuhrliche Hin- 
weise zur Anpassung von C 64- 
Programmen auf den C128. 
Ein Abschnitt uber die Beson- 
derheiten des C64-Modus, ein 
Schnupperkurs zum Betriebs- 
system CP/M und ein kurzes 
H^pitel uber die am C 128 ver- 
wendbaren Diskettenlaufwer- 
ke(die 1581 wird leider nicht er- 



wahnt) runden das Bild ab. Ein 
Leckerbissen sind die vielen 
Beispielprogramme und Utili- 
ties auf der beiliegenden Dis- 
kette. Fazit: Besonders fiir Um- 
steiger ein sehr empfehlens- 
werter Zusatz zum Bedie- 
nungshandbuch des C128. 
Einsteiger mit wenig Compu- 
tererfahrung sind meiner Mei- 
nung nach mit einem der unten 
besprochenen Handbucher 
besser bedient. Das Original- 
C 128-Bedienungshandbuch 
ist - besonders fur den Einstei- 
ger - schwer verstandlich und 
nicht ausfuhrlich genug. 
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Bild 1. Das Aufsteiger- 
Handbuch 

Drei Biicher wollen diesem 
MiBstand ein Ende beretten 
(Tabelle 1): Der »Data Becker 
FCihrer* ist ein Nachschlage- 
werk. In tabellarischer Form 
fiihrt es quer durch den C 128: 
Dazu gehoren eine Auflistung 
und kurze Erfauterung samtli- 
cher Basic-Befehle, Sprungta- 
bellen des Betriebssystems 
und des Basic; auSerdem ent- 
halt das Buch eine Liste der 
CP/M-Befehle und -Besonder- 
heiten, Registerfabellen, 

Steckerbelegungen, Aufbau 
und Zeropage der Floppy 1571, 
die 6502-Prozessor-Befehle, 
Zeichencodetabelle des C 128, 
Fehlermeldungen und vieles 
mehr. Die Idee ist sicherlich 
sehr gut, dc-ch leider geiang 



: 



C128 
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die Ausftihrung nicht ganz feh- 
lerfrei. 

So fehlen zum Beispiel bei 
den Basic-Befehlen Hinweise 
auf die fehlertrachtigen Anf iih- 
rungszeichen und auch sine 
Liste der niitzlichen ESC-Kom- 
mandos ist nicht zu finden. Fa- 
zit: Symbol ische Gedachtnis- 
stutze fur Freaks, die kein 
dickes Handbuch mehr mit 
sieh herumschleppen wollen. 

Uber das »C 128-Buch« (Bild 
2) sind nicht viete Worte zu ver- 
lieren. Es ist die deutsche 
Ubersetzung des offizieilen 

Co m modore-P rog ra m m ie r- 
handbuches aus den USA. Auf 
670 engbeschriebenen Seiten 
wird der C 128 bis hin zum letz- 
ten Chip auseinandergenom- 
men. Der Interessierte kann ei- 
ne genaue Beschreibung der 
Basic 7,0-Befehle ebenso fin- 
den, wie Tabellen uber den 
Stromverbrauch des C 128, 
Oder der Gleich- und Wechsei- 
stromlasten der einzelnen 
Chips. Der Text ist sehr prazise 
und einpragsam. Fur das Text- 
verstandnis sind Grundkennt- 
nisse im Umgang mit Compu- 
tern von Vorteil. Erwahnens- 
wert ist das ausgezeichnete 
Stichwortverzeichnis am 

SchluS des Buches. 

Fazit: Das Handbuch fur den 
Spezialisten und Profi ist sein 
Geld wert. 

«C 128 Intern* (Bild 3) wendet 
sich an den in Basic und Ma- 
schinensprache erfahrenen 
Leser. Es behandeit jeweils in 
eigenen Kapitein den 40- und 






Bild 2. Das Programmier- 
Handbuch 



SIN DATA BECKER B UCH J 

Bild 3. Eln Mu6 fur ProfSs 

den 80-Zeichen-Chip (VIC und 
VDC), die Ein- und Ausgabe- 
steuerung, und - recht aus- 
fiihrlich - die Assemblerpro- 
grammierung. AuBerdem ent- 
halt es ein kommentiertes 
ROM-Listing des C128-Kernel, 
eine Tabelle der Kernel-Routi- 
nen, eine Beschreibung der 
Speicheraufteilung und ein Ka- 
pitel uber die Hardware mit 
symbolartigen Schaltplanen, 
In lockerem Stil versucht der 
Autor die Geheimnisse des 
C128 aufzudecken. Alferdings 
sind fur Einsteiger die Erlaute- 
rungen zu knapp und zu sehr 
gewurzt mit POKEs und As- 
semblerlistings. Fortgeschrit- 
tene dagegen mussen sich 
durch Textblocke und Beispiel- 
listings hindurcharbeiten, urn 
die gewiinschte Information zu 
erhalten. Ein Lob dem kom- 
mentierten Kernel-Listing, der 
kommentierten Zeropage und 
den Tabellen im Anhang. 

Fazit: Wer sich zurechtfin- 
det, erhalt vieie Tips und ein 
gutes Kernel-Listing. 

Ein wenig Basic 
geffallig...? 



»Das groBe Basic-Buch« von 
Data Becker ist im Moment das 
einzig verfugbare zu diesem 
Thema. Zuerst lernt der Leser, 
wie ein Problem uberhaupt in 
ein Programm umzusetzen ist, 
um dann das Gelernte Schritt 
fur Schritt in Basic zu verwirkli- 
chen. Am Ende jedes Kapitels 
befinden sich Ubungsaufga- 
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ben, die helfen sollen, das Ge- 
lernte zu vertiefen. Es foigen 
kurze Kapitel uber Dateiver- 
waltung, Grafik- und Musikpro- 
grammierung, ein Einblick in 
die interne Basic-Verwaltung 
des Rechners und ein paar 
Tips und Utilities. Im Anhang 
gibt es eine sehr gute Uber- 
sicht der Basic-Befehle mit Er- 
klarung der Syntax und niitzli- 
che Tabellen. 

Fazit: Wer sich ernsthaft mit 
Basic beschaftigen will und 
keine Lust hat, sich nur mit ei- 
nem Handbuch auseinander- 
zusetzen, ist mtt dem »GroBen 
Basic-Buchn bestens bedient. 

Ein Sammelsurium nutzli- 
cher Programme, Pokes, Be- 
fehlserweiterungen, Assem- 
blertricks, Einsprungadressen 
und Program mierhilfen bietet 
»Tips & Tricks fur den C128* 
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EIN DATA BECKER t 

Bild 4. Fur jeden etwas 

(Bild 4). Es stur von vorn bis 
hinten durchzulesen, ist bei ei- 
nem Buch dieser Art sicher 
nicht sinnvoll. Kaum jemand 
wird sich fiir samtliche Tricks 
interessieren. Einzelne Tips 
mit Text und Inhaltsverzeichnts 
zu finden, erfordert jedoch Ge- 
duld. Wer mit einem guten 
Handbuch und einem ROM-Li- 
sting umzugehen weiB und 
manchmal das 64'er-Magazin 
aufschl§gt, braucht sich ei- 
gentlich nicht mit diesen »Tips 
und Trickso auseinanderzuset- 
zen. Wem Zeit und Lust fehlt, 
sich umstandlich durch Hand- 
buch und ROM-Listing zu wiih- 
len, sollte vor einem Kauf ge- 
nau untersuGhen, ob »Tips und 
Tricks« die eigenen Anspruche 
erfullt. 



»Peeks und Pokes« will Basic- 
Programmierern helfen, die 
Tiefen des C 128 auszuloten. In 
fliissigem Text werden dem Le- 
ser die Speicherverwaltung 
und die Grafik- und Sound- 
chips genau erklart. AuBerdem 
enthalt das Buch eine kurze, 
gute Einfuhrung in die Maschi- 
nensprache mit Beispielen am 
8502- und Z80-Prozessor(!). Im 
Anhang finden sich die Assem- 
blerbefehle beider Prozesso- 
ren, eine Speicherubersicht 
des C 128 und Registertabellen 
der Grafikchips VIC und VDC. 
Erarbeitete Programmbeispie- 
le oder Tricks werden am Ende 
der jeweiligen Textblocke noch 
einmal zusammengefaBt. 

Fazit: Genau das Richtigef ur 
den Basic-Programmierer, der 
sich mit dem C128 gut aus- 
kennt und nicht wei8, ob er in 
Maschinensprache einsteigen 
oder weiter in Basic program- 
mieren soil (Tabelle 2). 

... oder soil es 

etwas Assembler 

sein? 



Furdiejentgen, dieihrem C128 
mit Assembler auf den Leib 
rucken wollen, bieten sich zwei 
Einfuhrungskurse an (Tabelle 3). 

Beide enihalten je einen 
komfortablen Assembler auf 
D iskette, derkeineWCinscheof- 
fen Ia3t, und bieten eine gute, 
ausfuhrliche Einfuhrung in Ma- 
schinensprache und Assem- 
ble r-Prog ram mi erung. Sie un- 
terscherden sich nur durch die 
Bedienung des Assemblers 
und den Textaufbau. 

Im »C128 Assembler-Kurs« 
(Bild 5) arbeitet man von An- 
fang bis zum Ende mit dem mit- 
gelieferten Assembler, Das hat 
den Vorteil, daB man sich am 
Ende sehr gut mit seiner Bedie- 
nung auskennt . Der Text ist pra- 
zise und ohne Schnorkel. Auf- 
gaben am Ende jedes Kapitels 
vertiefen das Gelernte. Die As- 
semblerbedienung ist etwas 
gewohnungsbedurftig. Sie er- 
folgt mittels eigener Befehle 
von Basic aus. Das Assembler- 
Programm wird ohne Zeilen- 
nummern eingegeben (Full- 
Screen-Editor), ist aber sehr 



(333? 



SONDERHEFT 36 



147 



BUCHER 



C128 



COMMODORE 128 

Assembler- Kurs 






Bild 5. Assembler mitgeliefert 

ubersichtlich dargestellt. Die 
auf Diskette mitgelisferten fer- 
tigen Makros (Assembler-Un- 
terprogramme, diebequern mit 
ihrem Namen aufgerufen war- 
den) erleichtern das Erstellen 
eigener Programme. 

»Programmieren in Assem- 
bler mit Top-Ass plus« (Bild 6) 
ist in zwei Teile gegliedert. Im 
ersten Teil, dem eigentlichen 
Lehrbuch, lerntmandie Befeh- 
le und Moglichkeiten der Ma- 
schinensprache mit dem 
C128-Monitor kennen. 

Erst im zweiten Teil wird man 
mit der Bedienung des Assem- 
blers vertraut gemacht. Hier 
liegt der Vorteil darin, daB der 
Einsteiger seine Beispielpro- 
gramme nachprufen kann, oh- 
ne sie erst vorher zu assem- 
blieren. Als Eingeweihter kann 
er spater mit einer Art Hand- 
buch arbeiten, ohne ausfiihrli- 
che Kursteile immer wieder 
durchgehen zu mussen. Der 
locker geschriebene Text ist 
leichtverstandlich, Der Assem- 
bler arbeitet mit einem Zeilen- 
editor. 

Fazit: Probelesenl Mit bei- 
den Biichern laBt sich sehr gut 
Maschinensprache lernen. Es 
kommt nur darauf an, welcher 




Proaranwueren 

in Assembler mit 

Tbp-Asspfus 

fur den 




Textaufbau und welche Assem- 
blerbedienung Ihnen am lieb- 
sten ist. 

CP/M offnet unserem C128 
das Tor zu professioneller Soft- 
ware wie Multiplan und Word- 

CP/M- 

Das etwas and ere 
Betriebssystem 

star Oder dem legendaren Tur- 
bo-Pascal, und bietet damit die 
faszinterende Moglichkeit, Da- 
ten auch mit anderen Compu- 
tersystemen auszutauschen. 
Fur den ersten Kdntakt mit 
CP/M bieten sich dem C128- 
Besitzerdrei Bucher an (Tabel- 
le 4): Alle drei beschaftigen 
sich eingehend mit der Ge- 
schichte von CP/M, der Struk- 
tur von Befehlen und Dateien 
und der Bedienung der Peri- 
pherie. 

Das -CP/M 3.0 Anwender 
Handbuch« {Bild 7) kommt ei- 
nem Lehrbuch am nachsten. 




Bild 6. Kompletter 

Programmierkurs 



Bifd 7. Ubersicht fur Anwender 

Mit fliissigem, groBgedruck- 
tem Text wird der Leser in die 
Grundlagen von CP/M einge- 
weiht. Viele Beispielprogram- 
me und eine gute Befehlsuber- 
sicht im Anhang sind dabei von 
groBer Hilfe. 

»C128 Arbeiten mit CP/M 
Plus« (Bild 8) beschreibt die 
Struktur und Bedienung von 
CP/M etwas niichterner. Sehr 
gut gefallen hat mir die Liste 
dereinzelnen Befehle mit ihren 
knappen, aber tretfenden Er- 
klarungen. Zusatzlich gibt es 
kurze Einfuhrungen zu NEVA- 
DA, NEVADA-Fortran, Micro- 
soft-Basic, Microsoft-Fortran- 
80 und Turbo-Pascal. Ein gutes 
Handbuch und Nachschlage- 
werk. 

»A)les uber CP/M 3.0« (Bild 9) 
bietet eine Vereinigung von 
Lehrbuch und Handbuch. In 
prazise formulierter Sprache 




Bild 8. Das Nachschlagewerk 



t 




Ales uber 
CI¥MaO 
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Bild 9. Intenslvkurs fur 
Einsteiger 

wird der Leser mit Informatio- 
nen tiberhauft. Wer sich hier 
durchgearbeitet hat, weiB eini- 
ges mehr uber CP/M. Eine 
sehr gute Befehlsubersicht, 
ein Anhang mit den wichtig- 
sten Tabellen und ein gutes In- 
halts- und Stichwortverzeich- 
nis rusten das Lehrbuch zum 
Handbuch auf. 

Fazit: Wer hauptsachlich im 
C 128-Modus arbeitet und sich 
auch mit CP/M beschaftigen 
will, sollte sich, je nach Ge- 
schmack, Lehrbuch Oder 
Handbuch anschaffen. Fur all 
diejenigen, die CP/M intensiv 
nutzen wollen, ist »Alles uber 
CP/M« sicher kein Fehlkauf. 
(Tabelle 4) 

Graf ik - Nur fur 
Feinschmecker? 



Der Titel »Grafikprogrammie- 
rung auf dem C128« (Bild 10) 
sagt eigentlich schon alles. Die 
Grafikbefehfe des Basic 7.0 
fehlen in diesem Buch ebenso- 
wenig wie ausfuhrltche Kapitel 
uber Sprites und Shapes. Sehr 
schon sind die Kapitel uber 
Fraktale und uber die Anwen- 
dungen des Tastatur puffers. 



Viel Platz wird den beiden Vi- 
deochips gewidmet. Leider 
wird die hochauflosende Gra- 
fik im 80-Zeichen-Modus et- 
was stiefmiitterlich behandelt. 
Es fehlen Hinweise zur Pro- 
grammierung von Interlace- 
Bildern und zum 64-KByte- 
Speicher des VDC-Chips im 
neuen C128 D (Blech). DafCir 




Bild 10. Faszination der 

C128-Grafik 

gibt es samtliche Beispielpro- 
gramme auf der beigelegten 
Diskette und als Schmankerl 
ein Programnrt fur die Nutzung 
der Basic-70-Grafikbefehle 
auch auf dem 80-Zeichen-Bild- 
schirm. Der fliissige, anspre- 
chende Text erhSht den Lese- 
spaB und macht das Buch sehr 
empfehlenswert fur Einsteiger 
mit Grafikambitionen. Fur Fort- 
geschrittene mit gutem Hand- 
buch gibt es wenig Neues. 

Pascal isf eine der besten 
Hochsprachen, urn strukturier- 
tes Programmieren zu erfer- 
nen, und die Zahl ihrer Fans 
steigt unaufhaltsam. 

-Pascal mit dem C128« (Bild 
11) fCihrt den Leser von den 
Grundbegriffen der Sprache 
hin zu komplizierten Anwen- 
dungen von Pascal in Kombi- 
nation mit Maschinensprache. 
Ein Pascal-Compiler mit kom- 
fortablem Editor und Fehlerde- 




Bild 11. Einfiihrung mit 
Compiler 
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Bild 12. Alles iiber die 
1570/71 

tektor liegt dem Buch zusam- 
men mit vielen Beispielpro- 
grammen auf Diskette bei. Der 
ubersichtliche Text steigt 
schnell und intensiv in die Ma- 
terie ein und erfordert Grund- 
kenntnisse im Umgang mit 
Computern und in Mathema- 
tik. Die vielen Aufgaben am En- 
ds der Kapitel sind wichtig fur 
das weitere Textverstandnis 
und sollten unbedingt bearbei- 
tet werden. Eine ausfuhrliche 
Dokumentation des ange- 
wandten Pascal-Systems 2.0 
macht das Buch auch for den 
fortgeschrittenen Pascal-An- 
wender wertvoll. Eine An wen- 
dung des schnBlleren Turbo- 
Pascal-Compilers sollte mit 
den hier erworbenen Grundla- 
gen keine wesentlichen 
Schwterigkeiten mehr berei- 
ten. Fazit: Eine gute Alternative 
zu den meist trockenen und 
nicht auf den C 128 bezogenen 
Lehrbiichern zu Turbo-Pascal 
unterCP/M, Fur Einsteiger nur 
zu empfehlen, wenn genugend 
Durch haltevermogen vorhan- 
den ist. 

Das Dtsketteniaufwerk C 1571 
ist wegen seiner hohen Spei- 
cherkapazitat und der Fahig- 
keit, unterschiedliche Disket- 
tenformate zu bearbeiten, das 
am meisten verwendete Peri- 
pheriegerat an unserem C128. 
Deshalb hier zwei Bticher uber 
dieses Laufwerk (Tabelle 5). 
Leider gibt es noch keine Lite- 
ratur uber das auBerst lei- 
stungsfahige 3 1 /a-Zoll-Lauf- 
werk 1581!. 

»Das groSe Floppybuch« 
(Bild 13) enthait alles wesentli- 
che, das man iiber seine Flop- 
py wissen sollte. Derflussig ge- 
schriebene Text behandelt das 
Auspacken des Gerates eben- 
so, wie die Benutzerbefehle, 
die Floppy unter CP/M, die Be- 
sonderheiten der verschiede- 
nen lesbaren Diskettenformate 
und die Fehler des DOS 3.0. 
Ein gut kommentiertes ROM- 



Listing des DOS schlieBt sich 
an. Die neue Auflage enthait 
auch endlich ein Sttchwortver- 
zeichnis und den Assembler- 
Quelltext, beziehungsweise 
den Data-Lader des recht lei- 
stungsfahigen Diskettenmoni- 
tors, der auch auf Diskette fur 
DM 29,-{!) zusatzlich zu haben 
ist. 

Das Buch »Die Floppy 1570/ 
71« (Bild 12) ist vom Inhalt her 
mit dem »Gro8en Floppybuch« 
vergleichbar. Derausfiihrliche, 
gut lesbare Text fund quer 
durch samtliche Moglichkeiten 
des Laufwerks. Sehr gut gefiel 
das ausfuhrliche Kapitel iiber 
die User-0-Befehle, die zusatz- 
iiche Auflistung der Fehler von 
DOS und Handbuch in einem 
eigenen Kapitel und die detail- 
lierte Beschreibung der RAM- 
Aufteilung im An hang. Auch 
ein gut kommentiertes ROM- 
Listing und ein leistungsfahi- 
ger Disketten monitor zum Ab- 
tippen fehlen nicht. Der Disket- 
ten monitor ist hauptsachlich in 



Werdie Wahlhat...! 




Bild 13. Floppy-Handbuch 

fur Prof is 

Basic geschrieben, so daB 
spater relativ einfach eigene 
Verbesserungen vorgenom- 
men werden konnen. Durch 
die hSufige Verwendung der 
schnellen Burst-Befehlewurde 
trotz Basic eine passable Ge- 
schwindigkeit erreicht. Ketnes 
der beiden Bucher beschaftigt 
sich mit den Unterschieden 
der neuen 1571 im »Blechdie- 
sel« zum alten Model!. Interes- 
sierten sei das 64'er-Sonder- 
heft-29 empfohlen. Fazit: Wie- 
der m u S der eigene Geschmack 
entscheiden. Beide Bucher in- 
formieren umfassend iiber die 
Floppy 1570/71. Wegen dem 
groSeren und iibersichtltche- 
ren Format und den ausfiihrli- 
cheren Erklarungen im Text 
wurde ich Einsteigern eher 
»Die Floppy 1570/71« empfeh- 
len. Aber urteilen Sie selbst. 
(Tabelle 5) 



Es gabe noch viele Bucher, die 
zu besprechen lohnen wiirde, 
wie zum Beispiel Handbiicher 
zu Protext und dBase II Oder 
Spezialitaten zu CP/M. Wer 
sich dafiir interessiert, sollte 
sich genugend Zeit nehmen 
und im Buchhandel ausgie- 



bigst Vergleiche Ziehen. Vieles 
iiberschneidet sich im Inhalt 
oder hat einen fur den eigenen 
Geschmack unpraktischen 
Textaufbau. Diese Ubersicht 
soil Ihnen helfen, eine grobe 
Vor-Auswahl zu treffen. 

(Alric Riither/so) 
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Schieb u.a. 


69.- 




Data 
Becker 



Tabelle 1. Diese Bucher eignen sich, urn einen 
schnellen Einstleg zum C128 zu finden 



Titel 


Autor 


DM 


Disk 


Verlag 


6. Das groBe Basic -Buch 
zum C 128 


Kampow 


39.- 


— 


Data 
Becker 


7. Commodore 128 Tips 
und Tricks 


Hornig u.a. 


49.- 


— 


Data 
Becker 


8. Peeks & Pokes zum 
C128 


Liesert u.a. 


29.- 


— 


Oata 
Becker 



Tabelle 2. Fur den Bastc-Programmierer gibt es drei Bucher 


Titel 


Autor 


DM Disk Verlag 


9. C 128 Assemble r-Kurs 

10. Programmieren in 
Assembler mit TOP-ASS 
plus fur den C 128 


F.U.Mutler 

G.Mollmann 
u.a. 


75.- + Sybex 

+ M. & T. 
59.- 



Tabelle 3. Zwei Kurse gibt es fur den Assembler-Freak 



Titet 


Autor 


DM 


Disk 


Verlag 


11. CP/M 3.0 Anwender 


J.Hiickstadt 


52.- 




M.&T. 


Handbuch C128 










12. C 128 Arbeiten mit 


B.Bachmann 


48.- 


— 


Sybex 


CP/M Plus 










13. C 128 Alles uber CP/M 


Prof.Dr.Becker 


52.- 


— 


M. ST. 


3.0 











Tabelle 4. CP/M mit dem C128 offnet das Tor zu 
professioneller Software 





Titel 


Autor 


DM 


Disk 


Verlag 


14. Grafikprogrammierung 
C128 


H.Ponnath 


52.- 


+ 


M.&T. 


15. Pascal mit dem C 128 


F.Matthes 


52.- 


+ 


M.&T. 


16. C 1570/71 Das groSe 
Floppy buch 


Ellinger 


49.- 


— 


Data 
Becker 


17. Die Floppy 1570/1571 


K.Schramm 


52.- 


— 


M.&T, 



Tabelle 5. Daneben sind Bucher zu den unterschiedlichsten 
Themenbereichen erhaltlich 



32^3? 
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SUPER 



Super-Vectors ist ein spannendes Action-Spiel 
fur den C128, das den Joystick 
heiBlaufen laiit und Sie sicher fur viele 
Stunden an den Bildschirm fesselt. 
Mit der Auflosung von 736 x 354 
Bildpunkten bricht es alle Grafikrekorde. 





RCH'S NADELOHR 











ZUM SIEG 




ieses sehr schnelle Geschicklichkeitsspiel fasziniert jeden, der es einmal gesehen hat. 
Es greift die Idee zweier sich bekampfender Schlangen auf (ahnlich der Motorrad-Se- 
quenz irn Film »Tron«) und setzl sie auf dern C128 im 80-Zeiehen-Modus auf faszinieren- 
de Weise neu um. Bei »Super-Vectors« komrnt es darauf an, den Gegner durch geschicktes 
Mandvrieren einzukreisen, inn gegen eine Wand rennen zu lassen und damit auszuschalten. 
Durch die hohe Grafikaufldsung (736 x 354 Punkte) ist der Kampf der beiden Linien wesentlich 
spannender als bei bisherigen Versionen. »Super-Vectors« ist nur auf einem C128 mit erwei- 
terlem VDC-RAM lauffahig, da die gesamten 64 KByte ausgenutzt werden. 

Diese Voraussetzung erfullt jeder C 128 im Blechgebause, aber auch andere C 128 sind um- 
riistbar auf den vollen Speicher. 

Super-Vectors wurde mit einigen Zusatzfunktionen ausgesiattel. So kann man als weitere 
Schwierigkeiten zufallige Hindernisse in das Spielfeld einschalten, die auch vom Benutzer 
editierbar sind. Auch diagonale Linien sind moglich, wodurch die Schwierigkeit fur Vector- 
Profis gesteigert werden kann. Die Farben des Hintergrundes und der Zeichenfarbe sind zu 
vertauschen. 

Es besteht auch die Mdgliehkeit, gegen den Computer anzutreten und verschiedene 
Schwierigkeiten anzuwahien, Diese konnen durch Ab- und Hinzuschalten verschiedener 
Computerstrategien zusatzlich variiert werden. 

Hat man den Menupunkt »Beschleunigen« gewahlt, so laBt sich durch Drucken des Feuer- « 
knopfes der Vector (Linie) beschleunigen. 

Super-Vectors bietet aber noch weitere Extras: 
Zeitmessung: 

Bei jedem Durchgang wird die Zeit bis zum »Grash« gestoppt. Die abschlieRende Bewer- 
tung stelit neben den Siegen auch die bendtigte Durchschnittszeit gegenuber. Bei gleicher 
Anzahl der Siege beider Spieler entscheidet dieser Durchschnittswert uber den Gesamtsieg. 
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Aus technischen Griinden ist die HOehstzeit eines 
Durchgangsauf vierMinuten begrenzt. Haben Sie erst ein- 
mal einige Runden gespielt, werden Sieschnell feststelfen, 
da8 dieser Grenzwert so gut wie nie erreicht wird. 
Zufallsstart: 

Bei Anwahl dieser Option starten die beiden Vektors an 
beliebigen Positionen imd rnit zufalliger Richtung. Dies 
stellt eine besondere Herausforderung an Reaktion und 
Spielvermogen dar, zumal zuerst herauszufinden ist, wel- 
chen der beiden Vektors man iiberhaupt steuert. 

Als geradezu heimtuckisch erweist sich die Kombination 
des Zufallsstarts mit der Option "Hindernisse ein«. Ein Vek- 
tor kann kurz vor einer Begrenzungslinie starten Oder von 
einem Hindernis gefangen sein. Urn ein schnelles Ende 
nicht zur Regel werden zu lassen, wird den Spieiern an- 
fangs eine halbe Sekundezur eigenen Orientierung einge- 
raumt. 

Geschwindigkeit: 

20 verschiedene Stufen sind einstellbar, die gerade bei 
hoherem Tempo feine Unterschiede erlauben. 

Abbruch: 

Die Restore-Taste unterbricht einen Durchgang. Sie ge- 
langen mit <RESTORE> zum Hauptmenii. 

Ende: 

Man kann das Prog ram m verlassen, ohneden Computer 
ausschalten zu mussen. Dies ist vor allem dann wichtig, 
wenn Sie selbstkonstruierte Hindernisse mit einem Ma- 
schinensprache-Monitor modifizieren wollen (siehe unten). 



Computerstrategien 



Die Spielstarke des Computers wird durch Hinzuschaiten 
verschiedener Strategien eingestellt. Im Program m sind 
die zehn sinnvollsten Kombinationen derfolgenden Einzel- 
strategien integriert: 

- Spirale 

- Gasse 

- Foigen 

- Besoffen 

- Zufall 

Der Computer-Vector ist prinzipiell so gesteuert, daB er 
zwei Pixel vor einem Hindernis (Gegner-Vector, Hindernis 
oderSpielfeldrand) ausweicht. Durch dieses Freilassen ei- 
nes Pixels sichert er sich einen Ausweg, falls er in eine Fade 
lauft. 

Beim Ausweichen wird die neue Richtungzufallig ausge- 
wahlt (siehe auch »Folgen«). 

Die Strategien im einzelnen 

Spirale: Diese Strategie iiberpruft, ob sich der 
Computer- Vector in einer Spirale verfangen hat und sichert 
sein Entkommen. 

Gasse: Steuert der Com puter auf einen Spait zu, demur 
einen Punkt breit ist (rnogliche Sackgasse), so weicht er 
aus. 

Foigen: Bei einem Ausweichmanover orientiert sich der 
Computer an der aktuellen Position des Gegner-Vectors. 
Man wird von ihm verfolgt! 

Besoffen: Der Computer weicht nach einer besfimmten 
Anzahl zurtickgelegter Pixel aus (siehe auch »Folgen«), 
egal, ob er auf ein Hindernis stoBt oder nicht. Damit wird er 
unberechenbar! 

Zufall: Diese Strategie arbeitet mit »Besoffen« zusam- 
men. Sie bestimmt die Anzahl der Pixel, nach der der Com- 
puter die Richtung wechselt. Falls die Strategie aktiviert ist, 
addiert er zu einem Startwert einen Zufallswert, ansonsten 
ubernimrnt er den Startwert. 



Die Spielstarke ergibt sich nicht unmittelbar aus der Rei- 
henfolge der Strategiekombinationen. Unserer Meinung 
nach ist die Strategie 7 die spielstarkste. Sehenswert ist 
aber auch Strategie 4. 

Andern der Hindernisse 



Nach dem Laden des Program ms befindet sich im Spei- 
cher eine Tabelle. Diese Tabelle liegt ab der Speicherstelle 
$03026 in BANK 0. 

In der Tabelle 2 sind fur jedes Hindernis zwei Byte reser- 
viert, die den Anfang eines Hindernisses in Low-Byte und 
High-Byte angeben: 

Byte und 1: Low-Byte und High-Byte der Anfangs- 
adresse des Hindernisses Nummer 0; 

Byte 2 und 3: Low-Byte und High-Byte der Anfangs- 
adresse des Hindernisses Nummer 1; 
und so weiter... 

Das Programm erkennt ein ausgeschaltetes Hindernis 
daran, daB die zugehorige Adresse den Wert Null besitzt. 

Die maximal sechs zusatzlichen Hindernisse kbnnen ab 
der Adresse $033a2 in BANK abgelegt werden. 

Aufbnu eines Hindernisses 



Ein Hindernis baut sich aus vertikalen, horizontalen und 
diagonalen Strichen auf. Ein Strict! setzt sich aus sechs By- 
te zusammen: 

- Byte 0: Low-Byte der X-Koordinate der Startkoordinaten 
des Striches 

- Byte 1: High-Byte der X-Koordinate der Startkoordinaten 
des Striches 

- Byte 2: Low-Byte der Y-Koordinate der Startkoordinaten 
des Striches 

- Byte 3: High-Byte der Y-Koordinate der Startkoordinaten 
des Striches 

- Byte 4: Lange des Striches (maximal 255) 

- Byte 5: Richtung des Striches 

- Rechts 

1 - Unten 

2 - Links/Unten 

3 - Rechts/Unten 

Ein Strich mit den Koordinaten X=317, Y=322 und der 
Lange 46 in Richtung Rechts/Unten sahe so aus: 

Byte: 12 3 4 5 
Wert: 061 001 097 066 001 003 

Zum Austestenempfiehltessich, deneingebauten Moni- 
tor zu benutzen. 

Eingabe des Programms 

Das Hauptprogramm (Listing 1) geben Sie mit dem MSE in 
C64-Modus ein und speichern es unter dem Namen »Su- 
pervectors« auf Ihren Datentrager. Danach drucken Sie blt- 
te den Reset-Knopf Oder schalten den Computer aus und 
ein, urn in den C128-Modus zu gelangen. 

Das Programm belegtden Bereich ab dem Basic-Anfang 
ab $1c01. Es ist mit »RUN"Supervectors"« zu laden und 
starlet dann automatisch. 

Zu Beginn ist der Monitor so einzustelien, daB der Rand 
des Spielfelds rundum sichtbar ist, Sollte das Bild »durch- 
laufen«, stoppen Sie es mit dem Regler mit der Bezeich- 
nung »V.hold«. Dieser Regler ist allerdings an einigen Moni- 
toren nicht mehr auBen angebracht. 
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Die Bewegung der Vectors und die Auswahl der Menu- den anderen behindert, Oder knobeln Sie selbst noch wei- 






purtkte erfolgt mit dem Joystick (80-Zeichenschirm ein- tere, ausgekochte Hindern 


sse aus. 






schalten), erster Spieler in Port 2 












(Frank Heidermanns/rs) 




Wem die Hindernisse und Strateg 


en trotzdem noch zu 












leichtsind.dersollteruhigdasSpielerweitern.Sozum Bet- „ .. __ „ , „_, _. , 

a SuDef-Vactors basiert aul dem Proaramm -Vsetors., dasdieAutoren H. Belneund A. Janssan 






spiel einen dritten, unabhangigen Vector, derjeden derbei- geschrieban haben. 


Es wurde im Sonderhef! 22 vereflentlichl. 










Name 


super- vectors leOl 33 a2 


le09 


40 eO fe dO Od d6 28 30 


Oc 


2021 


ad 02 lb c9 02 dO 03 4c 


lb 














lell 
lel9 


2d b5 25 dO 02 d6 26 d6 
25 60 eO fd dO Ob d6 28 


99 

6f 


2029 
2031 


b8 20 a5 6a 29 04 fO If 
a5 8f c9 fd bO Od a5 25 


5d 

24 








lcOl 


Ob lc c4 07 9e 37 31 38 


05 








lc09 


3^ 00 00 00 20 4b 24 a9 


7e 


le21 


30 lc f6 25 dO 02 f6 26 


07 


2039 


38 e5 65 a5 26 e5 66 a9 


fO 








lell 


00 8d 00 ff 20 b6 77 a2 


b3 


le29 


60 cO fb dO 09 b5 23 dO 


6f 


2041 


00 fO 12 a5 23 e5 63 a5 


2d 








lcl9 


ff 9a e8 8e 02 do 8e 03 


b8 


le31 


02 d6 24 d6 23 60 f 6 23 


da 


2049 


24 e5 64 a9 01 dO 06 ad 


b8 








le21 


dc e8 86 28 86 68 20 78 


35 


le39 


dO 02 f6 24 38 60 a9 02 


7e 


2051 


12 dO 29 03 24 2a 85 ac 


79 








lc29 


le 20 8b 2c a2 19 20 da 


e9 


le4l 


95 28 18 60 a2 01 8e cO 


ea 


2059 


a9 04 85 ae a9 00 8d 02 


10 








1031 


cd 29 07 09 80 20 ec cd 


4e 


ie49 


lb ca 8e c7 lb a9 2c 8d 


31 


2061 


lb 20 aa If 20 8f 20 bO 


7b 








lc39 


aO 00 20 7c 2c 4c 9e 25 


5b 


le51 


cl lb 8e c2 lb ad Oa dd 


9f 


2069 


16 dO f6 a9 04 85 ae 20 


42 








lati 


20 03 c4 ad 20 lb c9 ef 


ab 


le59 


48 a9 Oa 48 ad 09 dd aa 


fl 


2071 


aa If 20 94 20 bO 08 dO 


8f 








lc49 


fO 01 60 ad 18 lb 8d 23 


5e 


le6l 


4a 4a 4a 4a 48 8a 48 aO 


e7 


2079 


f6 a6 8f a9 ff dO Ob 49 


21 








lc51 


lb a9 00 85 41 85 42 85 


46 


le69 


03 68 29 Of 09 30 99 o3 


cd 


2081 


ff 20 df 20 ae 03 lb 8d 


17 








le59 


43 85 44 8d 24 lb 8d 25 


bd 


le71 


lb 88 10 f5 4c 14 2c a9 


fd 


2089 


03 lb 8e 01 lb 60 20 89 


26 








lc61 


lb a2 0c 20 cc cd 20 7e 


8d 


le79 


40 a2 fa dO 04 a9 Od a2 


ea 


2091 


le bO 14 20 89 le bO Of 


7b 








lc69 


le 20 71 2c a9 32 85 a9 


Of 


le81 


lc 8d 18 03 8e 19 03 60 


49 


2099 


a6 ac a9 00 38 2a ca 10 


20 








lc71 


a2 01 86 6b 86 6c 86 aa 


de 


le89 


a5 ac dO Ob a5 a6 dO 02 


fl 


20al 


fe c5 8f fO 02 38 60 e6 


b3 








le79 


ea 86 ab 8e 31 lb 8e 32 


ce 


le91 


c6 a7 c6 a6 4c b8 le c9 


48 


20a9 


ae a5 ac c9 04 dO 04 a9 


b6 








lc81 


lb 8e 00 lb 8e 01 lb 8e 


cl 


le99 


01 dO 08 e6 a6 dO 02 e6 


a8 


20bl 


00 85 ae c6 ae 18 60 a5 


fO 








lc89 


02 lb aO lc 20 7c 2c 20 


9b 


leal 


a7 bO 14 c9 02 dO Oa a5 


f9 


20b9 


6a 29 01 fO 3e a9 00 8d 


42 








lc9l 


34 21 20 77 2c a9 e0 a2 


a5 


lea9 


a4 dO 02 c6 a5 c6 a4 bO 


93 


20el 


02 lb a5 8f 49 ff 29 03 


eb 








le99 


2c 20 40 2a a5 6a 29 20 


bd 


lebl 


06 e6 a4 dO 02 e6 a5 a5 


a7 


20c9 


08 a5 8f 28 fO 03 49 03 


df 








leal 


f 11 ad 06 dc 29 le a8 


27 


leb9 


a7 85 lb a5 a4 a6 a5 a4 


fe 


20dl 


2e 49 Oe 49 ff 20 df 20 


8f 








lca9 


be 27 30 fO f5 b9 26 30 


4b 


leel 


a6 18 24 38 85 le 86 If 


25 


20d9 


8d 00 lb ad 01 lb 24 6a 


31 








lebi 


20 40 2a 24 af 10 69 a2 


67 


lec9 


84 20 48 29 07 85 22 8a 


ef 


20el 


50 17 c6 aa dO Od 48 ad 


b6 








lcb9 


00 86 24 86 26 ad 12 dO 


90 


ledl 


48 98 48 08 a2 03 46 If 


12 


20e9 


12 dO 85 aa a5 ab 49 ff 


f7 








loci 


ae 04 dc 20 0b Id 20 bb 


3c 


led9 


66 le ca dO f9 a5 lb a2 


99 


20fl 


85 ab 68 24 ab 30 02 49 


el 








lcc9 


Id 20 c2 le bO e9 20 c4 


cf 


leel 


05 06 20 2a ca dO fa a6 


a3 


20f9 


10 60 bd 00 de a8 09 10 


00 








lcdl 


le a2 00 86 64 86 66 a2 


6b 


lee9 


20 86 lc 85 Id 06 20 2a 


db 


2101 


09 ff dO 03 bd 31 lb 20 


70 








lcd9 


40 ad 06 (3c ac 12 dO 20 


eo 


lefl 


85 If a5 lc 65 20 85 20 


aO 


2109 


2a 21 9d 31 lb 2c 39 lb 


80 








lcel 


0b Id 20 c6 Id o5 23 fO 


ca 


lef9 


a2 Oc 20 da cd 65 Id 65 


4c 


2111 


10 20 a8 b5 8e 09 10 49 


16 








lce9 


e8 c4 25 fO e4 20 c2 le 


31 


lfOl 


If 85 21 a5 le 20 37 If 


de 


2119 


ff 85 22 98 09 10 49 ff 


ad 








lcfl 


bO df 20 c4 le a2 01 bd 


a8 


lf09 


20 2a If 20 d8 cd a6 22 


e5 


2121 


25 22 08 98 28 fO Ob 05 


ad 








lcf9 


06 dc 29 03 aB b9 3c 2a 


b6 


IfU 


28 90 Od Id 6c ce 48 20 


07 


2129 


22 29 ef 85 22 98 29 10 


38 








IdOl 


95 8e ca 10 ?2 20 03 c4 


58 


lfl9 


2a If 68 20 oa cd bO 06 


db 


2131 


05 22 60 78 a9 a8 8d 14 


ad 








ld09 


fO 3a 29 aa Oa 36 24 Oa 


ad 


lf21 


3d 6c ce fO 01 38 4c 3a 


dd 


2139 


03 a9 21 8d 15 03 a9 00 


lb 








ldll 


36 24 dO 02 09 40 95 23 


fd 


lf29 


fa a2 12 a5 21 20 oe od 


8f 


2141 


8d la dO 8d 19 dO ad 04 


98 








ldl9 


98 69 32 95 25 36 26 60 


02 


If 31 


e8 a5 20 4c cc cd 18 65 


e4 


2149 


Oa 29 fe 8d 04 Oa a2 18 


a4 








ld21 


a9 32 85 23 a9 00 85 24 


a2 


lf39 


20 85 20 90 02 e6 21 60 


i3 


2151 


le 00 d4 ca 10 fa a9 fO 


5f 








ld29 


a9 ae 85 63 a9 02 85 64 


81 


lf4l 


a2 00 aO 00 ad 00 lb 10 


73 


2159 


8d Od d4 a9 bO 8d 06 d4 


10 








ld31 


a9 bl a2 00 85 25 86 26 


43 


lf49 


04 8e 00 lb 60 a5 8f c9 


fd 


2161 


a9 fO 8d 14 d4 a9 15 8d 


72 








ld39 


85 65 86 66 a9 f7 85 8e 


6d 


lf51 


fd 90 06 a5 68 c9 02 dO 


4b 


2169 


04 d4 a9 11 8d Ob d4 a9 


3c 








ld4l 


a9 fb 85 8f 8e Oa dd 8e 


09 


lf59 


03 ee 02 lb a5 8f c9 fe 


b3 


2171 


9f 8d 18 d4 a9 7f 3d Od 


5e 








ld49 


09 dd 8e 08 dd e8 86 ad 


80 


lf6l 


dO 01 88 c9 fd dO 01 08 


09 


2179 


de a9 81 8d Od dc a9 Oe 


b6 








ld51 


86 a8 20 bb Id 20 c4 le 


cd 


lf69 


c9 fb dO 01 oa c9 f7 dO 


01 


2181 


8d 05 dc a2 01 8e Oe dc 


93 








ld59 


a2 00 20 fb 20 20 dl Id 


07 


lf71 


01 e8 86 ac 84 ae 20 aa 


bl 


2189 


8e 2f lb ca 8e 2c lb 8e 


a3 








ld6l 


90 Ob 20 bb Id 20 c2 le 


10 


lf?9 


If a9 02 8d 12 lb a2 02 


28 


2191 


28 lb 8e 2d lb 8e 29 lb 


91 








ld69 


90 03 4c 07 22 a5 6a 29 


ba 


lf81 


b5 ac fO 16 10 Ob b5 a4 


05 


2199 


8e 2a lb a9 le 8d 01 d4 


34 








ld71 


10 fO 08 20 41 if 8d 32 


a7 


lf89 


dO 02 d6 a5 d6 a4 4c 9b 


cO 


21al 


a9 f2 8d 17 d4 58 60 d8 


4d 








ld79 


lb dO 05 a2 01 20 fb 20 


d3 


lf91 


If 18 75 a4 95 a4 90 02 


73 


21a9 


ae 08 dd dO Od ee 08 dd 


11 








ld8l 


a2 01 20 dl Id 20 c6 Id 


Oe 


lf99 


f6 a5 ca ca 10 e2 20 bS 


78 


21bl 


c6 a8 10 06 ee 08 dd e8 


09 








ld89 


90 08 20 c2 le 90 03 4c 


89 


ifal 


le 90 10 a9 32 85 a9 bO 


98 


21b9 


86 a8 ad Od dc aO 01 b9 


eb 








W91 


Oa 22 20 c4 le ad 09 (3d 


7c 


lfa9 


77 a2 03 b5 63 95 a4 ca 


f4 


21cl 


31 lb 29 ef d9 29 lb fO 


fd 








ld99 


c5 ad fO Of 85 ad 20 45 


24 


lfbl 


10 f9 60 ce 12 lb dO 06 


7b 


21e9 


08 99 29 lb a9 00 99 2c 


a5 








Idal 


le ae Oa dd eO 04 90 03 


cb 


lfb9 


2c 16 lb 10 40 a5 a7 85 


94 


21dl 


lb 88 10 eb ce 2f lb dO 


26 








lda9 


4c Of 22 a6 27 be 27 2a 


24 


Ifcl 


lb a5 a4 a6 a5 a4 ac fO 


cl 


21d9 


Oe a9 Oa 8d 2f lb ee 2c 


dO 








Idbl 


a2 01 ca dO fd 88 do fa 


fe 


ife9 


Id a4 a6 dO 02 c6 lb 88 


dO 


21el 


lb ad 2c lb 8d Of d4 ad 


41 








ldb9 


fO 98 a5 26 85 lb a5 23 


32 


Ifdi 


20 c2 le 90 28 c8 dO 02 


fc 


21e9 


2d lb ee 28 lb 10 Ob a2 


08 








ldcl 


a6 24 a4 25 60 a5 66 85 


If 


lfd9 


e6 lb c8 dO 02 e6 lb 20 


9d 


21fl 


00 8e 28 lb 18 69 05 8d 


a2 








ldc9 


lb a5 63 a6 64 a4 65 60 


26 


Ifel 


c2 le 90 19 bO 3a 18 69 


Oa 


21f9 


2d lb 18 69 Of 2d 28 lb 


18 








Iddl 


24 6a 10 Oe a8 29 10 fO 


e6 


lfe9 


01 90 01 e8 a4 a6 20 c2 


15 


2201 


8d 08 d4 4c 33 ff a2 00 


Of 








ldd9 


08 d6 6b dO 65 a9 02 95 


18 


lffl 


le 90 Oa e9 02 bO 01 ca 


56 


2209 


2e a2 01 fe 24 lb 86 67 


aa 








ldel 


6b 98 24 6a 50 02 09 10 


48 


lff9 


20 c2 le bO 23 a5 6a 29 


73 














lde9 


a8 18 75 8e c9 fb fO 12 


31 


2001 


08 fO 04 c6 a9 fO 05 a9 


e5 


Listin 


g 1. ■> Super- Vectors" 1st 










Idfl 


c9 f2 fO Oe 98 aO 03 d9 


7f 


2009 


f f 4c df 20 a5 6a 29 02 


81 


ein ra 


sanies Action-Spiel, das 










ldf9 


3c 2a fO 04 88 10 f8 2c 


4c 


2011 


f 06 ad 12 dO 29 4f 2c 


9e 


die hi 


>he Auflosung des C128 










leOl 


95 8e b4 8e 8a fO 02 a2 


5a 


2019 


a9 00 18 6d 07 lb 85 a9 


29 


Em Bl 


schgehause nutzt 
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2211 


: 20 4b 24 ad 12 dO a& 29 


32 


2461 


: ad Od dc 58 60 03 44 e5 


92 


26bl 


: 2b a2 Oa a5 6a 29 10 f 77 


2219 


: Of 85 22 98 4a 4a 4a 4a 


3b 


2469 


: d2 20 00 03 53 dO c9 c5 


la 


26b9 


: 20 e8 dO Id c9 fd fO 06 81 


2221 


: c5 22 fO ef 98 29 fO 05 


d2 


2471 


: ce c5 d2 20 31 00 03 53 


9e 


26ol 


: 20 02 29 4c lc 26 ee lb 9b 


2229 


: 22 a2 la 20 cc ed 20 78 


d4 


2479 


: dO c9 c5 cc c5 d2 20 32 


11 


26c9 


: lb a2 Ob a5 6a 29 10 fO bf 


2231 


: le a2 18 le 00 d4 ea 10 


5c 


2481 


: 00 03 20 d3 c9 c5 c7 d4 


19 


26dl 


: 01 e8 eo lb lb dO 05 a2 76 


2239 


: fa a9 03 8d Of d4 a9 f e 


b3 


2489 


: c5 00 01 Oe 14 03 4e cf 


S3 


26d9 


: 00 8e lb lb 98 20 45 2e 43 


2241 


: 8d 14 d4 a9 f4 8d 17 d4 


04 


2491 


: c3 08 01 22 14 00 03 52 


2f 


26el 


: a9 20 8d c3 lb 8d c4 lb dd 


2249 


: a9 If 8d 18 d4 a2 81 8e 


6e 


2499 


r d5 ce c4 c5 ce 00 03 52 


5d 


26e9 


: a2 01 8e cO lb ca 8e c5 95 


2251 


: 12 d4 ca 3e 12 d4 a9 10 


eO 


24al 


: d5 ee c4 c5 00 03 20 da 


15 


26fl 


: lb 20 14 2c ad lb lb 20 07 


2259 


: 85 22 aO 00 a2 18 20 da 


39 


24a9 


: d5 20 d3 dO c9 o5 ec e5 


27 


26f9 


: 45 2c a9 3d 8d c3 lb a9 Id 


2261 


: cd 49 40 20 cc cd a2 00 


ad 


24bl 


: ee 00 01 14 11 03 c9 ce 


30 


2701 


: 3e 8d o4 lb 20 14 2c 20 2e 


2269 


: ca dO fd 88 dO ee a2 23 


81 


24b9 


: 03 02 20 00 00 00 00 20 


06 


2709 


; 03 c4 20 13 27 dO fb 4c 5a 


2271 


: a5 22 49 7f 20 cc cd c6 


97 


24cl 


: 02 03 4d e9 ee d5 d4 c5 


4c 


2711 


: 9c 26 ad DO dc cd 00 dc 22 


2279 


: 22 dO el 20 77 2c 20 69 


ac 


24c9 


: ce 01 16 Oe 00 01 Oe Oc 


b8 


2719 


: dO f8 c9 ff 60 01 4e 18 4f ' 


2281 


: 29 20 7e le 20 2e 24 20 


62 


24dl 


: 03 44 c9 c5 20 4d cl d8 


46 


2721 


: 20 20 01 40 18 03 53 dO 22 


2289 


: 8b 2c a5 67 c9 04 90 06 


8c 


24d9 


: c9 cd cl cc da c5 c9 d4 


3f 


2729 


: e9 c5 ce c5 d2 00 01 40 72 


2291 


: a9 ce a2 24 dO 71 aO 03 


fO 


24el 


: 20 d6 cf ce 20 34 20 4d 


f9 


2731 


: 18 03 43 cf cd dO d5 d4 fa 


2299 


: b9 c3 lb 99 be 24 29 ef 


5f 


24e9 


: c9 ce d5 d4 c5 oe 01 Oe 


lc 


2739 


: c5 d2 00 01 2d la 43 cf d8 


22al 


: 48 88 10 f4 68 fO 08 aa 


53 


24fl 


: Oe c9 d3 d4 20 o5 d2 d2 


94 


2741 


: ed dO d5 d4 c5 d2 2d 49 cO 


22a9 


: a9 00 69 3c ca dO fb 85 


62 


24f9 


: c5 c9 03 c8 d4 2e 01 Oe 


8c 


2749 


: 51 3a 00 01 2d la 02 20 c4 


22bl 


: 22 68 68 Oa 8d 21 lb Oa 


c5 


2501 


10 44 c9 c5 20 52 d5 ce 


e8 


2751 


: 20 20 20 20 20 20 00 ee 2e 


22b9 


: Oa 6d 21 lb 65 22 85 22 


e7 


2509 


c4 e5 20 d7 c9 d2 e4 20 


39 


2759 


: c5 e9 ee ca cl 20 20 01 af 


22cl 


: 68 65 22 a6 67 18 75 41 


c9 


2511 


ee c9 c3 c8 d4 20 c7 e5 


c7 


2761 


: 20 00 02 4f 52 42 49 54 fl 


22c9 


95 41 90 02 f6 43 a9 b3 


fb 


2519 


d7 c5 d2 d4 c5 d4 2e 00 


de 


2769 


: 02 01 23 03 03 dO d2 c5 a3 


22dl 


a2 24 20 cc 2a a5 6a 29 


f3 


2521 


01 02 01 02 2a 2a 2a 20 


81 


2771 


: d3 c5 ce d4 d3 03 01 03 d4 


22d9 


10 fO 17 a9 66 a2 24 20 


a9 


2529 


45 4e 44 45 52 47 45 42 


48 


2779 


: 10 48 c9 ce d4 c5 d2 c? 50 


22el 


ce 2a a5 67 dO 06 a9 32 


61 


2531 


4e 49 53 20 2a 2a 2a 01 


9b 


2781 


: d2 d5 ce e4 c6 cl d2 e2 d5 


22e9 


a2 27 dO 14 a9 26 a2 27 


7;i 


2539 


02 02 2d 2d 2d 2d 2d 2d 


79 


2789 


: c5 3a 01 2d 10 56 cf d2 ea 


22fl 


dO Oe a5 67 dO 06 a9 6e 


db 


2541 


2d 2d 2d 2d 2d 2d 2d 2d 


41 


2791 


e4 c5 d2 07 d2 d5 ce c4 86 


22f9 


a2 24 dO 04 a9 77 a2 24 


8b 


2549 


2d 2d 2d 2d 2d 02 01 13 


Ob 


2799 


c6 el d2 c2 c5 3a 01 03 85 


2301 


20 cc 2a a9 82 a2 24 20 


55 


2551 


Oa 03 44 cl d3 20 53 dO 


53 


27al 


12 44 c9 cl c7 cf ce el 3a 


2309 


cc 2a 20 77 2c ce 23 lb 


dd 


2559 


c9 e5 ec 20 e9 d3 d4 20 


Ob 


27a9 


ce c5 ce 3a 01 2d 12 47 a3 


2311 


fO 30 a9 8b a2 24 20 cc 


5a 


2561 


e2 c5 c5 ce c4 e5 d4 00 


If 


27bl 


c5 d3 c3 c8 d7 c9 ce c4 fa 


2319 


2a ad 23 lb c9 01 dO 06 


3a 


2569 


01 le 10 00 01 34 10 00 


6f 


27b9 


c9 c7 cb c5 c9 d4 3a 01 3f 


2321 


a9 9f a2 24 dO 04 a9 97 


ca 


2571 


01 09 14 5a cl c8 ce 20 


Id 


27cl 


03 14 42 05 d3 c3 c8 co 30 


2329 


a2 24 20 cc 2a a9 a6 a2 


4f 


2579 


c4 c5 d2 20 53 c9 c5 c7 


03 


27c9 


c5 d5 ce c9 c7 d5 ce c7 5b 


2331 


24 20 eo 2a ad 23 lb a2 


83 


2581 


c5 01 09 17 44 d5 d2 c3 


b2 


27dl 


3a 01 2d 14 48 09 ce c4 fl 


2339 


18 20 e2 2b 20 2e 24 4c 


14 


2589 


c8 d3 c3.c8 ce c9 d4 d4 


7d 


27d9 


c5 d2 ce e9 d3 d3 c5 3a 5b 


2341 


6a 1c 20 2a 24 20 57 2e 


80 


2591 


d3 da e5 c9 d4 00 56 45 


ad 


27el 


01 03 16 52 d5 ee o4 c5 a6 


2349 


a9 21 a2 25 20 cc 2a aO 


22 


2599 


43 54 4f 52 53 aO 06 b9 


ea 


27e9 


ee da cl c8 cc 3a 01 2d ab 


2351 


23 20 7e 2c aO If a2 le 


n 


25al 


fO lb d9 97 25 dO 05 88 


86 


27fl 


16 5a d5 c6 cl ec cc d3 eO 


2359 


20 cc cd 88 dO fa a2 18 


03 


25a9 


10 f5 30 64 aO 06 b9 97 


9d 


27f9 


d3 d4 cl d2 d4 3a 01 2d 7e 


2361 


20 cc cd a9 69 a2 25 20 


10 


25bl 


25 99 f lb 88 10 f 7 24 


74 


2801 


18 47 c5 c7 ce c5 d2 3a 02 


2369 


cc 2a a5 6a 29 10 fO 06 


e4 


25b9 . 


d7 30 03 20 2c cd a9 50 


e6 


2809 


01 00 18 3d 3e 20 02 53 4c 


2371 


a9 32 a2 27 dO 04 a9 6c 


6d 


25el : 


85 6a a9 80 8d 39 lb a2 


4a 


2811 


54 41 52 54 01 03 la 45 40 


2379 


a2 24 20 ec 2a ad 24 lb 


a6 


25e9 : 


07 86 69 20 e4 29 a9 02 


b4 


2819 


4e 44 45 02 01 00 Id 41 22 


2381 


a2 23 20 e2 2b a9 6d a2 


10 


25dl : 


85 2a a9 Od 85 2b a9 Oa 


e4 


2821 


d2 ce c5 20 4a cl ce d3 65 


2389 


25 20 cc 2a a5 6a 29 10 


a9 


25d9 : 


8d 18 lb 85 27 a9 00 85 


b5 


2829 


05 ce 20 26 20 48 cl d2 13. 


2391 


fO 06 a9 26 a2 27 dO 04 


62 


25el : 


af 85 5e a9 86 20 59 2e 


47 


2831 


cl cc c4 20 42 e5 e9 ce a5 


2399 


a9 77 a2 24 20 cc 2a ad 


97 


25e9 ; 


a2 Oc a9 b3 20 cc cd a9 


65 


2839 - 


05 20 31 39 38 36 20 2f 96 


23al 


25 lb a2 39 20 c2 2b a2 


2e 


25fl : 


16 a2 2d 20 40 2a a9 71 


87 


2841 


20 46 d2 el ee eb 20 48 cd 


23a9 


If aO 17 8e cl lb 8c c2 


5d 


25f9 : 


a2 25 20 cc 2a 20 7a 2c 


b5 


2849 . 


o5 c9 e4 c5 d2 ed cl ce Id 


23bl 


lb a2 02 8e c3 lb ca 8e 


ed 


2601 : 


a9 63 a2 2d 20 40 2a 85 


62 


2851 : 


ee d3 20 31 39 38 38 20 ae 


23b9 


cO lb ca 8e c8 lb 20 da 


27 


2609 ; 


5e a9 60 a2 27 20 cc 2a 


a3 


2859 : 


2d 20 28 43 29 20 43 cf 49 


23ol , 


23 a2 35 8e el lb a2 01 


d6 


2611 : 


a9 08 8d lb lb 20 69 29 


30 


2861 : 


dO d9 d2 c9 c7 c8 d4 20 62 


23c9 . 


20 da 23 20 2e 24 68 68 


9a 


2619 : 


20 77 2c a5 6a 29 10 dO 


86 


2869 : 


c2 d9 20 36 34 27 c5 d2 20 


23dl : 


20 7a 2c 20 78 le 4c 9c 


20 


2621 : 


06 a9 le a2 27 dO 04 a9 


34 


2871 : 


00 d3 e3 e8 d7 el d2 da fl 


23d9 : 


26 bd 24 lb dO Oc aO 03 


40 


2629 : 


2f a2 27 20 cc 2a a5 2a 


80 


2879 : 


20 20 c7 d2 el d5 20 20 81 


23el : 


a9 2d 99 e4 lb 88 10 fa 


4c 


2631 : 


a2 16 aO 10 20 lb 2c a5 


df 


2881 : 


20 20 20 c2 cc cl d5 20 84 


23e9 : 


30 40 aO 00 b5 41 38 fd 


a4 


2639 : 


2b a2 40 aO 10 20 lb 2c 


aO 


2889 : 


20 20 20 20 c8 c5 cc cc 4d 


23fl : 


24 lb 95 41 bO Oc 49 ff 


el 


2641 : 


a2 40 aO 12 a5 27 20 ca 


17 


2891 : 


c2 cc cl d5 20 c7 d2 d5 lc 


23f9 : 


69 01 85 22 b5 43 fO 05 


cc 


2649 : 


2b a2 16 aO 14 a5 6a 29 


c9 


2899 : 


c5 ce 20 20 20 20 c8 c5 83 


2401 : 


d6 43 c8 dO e7 bd 24 lb 


f8 


2651 : 


80 20 ef 2b a2 40 aO 14 


19 


28al : 


cc cc c7 d2 d5 c5 ce c2 6c 


2409 : 


4a c5 22 98 69 00 aO 30 


4b 


2659 : 


a5 6a 29 20 20 ef 2b a2 


f5 


28a9 : 


cc cl d5 c7 d2 el d5 20 97 


2411 : 


c9 3c 90 05 e9 3e c8 dO 


02 


2661 : 


16 aO 16 ad 18 lb 20 ea 


73 


28bl : 


d4 d5 c5 d2 cb e9 d3 20 d6 


2419 : 


f7 8c c4 lb 20 fb f9 8e 


d2 


2669 : 


2b a2 40 aO 16 a5 af 20 


97 


28b9 : 


20 c4 d5 ce eb e5 cc d2 4e 


2421 : 


c6 lb 8d c7 lb a9 3a 8d 


d4 


2671 : 


ef 2b a5 6a 29 10 dO 09 


15 


28cl : 


ef d4 08 c5 cc cc d2 ef 03 


2429 : 


c5 lb 4c 14 2c 20 4b 24 


4b 


2679 : 


a9 4c a2 27 20 cc 2a fO 


09 


28c9 : 


d4 20 20 d6 c9 ef cc e5 6a 


2431 : 


ad 00 do 2d 01 dc 29 10 


77 


2681 : 


10 a9 3c a2 27 20 ce 2a 


o4 


28dl : 


d4 d4 20 20 d2 ef d3 cl 9a 


2439 : 


fO f6 ad 00 dc 2d 01 do 


05 


2689 : 


a2 40 aO la a5 69 20 ca 


72 


28d9 : 


20 20 20 20 20 c2 d2 el fc 


2441 : 


29 10 dO f6 20 92 c9 4c 


dc 


2691 : 


2b a2 16 aO 12 ad 39 lb 


51 


28el : 


d5 ce 20 20 20 20 c? e5 d7 


2449 : 


03 c4 78 a9 08 8d 04 d4 


a8 


2699 : 


20 ef 2b 20 13 27 fO fb 


a6 


28e9 : 


cc c2 20 20 20 20 20 e8 38 


2451 : 


8d Ob d4 8d 12 d4 a9 00 


b9 


26al : 


48 20 92 c9 68 ac lb lb 


66 


28fl : 


c5 ce ce c7 d2 cl d5 20 lb 


2459 : 


8d Oe dc a2 Oc 20 9b ee 


87 


26a9 : 


c9 fe dO 10 ce lb lb 10 


7a 


28f9 : 


d7 c5 c9 d3 d3 20 20 20 9f 
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2901 


20 8d 20 lb ad lb lb Oa 


88 


2b51 


ff 2c 10 lb 10 03 20 8e 


85 


2dal 


32 32 01 a5 00 64 46 00 


le 








2909 


aa bd 19 29 be la 29 8d 


5a 


2b59 


2b 20 ca cd a9 60 20 37 


8d 


2da9 


eb 00 62 03 01 aa 00 62 


b8 








2911 


21 lb 8c 22 lb 6c 21 lb 


f7 


2b6l 


If c8 cO 08 dO eO 2c 10 


fa 


2dbl 


4l 00 aa 00 60 03 01 aa 


14 








2919 


31 29 34 29 b8 29 76 29 


12 


2b69 


lb 10 Oa ad 09 lb 18 6d 


69 


2db9 


00 60 4l 00 eb 00 5e 03 


78 








2921 


8f 29 92 29 9c 29 cl 29 


7b 


2b71 


' 11 lb 6d 09 lb ee 09 lb 


18 


2del 


01 aa 00 5e 4l 00 aa 00 


a2 








2929 


41 le 95 29 02 2a e8 29 


ea 


2b79 


ad Oe lb 20 84 2b aO 00 


lc 


2de9 


4e 10 01 aa 00 4e 28 00 


c8 








2931 


a2 00 2c a2 01 ac 20 lb 


5f 


2b81 


4c d5 2a 18 65 5c 85 5c 


4d 


2ddl 


d2 00 4c 03 01 aa 00 4c 


15 








2939 


a9 Of eO fb dO 06 d6 2a 


06 


2b89 


90 02 e6 5d 60 8e 12 lb 


68 


2dd9 


28 00 aa 00 4a 03 01 aa 


c2 








2941 


30 le 10 le eO f? dO 08 


67 


2b91 


a2 08 Oa 08 ae 11 lb 28 


cb 


2del 


00 4a 28 00 d2 00 48 03 


65 








2949 


d5 2a fO 12 f6 2a dO 12 


da 


2b99 


08 2c 21 lb 30 04 26 62 


e4 


2de9 


01 aa 00 48 28 00 aa 00 


76 








2951 


cO ef dO 39 a5 2a a6 2b 


01 


2bal 


26 61 26 60 26 5f 88 10 


ad 


2dfl 


38 10 01 aa 00 38 41 00 


6e 








2959 


85 2b 86 2a bO Oa a9 00 


5d 


2ba9 


ee 28 ca dO e5 c8 b9 5f 


e2 


2df9 


eb 00 36 03 01 aa 00 36 


a4 








2961 


95 2a &5 2a c5 2b fO dO 


d5 


2bbl 


00 20 ca cd c8 cc 11 lb 


9b 


2e01 


4l 00 aa 00 34 03 01 aa 


a2 








2969 


a5 2b Oa Oa Oa Oa 05 2a 


cl 


2bb9 


dO f4 b9 5f 00 ac 12 lb 


41 


2e09 


00 34 4l 00 eb 00 32 03 


01 








2971 


a2 la 4c ce cd ad 20 lb 


ce 


2bcl 


60 aO 14 c9 Oa DO 02 e8 


bO 


2ell 


01 aa 00 32 41 00 fO 00 


86 








2979 


c9 fb dO 07 c6 27 dO Od 


58 


2bc9 


e8 8e cl lb 8c c2 lb a2 


5d 


2el9 


32 46 00 fO 00 32 32 01 


e9 








2981 


e6 27 60 e9 f7 dO 06 a5 


b5 


2bdl 


00 8e c6 lb e8 8e cO lb 


6a 


2e21 


fO 00 64 46 00 36 01 62 


6e 








2989 


27 c9 14 dO f3 60 a9 80 


9e 


2bd9 


e8 8e c3 lb 20 fb f9 eO 


e8 


2e29 


03 01 f 5 00 62 41 DO f 5 


46 








2991 


2c a9 20 2e a9 10 45 6a 


24 


2bel 


30 dO 03 aa a9 20 8e c4 


ef 


2e31 


00 34 2e 01 f5 00 34 4l 


aa 








2999 


85 6a 60 ad 20 lb c9 fb 


lb 


2be9 


lb 8d c5 lb dO 25 8e cl 


94 


2e39 


00 36 01 34 03 01 fa DO 


3t 








29al 


dO 09 ce 18 lb dO Of ee 


ff 


2b fl 


lb 8c c2 lb a2 03 8e c3 


6a 


2e4l 


36 3c 00 fa 00 36 2a 01 


51 








29a9 


18 lb 60 c9 f7 dO 07 ad 


le 


2b f9 


lb a2 01 8e cO lb ca 8e 


a5 


2e49 


fa 00 60 3c 00 3b 01 32 


25 








29bl 


18 lb c9 63 dO fl 60 ad 


af 


2c01 


c8 lb a8 fO 02 aO 04 b9 


48 


2e51 


46 00 81 01 32 03 01 3b 


ce 








29b9 


39 lb 49 80 8d 39 lb 60 


b2 


2c09 


58 27 9d c4 lb c8 e8 eO 


52 


2e59 


01 34 46 00 3b 01 34 03 


99 








29cl 


a5 af 49 80 85 af 60 ad 


53 


2cll 


04 dO f4 a9 cO a2 lb 4c 


16 


2e6l 


01 3b 01 36 46 DO 81 01 


73 








29c9 


20 lb c9 fb dO 07 c6 69 


9e 


2el9 


cc 2a 8e cl lb 8c c2 lb 


2d 


2e69 


36 03 01 65 01 38 lb 00 


4c 








29dl 


dO Of e6 69 60 c9 f7 dO 


e5 


2e21 


a2 03 8e c3 lb a2 01 8e 


49 


2e71 


65 01 38 2c 01 60 01 64 


ca 








29d9 


08 a5 69 c9 Oa fO 02 e6 


45 


2c29 


cO lb ca 8e cd lb 85 22 


Ob 


2e79 


05 00 60 01 38 2c 01 5b 


56 








29el 


69 a6 69 bd Id 2a 48 29 


46 


2c31 


Oa Oa Oa 65 22 a8 b9 72 


a3 


2e81 


01 38 05 00 5b 01 38 2c 


d7 








29e9 


Of 85 22 68 29 fO 8d 16 


cd 


2c39 


28 9d c4 lb c8 e8 eO 09 


2e 


2e89 


01 56 01 64 05 00 56 01 


2e 








29fl 


lb 29 7f 09 01 8d 07 lb 


71 


2c4l 


dO f4 fO cf 4a 90 03 a2 


3c 


2e91 


38 2c 01 86 01 32 46 00 


ab 








29f9 


a5 6a 29 f 05 22 85 6a 


88 


2c49 


2a 2c a2 00 8e cl lb Oa 


a9 


2e99 


ce 01 32 32 01 86 01 64 


ca 








2a01 


60 ad 20 lb c9 ef dO f 8 


f5 


2c51 


69 10 8d C2 lb 60 a9 00 


d9 


2eal 


46 00 86 01 34 30 01 86 


7f 








2a09 


8d fO lb 20 09 el 20 00 


f9 


2c59 


aO 85 a2 12 20 cc cd e8 


18 


2ea9 


01 34 41 00 c7 01 34 2e 


g6 








2all 


cO 20 Oc ce 20 b6 77 ee 


32 


2c61 


a9 00 20 ce cd 20 ca cd 


51 


2ebl 


01 8b 01 62 3c 00 8b 01 


f8 








2al9 


04 Oa 4e 03 40 00 01 05 


aS 


2c69 


ca 20 ce cd 88 do fa 60 


ee 


2eb9 


36 2c 01 8b 01 36 37 00 


56 








2a21 


6d 8f af ff 8a 81 Oa 01 


40 


2c71 


20 57 2c aO Ob 2c aO 10 


11 


2ecl 


c2 01 36 2a 01 90 01 60 


30 








2a29 


02 03 04 05 06 07 08 Oa 


lb 


2c79 


2c aO 08 be 92 2c 30 ef 


fa 


2ec9 


32 00 90 01 38 28 01 90 


2a 








2a3l 


Oc Of 12 16 la le 23 28 


7c 


2c81 


c8 b9 92 2c 20 cc cd c8 


81 


2edl 


01 38 2d 00 d6 01 32 32 


dc 








2a39 


2d 32 3c fe fd fb f7 85 


19 


2c89 


dO fl 20 71 2c aO 15 dO 


46 


2ed9 


01 d6 01 64 05 00 db 01 


d4 








2a4l 


5c 86 5d aO 00 bl 5c 85 


56 


2c91 


ea 01 60 04 2e 05 01 1c 


dc 


2eel 


32 32 01 db 01 32 05 00 


9e 








2a49 


a4 c8 bl 5c 10 01 60 85 


df 


2c99 


ff Oc 86 ff 22 70 23 78 


63 


2ee9 


eO 01 32 32 01 eO 01 64 


01 








2aSl 


a5 c8 bl 5c 85 a6 a5 5e 


33 


2cal 


ff 22 7d 23 64 ff 02 67 


92 


2efl 


05 00 e5 01 36 2e 01 e5 


34 








2a59 


fO 03 c8 bl 5c 85 lb c8 


23 


2ca9 


06 le 07 27 f f 02 6d 06 


37 


2ef9 


01 36 23 00 08 02 36 Of 


66 








2a61 


bl 5c 85 a3 c8 bl 5c dO 


43 


2cbl 


2e 07 2d ff 12 2d 13 00 


85 


2f01 


01 ea 01 45 le 00 ea 01 


fO 








2a69 


11 20 cO 2a 20 c4 le 69 


73 


2cb9 


18 80 20 eO 21 00 ff 00 


48 


2f09 


45 03 01 ea 01 47 23 00 


44 








2a71 


00 dO 01 e8 c6 a3 dO f4 


ed 


2ccl 


00 00 00 00 00 00 01 00 


c6 


2fll 


Od 02 34 14 01 e5 01 34 


5b 








2a79 


fO c9 c9 01 dO 11 20 cO 


78 


2c c9 


00 5d 00 5c 01 01 00 07 


2a 


2fl9 


28 00 e5 01 32 03 01 e5 


e6 








2a8i 


2a 20 c4 le c8 dO 02 e6 


99 


2cdl 


01 5c 01 08 00 28 00 83 


8a 


2f21 


01 32 2d 00 12 02 32 18 


bl 








2a89 


lb c6 a3 dO f4 fO b4 c9 


47 


2ed9 


01 01 00 07 01 83 01 00 


6c 


2f29 


01 ea 01 49 28 DO ea 01 


39 








2a91 


02 dO 16 20 cO 2a 20 c4 


ee 


2cel 


00 00 00 83 02 00 00 5e 


2f 


2f31 


49 03 Dl ea Dl 4b Of DO 


40 








2a99 


le e9 01 bO 01 ca c8 dO 


2d 


2ce9 


00 00 00 60 01 00 00 00 


06 


2f39 


f9 01 4b 19 01 f9 01 64 


56 








2aal 


02 e6 lb c6 a3 dO ef fO 


18 


2cfl 


01 60 01 00 00 00 02 60 


2c 


2f4l 


05 00 fe 01 4b 05 DO fe 


01 








2aa9 


9a 20 cO 2a 20 c4 le 69 


3c 


2cf9 


01 eO 00 00 00 01 00 00 


73 


2f49 


01 4b 19 01 03 02 4b la 


f8 








2abl 


00 dO 01 e8 c8 dO 02 e6 


60 


2d01 


01 00 00 01 01 5f 01 eO 


f3 


2f51 


01 le 02 32 46 00 lc 02 


00 








2ab9 


lb c6 a3 dO ef fO 84 c8 


64 


2d09 


02 01 00 00 01 eO 02 01 


ad 


2f59 


32 03 01 le 02 34 46 00 


ac 








2acl 


98 20 84 2b a5 a4 a6 a5 


55 


2dll 


01 5 f 01 ff ff 3b 00 78 


cd 


2f6l 


62 02 34 03 01 lc 02 36 


97 








2ac9 


a4 a6 60 85 5c 86 5d aO 


3a 


2dl9 


00 00 3b 01 78 00 DO 3b 


06 


2f69 


46 00 le 02 36 17 01 lc 


4f 








2adl 


00 8c 10 lb bl 5c fO f2 


26 


2d21 


00 90 00 00 3b 01 90 00 


67 


2f71 


02 4d 05 00 21 02 38 15 


88 








2ad9 


c8 Sc Oe lb c9 01 dO 11 


dS 


2d29 


00 3b 00 94 00 00 3b 01 


48 


2f79 


01 21 02 38 05 00 26 02 


7f 








2ael 


bl 5c 8d 09 lb c8 bl 5c 


be 


2d31 


94 00 00 3b 00 ae DO 00 


a2 


2f81 


38 15 01 26 02 4d 37 00 


bO 








2ae9 


Oa Oa Oa 8d Oa lb c8 dO 


6b 


2d39 


3b 01 ae 00 00 3b 00 c8 


Oc 


2f89 


5d 02 4b 03 01 2b 02 4b 


23 








2afl 


e3 c9 03 fO Oa c9 02 dO 


30 


2d4l 


00 00 3b 01 e8 00 00 3a 


31 


2f91 


32 00 2b 02 49 03 01 2b 


d6 








2af9 


la a9 03 a2 00 f 04 a9 


e8 


2d49 


00 78 51 01 de 00 79 50 


6e 


2f99 


02 49 37 00 62 02 49 lb 


9f 








2b01 


01 a2 80 8d 11 lb 8e 21 


8c 


2d51 


01 e4 00 79 50 01 90 01 


45 


2fal 


01 5d 02 64 05 00 5d 02 


26 








2b09 


lb ad 10 lb 49 f f 8d 10 


4d 


2d59 


79 50 01 3a 02 78 51 01 


ad 


2fa9 


4f 15 01 58 02 4f 05 00 


7d 








2bll 


lb bO el c9 cO 90 02 e9 


9a 


2d61 


ff ff 00 00 00 64 03 e8 


21 


2fbl 


58 02 4f 15 01 lc 02 64 


43 








2bl9 


cO a2 00 86 5b 86 22 aO 


af 


2d69 


DO 00 64 02 00 00 00 05 


cd 


2fb9 


3c 00 lc 02 62 03 01 lc 


b7 








2b21 


03 Oa 26 5b 88 dO fa 85 


24 


2d71 


00 05 00 00 5f 03 C3 00 


11 


2fcl 


02 62 37 00 53 02 60 03 


8f 








2b29 


5a a5 5b 69 d8 85 5b ad 


dc 


2d79 


00 5f 02 be 00 00 05 00 


95 


2fc9 


01 lc 02 60 37 00 00 00 


de 








2b31 


09 lb a2 03 Oa 26 22 ca 


cl 


2S81 


be 00 00 5a 02 Oa 00 00 


fb 


2fdl 


69 00 00 00 01 69 00 00 


96 








2b39 


dO fa 86 lb a6 22 ac Oa 


ee 


2d89 


5a 03 9b 00 32 32 01 9b 


3c 














2b4l 


lb 20 c2 le aO 00 20 2a 


cO 


2d91 


00 64 05 00 aO 00 32 32 


3c 


Listin 
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2b49 


If ee 00 ff bl 5a ce 00 


08 


2d99 


01 aO 00 32 05 00 a5 00 


18 


(Forts 


etzung) 








m± 


OP 






Mgl»H;]!H3*cT3 


^ m 
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SPIELE 



C128 



2fd9 


• 00 02 69 80 00 00 00 6b 


1c 


3121 


00 f2 01 be 00 Oa 03 de 


8c 


3269 


03 84 01 bl 00 6b 03 48 Id 


2fel 


: 00 00 00 01 6b 00 00 00 


b8 


3129 


01 be 00 Oa 02 de 01 be 


5e 


3271 


01 bl 00 60 02 5c 01 bl el 


2fe9 


; 02 6b 80 00 00 00 6d 00 


77 


3131 


00 14 00 d4 01 c6 00 Of 


3a 


3279 


00 6b 02 e8 00 11 01 Oa 6d 


2ffl 


: 00 00 01 6d 00 00 00 02 


e3 


3139 


03 e3 01 d5 00 14 00 10 


ea 


3281 


03 f8 01 11 01 Oa 02 ff eb 


2ff9 


: 6d 80 00 7f 02 69 03 01 


10 


3141 


02 be 00 19 01 la 02 be 


27 


3289 


ff c8 00 61 00 a3 00 75 21 


3001 


: 00 00 6b 03 01 9f 01 00 


4e 


3149 


00 Oa 02 ff ff 70 01 bl 


ba 


3291 


01 61 00 a3 00 c8 00 01 00 


3009 


: 05 00 al 01 00 03 01 a5 


fe 


3151 


00 54 03 70 01 bl 00 54 


91 


3299 


01 a3 00 75 01 01 01 a3 7e 


3011 


01 00 03 01 a6 01 00 02 


6a 


3159 


02 lc 01 05 01 a9 00 46 


34 


32al 


00 d2 00 bl 00 ff 00 dl e4 


3019 


. 03 a8 01 00 02 02 a9 01 


8a 


3161 


00 3a 00 78 00 46 00 3a 


34 


32a9 


01 bl 00 3e 00 c8 00 01 93 


3021 


00 03 01 ff ff 46 30 84 


df 


3169 


00 50 01 50 00 94 00 64 


49 


32bl 


00 00 01 18 02 61 00 ff 20 


3029 


30 ee 30 4e 31 92 31 ac 


5e 


3171 


00 be 00 3a 00 50 01 22 


e3 


32b9 


01 00 00 bb 00 aO 00 40 b7 


3031 


• 31 02 32 28 32 8a 32 40 


b6 


3179 


02 3a 00 78 00 22 02 3a 


35 


32cl 


02 a? 00 aO 00 aO 00 39 22 


3039 


33 00 00 00 00 00 00 00 


6d 


3181 


00 50 01 9a 02 3a 00 50 


dO 


32c9 


00 82 01 40 02 a7 00 82 b5 


3041 


00 00 00 00 00 64 00 32 


c9 


3189 


01 2c 02 94 00 64 00 ff 


d7 


32dl 


01 14 00 61 00 8c 00 40 ee 


3049 


00 ff 01 7b 02 32 00 ff 


aa 


3191 


ff 55 01 41 00 eO 02 8a 


c7 


32d9 


02 01 01 8c 00 14 00 39 41 


3051 


01 dO 00 51 00 ff 00 of 


84 


3199 


01 41 00 eO 03 55 01 79 


29 


32el 


00 8c 00 00 00 4d 00 8c ab 


3059 


01 51 00 41 00 dO 00 15 


dc 


31al 


00 70 02 8a 01 79 00 70 


68 


32e9 


00 14 00 61 00 8c 00 00 84 


3061 


01 ff 00 cf 01 15 01 41 


9b 


3la9 


03 ff ff 00 00 af 00 ff 


29 


32fl 


00 75 00 8c 00 14 00 89 fl 


3069 


00 52 01 9d 00 28 01 52 


70 


31bl 


00 ff 00 af 00 67 00 00 


e2 


32f9 


00 8c 00 00 00 9d 00 8c 46 


3071 


01 9d 00 3e 00 8e 01 9d 


7c 


31b9 


00 b3 00 ff 00 ff 00 b3 


fa 


3301 


00 40 02 29 01 8o 00 54 e4 


3079 


00 28 01 52 01 e5 00 3d 


dl 


3 lei 


00 67 00 7a 01 af 00 ff 


52 


3309 


02 15 01 8e 00 40 02 01 74 


3081 


00 ff ff e9 00 5f 00 e4 


83 


31c9 


00 79 02 af 00 67 00 7a 


2d 


3311 


01 8o 00 54 02 ed 00 Se 8c 


3089 


00 e9 00 5f 00 2a 03 cd 


63 


31dl 


01 b3 00 ff 00 79 02 b3 


e7 


3319 


00 40 02 d9 00 8e 00 54 02 


3091 


01 5f 00 2a 03 13 01 89 


67 


31d9 


00 67 00 34 01 a5 00 78 


42 


3321 


02 c5 00 8c 00 aO 00 bb 14 


3099 


00 e4 00 e9 00 5f 00 7e 


41 


3 lei 


00 34 01 bd 00 78 00 8c 


dO 


3329 


00 50 02 c8 00 bl 00 64 41 


30al 


01 13 01 89 00 7e 01 f7 


85 


31e9 


00 Oe 00 78 02 54 02 Oe 


e6 


3331 


02 7e 02 4d 00 64 02 90 e8 


30a9 


01 89 00 7f 01 e9 00 dd 


7a 


31fl 


00 78 03 14 00 de 00 78 


49 


3339 


02 57 00 50 02 ff ff 28 61 


30bl 


00 2a 03 13 01 07 01 e4 


00 


3 if 9 


03 ce 02 dc 00 78 02 ff 


4a 


3341 


00 a7 00 f f 00 27 01 a7 al 


30b9 


00 cd 01 5f 00 7e 01 ed 


60 


3201 


ff 04 00 6b 00 c4 00 00 


96 


3349 


00 ff 00 26 02 a7 00 91 8e 


30cl 


01 dd 00 2a 03 e9 00 dd 


31 


3209 


00 f7 00 c9 00 c8 00 6b 


5b 


3351 


00 28 00 bb 00 f f 00 27 2b 


30c9 


00 e4 00 f f f f f8 00 94 


2c 


3211 


00 8c 01 17 02 6b 00 c5 


82 


3359 


01 bb 00 ff 00 26 02 bb e9 


30dl 


00 32 00 f8 00 94 00 14 


d6 


3219 


00 17 02 f7 00 c9 00 17 


al 


3361 


00 91 00 28 00 43 00 ff 49 


30d9 


02 e4 00 a8 00 19 01 e4 


f9 


3221 


02 6b 00 8e 01 ff ff 66 


47 


3369 


00 27 01 43 00 ff 00 26 f2 


30el 


00 cl 00 14 03 f8 00 d5 


e8 


3229 


01 43 00 dc 01 7a 01 43 


d6 


3371 


02 43 00 91 00 28 00 If c7 


30e9 


00 32 00 3e 01 cl 00 15 


13 


3231 


00 dc 01 66 01 43 00 14 


ff 


3379 


01 ff 00 27 01 If 01 ff 6c 


30fl 


02 2a 01 ad 00 14 03 f8 


9d 


3239 


00 66 01 If 01 15 00 48 


da 


3381 


00 26 02 If 01 91 00 28 e6 


30f9 


00 ad 00 32 00 f8 00 ad 


39 


3241 


01 43 00 14 00 48 01 43 


^ 


3389 


00 bb 00 64 01 28 00 43 ob 


3101 


00 14 02 5c 01 94 00 2d 


27 


3249 


00 6e 01 84 01 43 00 14 


a4 


3391 


00 64 01 b6 02 43 00 64 de 


3109 


01 5c 01 cl 00 4b 00 8e 


28 


3251 


00 84 01 43 00 6e 01 5c 


6c 


3399 


01 b6 02 bb 00 64 01 ff 15 


3111 


01 a8 00 2d 01 cO 01 94 


4f 


3259 


01 43 00 6e 01 98 01 43 


29 


33al 


ff 00 ff 00 ff 00 ff 00 aO 


3119 . 


00 14 02 d4 01 c6 00 28 


d5 


3261 


00 6e 01 98 01 bl 00 60 


4a 


Ustinj 


j 1. *Super-Vectors« (SchluB) 




Ein groBes Problem fur jedeh C 128-Fan ist 

immer noch der Mangel an guten Spieieiu Einen Beitrag, um 

diesen Mangel zu beheben, liefern wir mit Solitaire, einer gelungenen 

Umsetzung des bekannten Brettspiels auf den C 128 




Obwohl das Basic 7.0 des C 128 eine groBe Anzahl von 
Befehlen bietet, um die Spieleprogrammierung auf 
diesem Computer zu vereinfachen, fehlen noch im- 
mer gute Programme. Solitaire nutzt die Grafikeigenschaf- 
ten dieses Computers fiir eine einfache aber sehr gelunge- 
ne Umsetzung des bekannten Brettspiels. 

Solitaire ermoglicht eine sehr einfache Bedienung per 
Joystick und Tastatur. Es wird mit »B LOAD 'solitaire 128'« 
geladen und mit»RUN« gestartet. Nachdem Start zeichnet 
das Programm den Bildschirm mit dem Spielfeld und den 
32 Kugeln (Bild 1). Diese konnen mit dem Joystick bewegt 



werden. Dazu wird die gewunschte Kugel mit einem Druck 
auf den Feuerknopf angeklickt, worauf sie ihre Farbe an- 
dert. Betm nachsten Druck auf den Feuerknopf wird die Ku- 
gel auf das Feld bewegt, auf das Sie den Rahmen verscho- 
ben haben. Die dabei ubersprungene Kugel verschwindet 
vom Spielfeld, 

Solitaire erkennt jeden VerstoB gegen die Spielregeln, 
Falls der Spieler versucht, seine Kugeln auf Felder zu set- 
zen, die nicht erlaubt sind, wird der Spielzug einfach igno- 
riert. Haben Sie versehentlich eine falsche Kugel ange- 
wahit, so signalisieren Sie durch nochmaliges Anklicken 
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C128 



SP1ELE 



derselben Kugel, da8 dies ruckgangig gemacht warden 
soil. Daraufhin wird die Markierung geldscht und die nich- 
ste Kugel kann angeklickt werden. 

War der Zug dagegen korrekt (bei jedem Zug muB eine 
Kugel ubersprungen werden, dazu wird ein freier Platz auf 

Schummeln unmogiich 



der gegeniiberliegenden Seite benotigt), so zeigt Solitaire 
den neuen Spielfeldaufbau an. Man uberspringt auf diese 
Weise eine Kugel nach der anderen, urn sie aus dem Spiel- 
feld zu loschen. Das Ziel ist es, so lange zu springen, bis 
nur noch genau eine Kugel ubrig ist. Um dies zu erreichen, 
ist es nbtig, eine gewisse Strategie zu verfolgen: 

Als erstes raiimen Sie drei beliebige Ecken frei. In der 
vierten Ecke sollten Sie die letzten vier Kugel n in eine L-fdr- 



Solitaire 128 



Sound : l!M\M 
Kugeln: 5 



©c 



Bild 1. Diese Stellung sollten Sie anstreben, um Solitaire zu 
losen 

mige Anordnung bringen, bevor Sie Ihre letzten drei Zuge 
anwenden: Als erstes springen Sie auf der kurzen Seite Ih- 
res »L«, dann mit der langen auf die freigewordene Stelle 
und von dort tiber die letzte Kugel. Naturlich gibt es einige 
Varianten, die Sie noch ausfuhrlich ausprobieren konnen, 
wenn das Programm (Listing 1) eingegeben ist. 

Ganz so einfach, wie diese Beschreibung klingt, ist Soli- 
taire allerdings auch nicht zu losen. Aber auch fur den Fall, 
daB Sie irgendwann merken sollten, Sie kommen auf dem 
eingeschlagenen Weg nicht weiter, hat Solitaire vorge- 
sorgt: 

Es gibt eine ©ingebaute Hilfsfunktion, die es Ihnen er- 
laubt, Ihren Weg einfach ein Stuck zuruckzugehen, um 

Nutzliche Hilfsfunktion 



dann einen neuen zu versuchen. Driicken Sie dazu die bet- 
denTasten <SHIFT> und <CTRL> gleichzeitig.Siesind 
damit genau um einen Spielzug zuriickversetzt. 

Wollen Sie dagegen das Spiel neu beginnen, so drucken 
Sie gleichzeitig die drei Tasten <CTRL> , < SHIFT > und 
< CBM > . Die Ausgangsstellung von Solitaire wird darauf- 
hin aufgebaut, Sie konnen nochmals starten. 

Wem das Programm nicht komplex genug ist, der kann 
sich durchaus seine eigene Erweiterung bauen. Beispiels- 
weise konnte man die Zahl der Kugeln (im Moment 32) er- 



S o 1 



t a 



re 12 8 



Sound 

Kugeln : 



U1MJ 
32 



CCCCCCC 
€>©© ©C© 
©©©©©©© 

©©© 

©©© 



Bild 2. Dies ist die Ausgangsstellung von Solitaire 

hdhen, oder als zusatzliche Spielregel die Bedingung ein- 
fiihren, daB die letzte Kugel in der Mitte landen mu6. Sie 
mussen lediglich darauf achten, daB Sie Ihre Erweiterun- 
gen nicht nur in die Grafik einbauen, sondern auch abfra- 
gen. Solitaire ist so iibersichtlich programm iert, dafl Erwei- 
terungen problemlos moglich stnd. 

Eingabehinweise 

Bitte geben Sie das Programm mit dem Checksummer 
(Seite 15S) ein und speichern Sie es auf Diskette. Danach 
konnen Sie es mit 

BLOAD "SOLITAIRE 128" 

laden und mit RUN starten. (Achim Schlieper/so) 






1 rem «##**•#*+**■*•**#*#»#*#*##**#•#*»##»»#• 

2 REM * SOLITAIRE 126 • 

3 REJ1 # > 

4 REN • SESCHRIEBEN VON j ACHIM SCHLIEPER » 

5 REM • ARDEVSTR.239 * 

6 REM * 5BI0 WITTEN 6 * 

7 REM a************************************* 
10 ELR 

20 DIM FEt9,9): DIM SI (33> s DIM 32(33): DIM Dl (33 
>: DIM D2<33>: DIM MI (331 I DIM M2<33>: SOTO 10 

a 

39 REM UNTERPROSRAHM ZEISER BEWEQEN 

40 HDVSPR S,73+<24*X1I ,31+{24»V1> : RETURN 
50 REM SPRITE 2L0ESCHEN*S0UND 

69 EN=0: SPRITE 2,8: SOUND 1,500, SO: FOR L-l TO 3 
8: NEXT L; RETURN 

70 SOUND OFF /ON 

B0 COLOR 1,14: IF SO-10 THEN SO-©: CHAR ,0,4, "OFF 
",1: FDR U-l TO 30: NEXT : GOTO 330: ELSE SD=1 
0s CHAR ,0,4, "ON ",1: FOR U-t TO 36: NEXT : GO 
TO 330 

99 REM SPIELFELDAUFBAU 

108 RESTORE : FOR O-l TO 0; SPRITE 0,0: NEXT 
110 COLOR 0,1.- COLOR 4,ll COLOR 1 ,S: WIDTH ll BRA 

PHIC 1,1s FAST 
120 CIRCLE 1,20,20,10s CIRCLE 1,23,1H,4: PAINT 1, 

IS, 22: SSHAPE A*, B, 19,31 ,31 : SPRSAV A»,l: QRA 

PHIC I t ls BOX 1,0,10,30,30s SSHAPE 8*, 0,10,31 

,31: SPRSAV 8*,S: GRAPHIC 1,1 
130 FOR V=9 TO 1: FOR X=l TO 3: SSHAPE A*,98+<24* 

X> ,25»<24*YJ ,0: NEXT X,V 
140 FOR y-2 TO 4s FDR X=l TO 7s SSHAPE A*,59+<24* 

X),2S+(24*V) ,0: NEXT X,Vs BSHAPE A*,50+<24*4> 

,25+(24»3),4: SPRSAV A*, 2: SPRSAV A*, 3: SPRSA 

V A*, 4 
150 FOR ¥=5 TD 6: FOR X=l TO 3: GSHAPE A*,9S+<24» 

X) ,25+(24*¥>,0: NEXT X,Y 
160 COLOR 1,16 
170 DRAW 1,116,18 TO 200,18 TO 200, 66 TO 24B,66 T 

O 240,140 TO 200,140 TO 200,196 TD 118,196 TO 
118,149 TO 63,1*9 TO 68,70 TO 63,66 TD 116,6 

6 TD 116, IS 
180 DRAW 1,113,15 TO 203,13 TO 203,63 TO 251,63 T 

O 251,151 TD 203,151 TO 203,19V TD 115,199 TO 
115,152 TO 65,152 TO 65,67 TO 65,63 TD 113,6 

3 TD 113,15 

Listing t. Bitte mit dem Checksummer 
(Seite 158) eingeben 



<640> 
<68P> 
<6CP> 
<8HE> 
<6KQ> 
<6DR> 
<6SR> 
<ALB> 



•CUK0> 
<APB> 

■.614 
<B9D> 

<LP6> 
<IIH> 



<LBF> 
<:091> 
<J02> 

<PEL> 



<11D> 

<GB9> 



<TIF> 
<CSM> 



£1/ 



SONDERHEFT 36 
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EINGABEHILFEN 



C128 



176 
200 



22 e 
230 
24 e 

256 

266 

278 
286 

296 

366 

316 

326 
530 

340 

366 
376 
330 
396 
460 
416 

420 
430 
440 



PAINT 1,120,16 

COLOR 1,2: CHAR ,B,0, " (CTRL+N}£ D L I T A I R 

etaspflcEii 2 a": char ,8,i,"7TTrrrrtTnTtTiT 

■i'TTWrYi- 

CQLOR 1,141 CHAR ,6,4, " <CTRL+N> SOUND :": CHAR 

,B,4,"DFF",1 
CHAR ,0,6,"(CTRL+N}AIJGELN:": CHAR ,8,6,-32" 

REM ZEIGER PD5ITIDNIEREN 

MOVSPR 8,75+(24»4> ,51+(24*4>s SPRITE 8,1,16 

REM — DATAZEILEN + E1NLESEN 

Wlll-1: V(S)=2: V<3»=3: V<7>»4: T(7)-l: T<5>- 

2i T(2>-3 

Xl=4: VI =4: X6-0; Y»=6: XM-4: YM-4: ZA=32 

DATA 2,2,2,2,2,2,2,2,2: DATA 2,2,2,1,1,1,2,2, 

2: DATA 2,2,2,1,1,1,2,2,2 

DATA 2,1,1,1,1,1,1,1,2: DATA 2,1,1,1,6,1,1,1, 

2j DATA 2,1,1,1,1,1,1,1,2 

DATA 2,2,2,1,1,1,2,2,2: DATA 2,2,2,1,1,1,2,2, 

2: DATA 2,2,2,2,2,2,2,2,2 

FOR Y»6 TO B: FOR X=8 TO Bs READ FE<X,Y>: NEX 

T X,¥: SLOW 

REM JOY - ABFRAGE 

J2=JQY12>: T1-PEEKI211); IF J2=0 AND T1=»0 GOT 

336 

IF J2-128 GOTO 530 

IF J2>7 THEN 336 

ON T<T1> GOTO 70,740,86 

ON VIJ2! BOTO 410,440,470,300 

GOTO 336 

REM UNTERPRDGRAMME 

REM JOY - 1 (UP) 

Y1=Y1-1; IF FE<XI,Y1>=2 THEN Yl=Yl+li GOTO 33 

6 

GOSUB 46: QDTO 330 

REM JOY = 5 (DOWN) 

Y1=Y1+1: IF FE<X1,¥1>=2 THEN Y1=Y1-1: SOTO 33 



458 80SUB 40: OOTO 330 

460 REM JOY = 3 (RIGHT) 

470 Xl=Xl+l: IF FEIX1,YU=2 THEN Xl=Xl-li BOTO 33 



400 GOSUB 46: BOTO 330 

470 REM — JOY - 7 (LEFT) 

568 Xl-Xl-li IF FEIX1.Y1I-2 THEN X1=X]+I: 



GOTO 33 



510 GOSUB 46: BOTO 330 

526 REM JOY = M1TTE + FEUERKNOPF 

530 IF EN=I GOTO 556 

546 IF FE(X1,Y1)=0 GOTO 330: ELSE X0=X1: Y0=YI: E 
N=l: MOVSPR 2,74+t24*Xl),51+(24»Yl): SOUND 1, 
B06,SO: SPRITE 2,1,4: FDR TY-1 TO 30J NEXT : 
SOTO 330 



<U37> 

<SM2> 
<261> 
<JQF> 
<CLE> 
<IA9> 

<GDG> 
<JNS> 

<0MV> 

<HP2> 

■C3«L> 

<S36> 

<J2C> 

<A71> 
<R37> 
<7CN> 
<MOO> 
<6BB> 
<RE1> 
<HQ7> 
<B2e> 

<JGU> 
<6JF> 
<BB3> 

<SB1> 
<6FC> 

■ hi-:- ■ 

■CBJB> 

<7RA> 
<IA7> 

<BAH> 
<6NF> 
<B2«> 

<AC0> 



558 IF X1OX0 AND Y1OY0 OR FEIX1,Y1>=1 THEN BOSU 

B 66: OOTO 330 
566 IF XIOX0 THEN XH*INT ( ( 1X1+X0) /2>+l ) -I : YM-Y1 

: ELSE YM-INT<< (Y1+Y8) /3> +1 >-l : XM=X1 
576 IF X6-X1 THEN 660 
586 IF X0+2OX1 AND X0-2OX1 THEN GOSUB 66: GOTD 

330 
596 BOTO 610 
600 IF Y0+2OY1 AND Y0-2OY1 THEN BOSUB 60: BOTO 

330 
610 IF F£CXM,YM)-0 THEN BOSUB 60S SOTO 330 
626 BOSUB 640: GOTO 330 

630 REM KUGELN NEU SETZEN 

646 : 

650 MOVSPR 3,74+<24»XI> ,51+124* (YD ): MOVSPR 4,74 

♦I24«XM) ,51+(24»YM) 
660 COLOR 1,14: ZA=ZA-1: ZA*=STR*(Zfl) : CHAR ,0,6, 

"<2SPACE3"; CHAR ,7,6, <IA*>: COLOR 1,S 
670 SPRITE 3,1,B: SPRITE 4,1,1: SPRITE 2,1,1: BSH 

APE A*,50+<24*X0),25+(24*(Y0-1»),4 
600 SOUND 1,1006,50: 6SHAPE A*,50+<24*X1 > ,25+ (24* 

(Yl-l)l,6i BSHAPE A*,56+I24«XM»,25+<24*(YM-11 

> ,1 
678 SPRITE 2,0: SPRITE 3,0: SPRITE 4,0: EN-6: FE( 

xe.vei-e: fe(xi,yd-i; feixm,ym>=0 

766 SI <ZA)=X1: S2(ZA)=Y1: DHZA1=X0: D2(ZA)=Y0: M 

1(ZA)=XM: M2<ZA)-YM 
716 RETURN 
720 END 

730 REM KUGEL - POS. WIEDERHERSTELLEN — 

740 IF ZA>31 THEN GOTO 330 

750 MOVSPR 2,74+<24«DKZA>> ,51 + {24»D2<ZA> > : MOVSP 
R 3,74+!24»Sl «ZA>) ,51+ C24*S2(ZA> > : MOVSPR 4,7 
4+C24»MUZA) ) ,51 + (24«M2(ZAK: COLOR 1,8 
766 SPRITE 2,1,8= SPRITE 3,1,1: SPRITE 4,1,8 
770 2A=ZA+I: ZA*=STR*< ZA> : COLOR 1,14: CHAR ,7,6, 

(ZA*>: COLOR 1,8: ZA«=ZA-1 
786 BSHAPE A*,50+<24»SHZA> I ,25+<24*(S2<ZA>-l > > ,4 
: BSHAPE A*,50+ CZ4*D1 <ZA) > ,25+<24»{D2<ZA}-l > ) 
,6: BSHAPE A»,50+<24«M1 <ZA> ) ,25+<24*(MZ (ZA>-1 
>),9 
799 SPRITE 2,01 SPRITE 3,6: SPRITE 4,0 
B66 FE(SI (ZA) ,S2(ZA>>=0: FE(D1 (ZAI ,D2IZA> )-l : FE ( 

Ml (ZA> ,M2(ZA) ) =1 
810 ZA-ZA+1: BOTD 338 



Listing 1. »Solitaire« (SchfuB) 



<F0V> 
<SK2> 

<O07> 
<0Q7> 

<F6V> 
<TBU> 
<D4P> 
■:H0>7> 
<7CT> 

<78T> 

<ION> 

<BS0> 

<S47> 

<B9K> 

<BBB> 
<K27> 
<H66> 
<HA5> 
<V1V> 



<I2F> 
<7LU> 



<D2B> 

<0E0> 



<HDV> 
<«J2> 



:: : :SS ; - 




Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen Tipp- 
fehlerzu vermeiden und sparen eine Menge Zeit. 

I obody is perfect. Jeder Computer-Fan, egal ob bluti- 

ger Anfanger Oder ausgefuchster Profi, macht beim 

I Abtippen von Programmen Tippfehler. Diese Fehler 

spaterzu finden, kann ein langwieriges Unterfangen wer- 

den. 
Deshalb haben wir fur Sie die Programme »Checksum- 

mer 128« und »MSE« (Maschinen-Sprache-Editor) ent- 



N 



wickelt. Der Checksummer ist fur Basic-Programme und 
der MSE fur Maschinensprache-Listings zustandig. 

Der MSE 



Wie eben erwahnt, dient der MSE zur Eingabe von 
Maschinensprache-Programmen. Als erstes mussen Sie 
den sogenannten »MSE-Lader« (Listing 1) abtippen. Dieser 
erzeugt das eigentliche MSE-Programm auf Diskette oder 
Kassette. 
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5 PRINT CHR*!14) <KOS> 

10 PRINT "{CLR!" 1HH 

30 PRINT " {4DCMN,g5PflCE>J£5T<Z5PACE , BLU E , 6SPACE > " <QBS> 

Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklart 

In Zeile 10 miissen Sie nach den Anfuhrungsstrichen die 
Tasten < SHIFT CLR/HOME> drucken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drucken Sie nach den Anfuhrungsstrichen die CBM- 
Taste und den Buchstaben < Q > , gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum SchluB die CBM- 
Taste und den Buchstaben <W>. In Zeile 30 ist es vier- 
mal die CURSOR-abwarts-Taste, gefolgt von zweimali- 
ger Leertaste, dann <SHIFTT> und normal EST, zum 
SchluB noch zweimal die Leertaste, die Farbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 



Wichtig: Vor dem Eintippen des MSE-Laders mussen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeiiennummer): POKE 44,32 : POKE 8192,0 : NEW 
und < RETURN > drucken. Die Eingabe des MSE- 
Laders muB im C 64-Modus erfolgen, ebenso die Einga- 
be der MSE-Listings! 

Jetzt konnen Sie begin nen, das Listing 1 abzutippen. Der 
MSE-Lader erkennt, wenn Sie beim Eintippen der DATA- 
Zeilen einen Fehler gemacht haben. 

Wenn Sie das Listing 1 nicht auf einmal abtippen moch- 
ten, mussen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeile eingeben! 

Datasetten-Besitzer miissen die »8« am Ende von Zeile 
343 in eine »1« andern. 

Wenn Sie alles richtig gemacht haben und das Pro- 
gramm fehlerfrei abgetippt wurde, speichert es sich selbst 
auf Diskette Oder Kassette unter dem Namen »MSE V1.1«. 
Dieses fertige MSE-Programm laden Sie dann bei Bedarf 
wie ein normales Basic-Program m und starten es mit 
»RUN«. 



So arbeitet man mit dem MSE 

Als erstes mochte der MSE den Namen des zu bearbei- 
tenden Programms wissen. Dreser steht in der ersten Zeile 
unserer MSE-Listings. Dann mussen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz- 
ten beiden, vierstelligen Hexadezimalzahlen tn der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette la- 
den wollen, urn an einer bestimmten Stelle weiterzutippen 
Oder noch eine Korrektur vorzunehmen, geben Sie auf die 
Frage nach der Startadresse ein »L« ein. Danach mussen 
Sie »D« Oder »T« drucken, je nachdem, ob Sie von Diskette 
oder Kassette (»tape«) laden mochten. Wenn das Pro- 
gramm unter diesem Namen nicht auf der Diskette vorhan- 
den ist oder ein sonstiger Ladefehler vorlag, meldet sich 
der MSE mit »l/0-ERROR«. In so einem Fall drucken Sie 

< RUN/STOP RESTORE > und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie hintereinander die abgedruck- 
ten Buchstaben undZahlendesjeweiligen Listings ein. Fur 
die Leerzeichen zwischen den Zahlen sorgt der MSE auto- 
matisch selbst. Wenn Sie in einer Zeile einen Tippfehler ge- 
macht haben, meldet sich der MSE sofort mit einem 
Brummton und der Meldung »EINGABEFEHLER«. Nach 
einem Druck auf die < RETURN > -Taste konnen Sie mit 
der DEL-Taste den Fehler korrigieren. 

Wenn Sie das gewunschte Programm vollstandig einge- 
geben haben, speichert es der MSE automatisch auf Dis- 
kette oder Kassette. 

Bei langeren Listings ist es unwahrscheinlich, daB Sie 
das komplette Programm auf einmal eingeben. Sie konnen 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 
Diskette oder Kassette speichern und Ihr Werk spater fort- 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Spater geben 
Sie dann nach dem Laden des ersten Program mteils 

< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf- 
gehort haben zu tippen. 

<CTRL M > erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch <SPACE> konnen Sie weiterlisten lassen 
und durch <RUN/STOP> das Listen abbrechen. 



(CTRL! 


steht fDr Control -Taste, so bedeutet [CTRL+Aj, daB 


ICTRL+JJ 


Line-Feed -Taste 




Sie dig Control-Taste und die Taste »A« druckan 


(CTRL! 


Control-Taste 




mussen. Im folgenden stent: 


[BLACK] 


Control-Taste & 1 


IDOWNl 


Taste neben rechtem Shift, Cursor unten 


[WHITEJ 


Control-Taste & 2 


[UP) 


Shift-Taste & Taste neben rechtem Shift; 


[RED] 


Control-Taste & 3 




Cursor hooh 


[CYAN] 


Control-Taste & 4 


ICLRj 


Shift-Taste & 2. Taste von ganz rechts oben 


[PURPLE] 


Control-Taste & 5 


I INST) 


Shift-Taste & Taste ganz rechts oben 


[GREEN] 


Control -Taste & 6 


jHOME] 


2. Taste von ganz rechts oben 


[BLUE! 


Control-Taste & 7 


[DEL! 


Taste ganz rechts oben 


(YELLOW] 


Control -Taste & 8 


j RIGHT] 


Taste ganz rechts unten 


ERVSON] 


Control-Taste & 9 


ILEFTj 


Shift-Taste & Taste unten rechts 


[RVOFF] 


Control -Taste & 


[SPACEI 


Leertaste, Hinweis: (13 SPACE] bedeutet 13ma! 


[ORANGE] 


Commodore-Taste & 1 




die Leertaste drucken 


[BROWN] 


Commodore-Taste & 2 


jSHIFT- 




(LIG.RED] 


Commodore-Taste & 3 


SPACE! 


Shift-Taste & Leertaste 


(GREY 1] 


Commodore-Taste & 4 


!F1j 


graoer Tastenblock rechts oben 


[GREY 2j 


Commodore-Taste & 5 


(F3j 


grauer Tastenblock rechts oben 


[LJG.GREEN] Commodore-Taste & 6 


[F5) 


grayer Tastenblock rechts oben 


[UG.BLUE] 


Commodore-Taste & 7 


(F7) 


grauer Tastenbiock rechts oben 


[GREY 31 


Commodore-Taste & 8 


!F2! 


grauer Tastenblock rechts oben & Shift 






iF4] 


grauer Tastenblock rechts oben & Shift 


Wenn Sie sich erst ein mat an die in Ktartext geschriebenen Steuer- 


\F6l 


grauer Tastenblock rechts oben & Shift 


zeichen gewohnt haben, werden Sie den Vorteil dieser Schreibwei- 


[F8] 


grauer Tastenblock rechts oben & Shift 


se erkennen 


. Der zu dem jeweiligen Steuerzeichen gehdrende 


[RETURN! 


Return-Taste 


Klartext ist so verfaBt, daB Sie leicht die Taste beziehungsweise die 


(CTRL+I) 


TAB-Taste 


Tastenkombination finden, die Sie drucken mussen. 



Tabelle 1. Die Steuerbefehle fur den C128 im Klartext 



: 



H.»Md:l!IJ 
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C128 



Wenn Sie einen Drucker besitzen, konnen Sie das Pro- 
gramm auch mit <CTRL P> ausdrucken. 

Mit <CTRL L> wird das Programm noch einmal neu in 
Ihren C 128 geladen. 



Der Checksummer 128 



Zuerst einmal miissen Sie das Checksummer-Programm 
(siehe Listing 2) mit dem MSE im C64-Modus abtippen. Die 
Eingabehinweise entnehmen Sie bitte obigen Angaben zur 
Eingabevon MSE-Listings. Wenn Siefertigsind, speichern 
Sie das Programm auf Diskette oder Kassette. 

Jetzt geht es los: 
1. Starten Sie den Checksummer (im C 128-Modus) durch 



die Eingabe von »RUN« und das Drucken der RETURN- 
Taste. 

2. Wenn die Meldung »Checksummer 128 aktiv « auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler ge- 
macht und der Checksummer ist nun eingeschaltet. 

3. Nun konnen Sie den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drucken Sie die RETURN- 
Taste: 

10 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Priifsumme der eben eingegebenen Basic-Zeile. Sie muB 
<A99> lauten. Dem Checksummer ist es ubrigens egal, 
ob Sie »10 REM* oder »10REM« eintippen. Nur innerhalb 
von Anfiihrungszeichen ist die richtige Anzahl an Leerzei- 
chen wichtig. Diese Priifsummen erscheinen (sofern Sie 
den Checksummer 128 eingeschaltet haben) immer dann, 



100 REM DIESES PROGRAMM ERZEUGT DEN 
116 REM MSE VI. 1 AUF DISKETTE. 

129 REM BE5ITZER EINER DATASETTE 

130 REM MUESSEN DIE '8' AM ENDE VON 
140 REM ZEILE 343 IN EINE " f AENDERN ' 
ISO REM 

230 IF PEEKC44X>32 THEN PRINT " CCLRJSIE HABEN VE 

RGESSEN, DIE POKES EINZUGE- BEN" 1 : END 
240 PRINT "{CLR}";: DIM H(73): FOR 1=0 TO 9 
250 Ht48+I>=I: H(65+I ) =1+10: NEXT : Z=1000 

260 FOR I=204B TO 3755 STEP 20: PRINT "{HOMEJICH 
LESE ZEILE: "Z 

261 FOR N=© TO If: READ ft*: IF LENtA*X>2 THEN 90 



262 IF FEEK(63>+PEEK(64)*2560Z THEN B00 
270 H=ASCCLEFT*CA*,m : L=ASC CRISHT* <AS, 1 ) ) 
280 D=H(H)*16+H(L>: S=S+D: POKE I+N,D 

290 NEXT : READ V: IF SOV THEN 906 

300 5=0: Z=Z+ls NEXT : R=PEEK (2111 > i H=PEEK(2106S 

301 POKE 532B0,R: FOKE 53281, H: POKE 646, R: PRINT 

" {CLRJDIE DATA-ZE1LEN SIND FEHLERFREI ! " 

302 FRINT "SIE KOENNEN NUN DIE FARBEN DES MSE" 

303 FRINT "EINSTELLEN. " : PRINT "{2D0WN} CRVSON>DR 
UECKEN SIE <1>, <2> DDER <9> 

304 PRINT "{00WN,2SPACE1<1> - RAHMEN-/SCHRIFTFARB 
E 

305 PRINT " [2SPACE><2> - HINTERGRUNDFARBE 

306 PRINT "<D0WN,2SPACEK9> - FARBEN UEBERNEHMEN 

307 PRINT " (2D0WN}FARB£ <1>:"R: PRINT "FARBE <2>8 

■H 
30S GET A: IF A=0 THEN 308 

309 IF A=l THEN R=(R+1) AND 15 

310 IF A=2 THEN H=(H+1> AND 15 

311 IF A=9 THEN 340 

312 GOTO 301 

340 POKE 2106,H: POKE 2111,R 

342 POKE 631,19! POKE 632,13: POKE 19B,2 

343 PRINT "CCLRJSAVE" CHR*!34)"MS£ VI. 1" CHR*C34) 
»,B 

344 POKE 43,1: POKE 44, S: POKE 45,172: POKE 46,14 
: END 

B00 PRINT "<CLR,RVSON}SIE HABEN ZEILE"Z" CLEFT> VE 

R6ESSEN;": A=FEEK(646> AND 15 
S10 POKE 646, PEEK (53291) AND 15: PRINT ,, LIST' , Z-2" 

-"Z+2: POKE 646, A 
S20 GOTO 920 
900 FRINT " {CLR.RVSONJSIE HABEN EINEN TIPPFEHLER 

SEMACHT:": A=PEEK(646)' AND 15 
910 POKE 6 46, PEEK (53281) AND 15; PRINT *'LIST"Z: P 

QKE 646, A 
920 POKE 631,19: PDKE 632,17: FOKE 633,13: POKE 1 

98,3: END 

1000 DATA 00, 0B, 08, 0A, 00, 9E, 32, 30, 36, 31, 00, 00, 00 
A2,08,A9,36,B5,A4,A9, 1247 

1001 DATA 08,85,A5,A9,00,B5,A6,A9,B0,B5,A7,A0,00 
B1,A4,91,A6,GB,D0,F9, 28BB 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9, 36, 85, 01,40,00 
B0,20,D1,B1,A9,00,BD, 2781 

1003 DATA 21, D0,A9,0F, 60,20, DO, BD, 86, 02, A0,B3,A9 
74,20,FF,B1,A0,B3,A9, 2679 

1004 DATA B9,20,FF,B1,A0,00,20,CF,FF,99,01,02,CB 
C9,0D,D0,F5,BB,F0,D2, 2912 

1005 DATA 00,11, 90, 02, A0, 10,30,00, 02, 20, EA,B1,A0 
B3,A9,CF,20,FF,B1,20, 2327 

1006 DATA BE,B4,85,FC,85,62,20,8E,B4,85,FB,85,61 



20,A7,B4,D0,20,A0,B3, 2B64 

1007 DATA A9,E5,20,FF,B1,20,8E,B4,85,60,20,SE,B4, 
85,5F,20,A7,B4,D0,0A, 2624 

1008 DATA A5, 61, 05, 5F, AS, 62, E5, 60, 90, 06,20,43,63, 
4C,3A,B0,A9,AA,A0,09, 2379 

1009 DATA EA,EA,E6,FB,D0,02,E6,FC,20,3F,B2,90,EF, 
4C,FB,B4,A2,02,B6,5B, 3190 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0,FB,C9, 
30, 90, 00,09,47, 80, 0B, 2970 

1011 DATA C9,3A,90,09,C9,41,B0,07,C9,14,D0,0F,4C, 
0B,E1,20,D2,FF,A6,5B, 2322 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0,26,C9, 
0C,D0, 03,4C,0B,B6,C9, 2685 

1013 DATA 13,D0,03,4C,SB,B5,C9,0D,D0,03,4C,BA,B4, 
C9,10,D0,03,4C,6B,B5, 2282 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C,92,B0, 
AS,F9,20,02,B1,0A,0A, 2132 

1015 DATA 0A,0A,85,F9,A5,FB,20,02,B1,05,F9,60,C9, 
3A,90, 02,69, 08,29, 0F, 1950 

1016 DATA 60, A6, 59, £0,08,90, IF, A6,5S,E0,02,B0,06 , 
20,D2,FF,4C,BE,B0,C6, 2509 

1017 DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA,84,57, 
68,6S,4C,8B,B1,A6,D3, 2891 

1018 DATA E0,0B,B0,03,4C,92,B0,20,D2,FF,A6,58,E0, 
02, 90, 09, 06, 59, 20, D2, 246B 

1019 DATA FF,C6,5B,D0,F9,4C,BE,B0,48,4A,4A,4A,4A, 
20,59,B1,68,29,0F,C9, 2419 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2,FC,?A, 
20,DI,B1,20,48,B2,20, 2261 

1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,B1,A5,FB,20, 
4E,B1,20,ED,B1,A9,3A, 2860 

1022 DATA A0,20,2e,F2,Bl,A9,00,B5,59,20,BE,B0,20, 
ED,B1,A4,59,20,EF,B0, 2530 

1023 DATA 91,FB,CS,B4,59,C0,0S,90,EC,20,10,B2,A9, 
12,20,D2,FF,20,BE,B0, 2657 

1024 DATA 20,EF,B0,C;5,FF,F0,0D,20,43,B3,A9,14,A0, 
14,20,F2,B1,4C,A2,B1, 2665 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2,20,3F, 
B2,90,9F,4C,BB,B5,A9, 2648 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,DS,9D,00, 
□9,9D,00,DA,9D,00,D8, 2476 

1027 DATA EB,D0,EF,60,A9,0D,2C,A9,20,4C,D2,FF,20, 
D2,FF,9B,4C,D2,FF,20, 2965 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00,B1,5C, 
F0,06,20,D2,FF,CB,D0, 3100 

1029 DATA F6,60,A5,FB,B5,5A,A0,00,B4,5B,B1,FB,IS, 
65,5A,a5,5A,90,02,E6, 2606 

1030 DATA 5B,06,5A,26,5B,C8,C0,0B,90,EC,A5,5A,65, 
5B,B5,FF,60,18,A5,FB, 2467 

1031 DATA 69,08,8S,FB,90,02,E6,FC,60,A5,FB,C5,5F, 
A5,FC,E5,60,60,A0,B3, 3106 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20,D2,FF, 
CC, 00, 02, C9, 90, F4,A9, 2692 

1033 DATA 14,ED,00,02,AA,20,ED,B1,CA,D0,FA,A5,62, 
20,4E,Bl,A5,6l,20,4E, 2457 

1034 DATA B1,20,ED,B1,A5,60,20,4E,B1 ,A5,5F,20,4E, 
B1,EA,EA,EA,EA,EA,EA, 3122 

1035 DATA EA,EA,24,5E,10,01,60,A9,12,20,D2,FF,A2, 
28,20,ED,B1,CA,D»,FA, 2703 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01,60,A9, 
A0,B5,A4,A9,78,B5,A6, 2945 

1037 DATA A9,04,85,A5,B5,A7,A2,13,A0,27,Bl,A4,9t , 
A6,BB,10,F9,CA,F0, 19, 2671 

1038 DATA 1S,A5,A4,69,2B,85 T A4,90,02,E6,A5,18,A5, 
A6,69,2B,B5,A6,90,E0, 2503 
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1OT9 DATA E6 T A7,4C,B6,B2,A9,91,4C,D2,FF,A9,0F,BD, 
lB,D4,A9,00,aD,05,D4, 2776 

1940 DATA A9,F7,8D,06,D4,A9,li,aO,04,D4,A9,32,8D, 
01 ,D4,A9,00,BD,00,D4, 2413 

1941 DATA A0,a0,20,09,B3,A9,10,BD,04,D4,60,A2,FF, 
CA,D0,FO,B8,D0,FB,60, 2914 

1942 DATA A9,0F,8D,IB,D4,A9,2D,BD,05,D4,A9,A5,SD, 
06,D4,A9,21,BD,04,D4, 23S5 

1^43 DATA A9,07,8D,01,D4,A9,05,8D,00 T D4,A0,FF,20, 

09,B3,A9,20,eD,04,D4, 2250 
1OT4 DATA A9,00,BO,01,D4,8D,00,D4,60,38,20,F0,FF, 

8A,4B,98,4B,18,A0,06, 2179 
1045 DATA A2,1B,20,F0,FF,A0,B4,A9,©A,20,FF,B1,20, 

12,B3,20,E4,FF,F0,FB, 2931 
1646 DATA A2, ID , A9, I4,20,D2,FF,CA,D0,FA,6B,A8,6B, 

AA,18,4C,F0,FF,0D,0D, 2764 

1047 DATA 0D, 20, 20, 20, 20,20, 20, 20, 4D, 41 ,53, 4^:, 48, 
49,4E,45,4E,53,50,52, 1144 

1048 DATA 41, 43, 48,45,20, 2D, 20, 45, 44, 49, 54, 4F, 52, 
20,0D,0D,20,20,20,20, 1023 

1049 DATA 2©,20,20,20,5&,4F,4E,20,4E,2E,4D,41,4E, 
4E,20,26,20,44,2E,57, 1128 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20,20,20, 
50,52,4F,47,52,4I,4D, 1102 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D,0D,20,20, 
, 20,53,54,41,52,54,41, 1073 

1052 DATA 44,52, 45, 53, 53, 45, 20, 3A, 20, 24, 00, 0D.0D, 
20, 29, 20, 45, 4E, 44, 41, 1014 

1053 DATA 44, 52, 45, 53, 53, 45, 20, 20, 20, 3A, 20, 24, 00, 
92, 01, 01, 50,52, 4F, 47, 1136 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20,2A,2A, 
2A, 20,46,41,4c, 53, 43, 1024 

1055 DATA 4B,45,20,45,49,4E,47,41,42,45,20,2A,2A, 
2A,20,20,92,00,0D,0D, 105B 

1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A,2A,00, 
13,01,20,20,12,44,92, 916 

1057 DATA 49, 53, 4B, 20, 4F, 44, 45, 52, 29, 12,54,92,41, 
50,45,00,00,13,20,20, 1151 

1058 DATA 49, 2F,4F, 20,20, 20, 46, 45, 48,40,45,52,00, 
20,Dl,Bl,20,4e,B2,A0, 1606 

1059 DATA B3,A9,CF,20,FF,B1,20,SE,B4,85,FC,20,8E, 
B4,85,FB,D5,61,A5,FC, 3207' 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5,60,B0, 
19, 20, A7,B4, 00,14,60, 2B60 

1061 DATA 20,A7,B4,F0,0C,B5,F9,20,A7,B4,F0,05,85, 
F8,4C,EF,B0,68,6a,20, 2749 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0,09,20, 
D1,B1,20,48,B2,4C,6B, 2372 



1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 



DATA B6,C9,0D,60,A9,00,B5,5E,20,5F,B4,20,EA, 

B1,20,0D,B5,24,5E,30, 2042 

DATA 05,20,E4,FF,F0,FB,20,E1 ,FF,F0,26,20,9F, 

B2,24,5E,10,09,2O,4E, 2435 

DATA B5,20,0D,B5,20,60,B5,2O,33,82,20,3F,B2, 

90,D7,A0,B4,A9,28,20, 2190 

DATA FF,B1,20,E4,FF,C9,0D,D0,F9,A9,00,SS,5E, 

A5,61,85,FB,A5,62,B5, 3056 

DATA FC,20,E0,B2,4C,64,B1,A5,FC,20,4E,B1,A5, 

FB,85,FF,20,4E,B1,A9, 3003 

DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,B1,B1,FB, 

20,4E,B1,C8,C0,0B,90, 2566 

DATA F3,20,ED,B1,24,5E,30,03,A9,12,2C,A9,20, 

20,D2,FF,20,10,B2,A5, 2190 

DATA FF,20,4E,B1,A9,92,20,D2,FF,4C,EA,B1,A9, 

FF,85,B8,S5,B9,A9,04, 3073 

DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20,CC,FF 1 

A9,FF,4C,C3,FF,20,5F, 3315 

DATA B4,A9,80,B5,5E,20,4E,B5,20,4B,B2,A2,24, 

A9,2D,20,D2,FF,CA,DO, 2596 

DATA F"A,20,EA,B1,20,EA,B1,20,60,B5,4C,C1,B4, 

20,B8,B5,A6,5F,A4,60, 2B12 

DATA A9,61,20,DB,FF,B0,0A,20,B7,FF,29,BF,D0, 

03,4C,FB,B4,A9,01,20, 2577 

DATA C3,FF,20,6a,B6,A0,B4,A9,4F,20,FF,Bl ,20, 

F9,B1,4C,FB,B4, 20,68, 2921 

DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1,A2,08, 

C9,44,F0,06,A2,01,C9, 2717 

DATA 54,D0,F1,A9,01,AB,20,BA,FF,A0,00,E0,01, 

F0,1A,A9,40,8D,20,02, 2403 

DATA A9,3A,BD,21,02,B9,01,02,99,22,02,C8,CC, 

00,02,90,F4,C8,C8,D0, 2182 

DATA 0C,B9,01,02,99,20,02,CB,CC,00,02,D0,F4, 

98,A2,20,A0,02,4C,BD, 201B 

DATA FF,20,B8,B5,A5,BA,C9,0B,90,33,A6,B9,a6, 

57,A9,01,20,C3,FF,A9, 2800 

DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20,B4,FF, 

A5,B9,20,96,FF,20,A5, 2911 

DATA FF,B5,61,A5,90,4A,4A,B0, 13,20,A5,FF,85, 

62,20,AB,FF,A5,57,B5, 2663 

DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5,S6,5F, 

a4,60,A5,BA,C9,01,D0, 2639 

DATA 0A,AD,3D,03,B5,61,AD,3E,03,B5,62,4C,FB, 

B4,A9,13,20,D2,FF,A2, 2300 

DATA 1C,20,ED,B1,CA,D0,FA,60,00,00,00,00,00, 

00,00,00,00,00,00,00, 1230 



Listing 1. Der »MSE«-Lader fur die Eingabe von 

Maschinensprache- Prog ram men 



Name : checksummer 128 IcOl le9b 



IcOl 
lc09 

loll 
lcl9 
lc21 
lc29 

lc31 
1c39 

lc4l 

lc49 
lc51 
lc59 
lc6l 
lc69 
lc71 
lc79 
lc81 
lc89 
lc91 
lc99 
leal 
lca9 
lobl 
leb9 
lcel 
lcc9 
lcdl 
lcd9 



29 lc c3 
99 22 93 
53 55 4d 
32 38 20 
22 3a 9e 
00 00 a9 
85 7f a9 
85 4e a9 
85 50 a9 
a2 02 bl 
f9 e6 4f 
4c 2a Ob 
a9 00 8d 
d2 f f ad 
11 ad do 
ad dl 41 
ff 2o a9 
dO Ob 8d 
2b a9 Od 
a9 6c 8d 
03 03 2c 
27 Ob 4c 
10 03 4c 
20 af Ob 
el bO Oc 
Ob 20 af 
25 Ob 30 
d7 4d 2c 



0? fe 02 
43 48 45 
4d 45 52 
41 4b 54 
37 32 31 
80 85 9d 
ff 85 3c 
lc 85 4f 
Ob 85 51 
4e 91 50 
e6 51 ca 
00 00 00 
00 ff a9 
cf 41 c9 
41 c9 37 
c9 2e dO 
00 8d 25 
64 Od a9 
85 2c 20 

02 03 a9 
27 Ob 10 
35 Od 2c 
f9 Oc 20 
20 c2 Ob 
ce 26 Ob 
Ob 20 c2 

03 4c 94 
25 Ob 30 



30 3a 
43 4b 
20 31 
49 56 

31 00 
a9 00 
a9 59 
a9 22 
aO 00 
c8 dO 
10 f2 
00 00 
Od 20 
56 dO 
dO Oa 
03 a9 
Ob aa 
65 85 
cd Ob 
Ob 8d 
06 ee 
26 Ob 
a4 Ob 
aa fO 
20 e3 
Ob 2c 
a4 4c 
03 4c 



3f 

53 

d6 

cl 

60 

90 

74 

91 

If 

83 

00 

7d 

2f 

fd 

63 

61 

84 

8d 

96 

el 

3d 

fO 

00 

89 

da 

ce 

7d 

da 



lcel 
lee9 

lcfl 
lcf9 
IdOl 
ld09 
ldll 
ldl9 
1321 
ld29 
ld31 
ld39 
ld4l 
ld49 
ld51 
ld59 
ld6l 
ld69 
ld71 
ld79 
1381 
ld89 
ld91 
ld99 
ldal 
lda9 
idbl 
ldb9 
ldcl 
ldc9 



60 a5 
01 2c 
86 7b 
2e 25 
4c 80 
4c 44 
Ob 30 
50 2c 
a9 4c 
00 2c 
b5 15 
60 a9 
ff 85 
9d Oc 
20 8e 
Oc fO 
3a dO 
Oc c9 
c9 45 
4d dO 
c9 3a 
dO 02 
dO 02 
dO 02 
Oc fO 



3a 

Se 



20 9d 

f4 fO 
08 46 



4c 93 
25 Ob 
60 85 
Ob 30 
03 2c 
a6 4c 
03 4c 
25 Ob 
f 1 Ob 
25 Ob 
85 aa 
00 85 
fc a9 
f 77 
Oc 4c 
68 c9 
06 20 
52 dO 
dO la 
Ob 20 
dO f7 
c6 fd 
c6 fd 
c6 fd 
20 c9 
b8 c9 
4e 68 
Oc fO 
ec 60 
a7 28 



4f a9 
30 05 
3d 86 
03 4c 

25 Ob 
d9 51 
13 a6 
30 06 
20 aO 

10 02 
b5 14 
a7 85 
07 85 
c9 20 

11 Oc 
20 fO 
8e Oc 
29 20 
20 9d 
9d Oc 
fO dd 
c6 fc 
c6 fc 
c6 fc 
20 fO 
22 fO 
Oc 20 
06 c9 
06 a7 

26 a7 



ff a2 
85 7a 
3e 60 
73 00 
30 03 
2c 25 
4c 64 
20 6b 
50 a2 
a2 02 
85 a9 
a8 a9 
fd 20 
fO 06 
20 9d 
f7 c9 
4c 20 
9d Oc 
Oc c9 
f 43 
a5 fc 
a5 fc 
a5 fc 
20 9d 
f7 e9 
06 20 
8e Oe 
22 dO 
26 a8 
45 a7 



21 
el 
bf 
el 
45 
ce 
df 
b5 
5c 
8a 
8d 
bb 
4c 
85 
72 
2e 
44 
2b 
07 
7a 
29 
bO 
b8 
ec 
64 
c5 
7a 
a2 
fc 
e7 



Iddl 
ldd9 
Idel 
lde9 
ldfl 
ldf9 
leOl 
le09 
lell 
lel9 
le21 
le29 
le31 
le39 
le4l 
le49 
le51 
le59 
le6l 
le69 
le71 
le79 
le81 
le89 
le91 
le99 



85 a7 60 
f d aO 00 
ea ea ea 
ea a5 a8 
bf Oc 20 
04 06 a7 
f8 c9 Oa 
30 4c d2 
ff 38 20 
13 20 d2 
ff 20 b3 
ff 68 aa 
27 03 48 
49 8d 26 
03 2c 25 
2c a2 00 
aa 95 15 
8d 28 Ob 
ce 27 Ob 
20 f8 50 
Ob 68 8d 
03 20 d6 
ab 8a 48 
c9 Od dO 
08 ee 28 
18 60 ff 



e6 fc 
bl fc 
ea ea 
45 a7 
bf Oc 
26 a8 
90 02 
ff a9 
fO ff 
ff a9. 
Oc a9 
18 4c 
ad 26 
03 a9 
Ob 10 
a5 a9 
20 d8 
2c 25 
aO 02 
20 03 
26 03 
Oc 4c 
ae 28 
02 a9 
Ob 68 
ff ff 



dO 02 
60 ea 
ea ea 
85 a8 
a9 00 
2a ea 
69 06 
00 3d 
8a 48 
3c 20 
3e 20 
fO ff 
03 48 
Od 8d 
03 a2 
95 14 
Ob a9 
Ob 30 
4c d8 
Oc ee 
68 8d 
6c Ob 
Ob a5 
00 9d 
aa a5 
ff ff 



e6 4b 

ea bl 

ea eO 

20 02 

a2 Oa 

10 d6 

69 c9 

00 e5 

a9 lb 

d2 93 

d2 51 

ad b2 

a9 91 

27 ba 

02 ad 

a5 5e 

00 9c 

06 be 

a6 cd 

26 b6 

27 dO 
85 23 
ab 22 
00 5e 
ab 46 
f5 cd 



Listing 2. Der -Checksummer 128« 
fiir die Eingabe von Basic-Listings 
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wenn Sie eine Basic-Zeile eintippen und dann die 
RETURN-Taste drucken. In diesem Sonderheft finden Sie 
die Prufsumme immer am Ende jeder Prog ram mzeile. 

Diese Zahlen durfen Sie NICHT mit abtippen. Sie die- 
nen lediglich zur Kontrolle, ob Sie alles richtig eingege- 
ben haben, 

Als Beispiel konnen Sie Bild 1 betrachten. Am rechten 
Rand jeder Spalte sehen Sie die Priifsummen in spitzen 
Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 343 von Listing 1 genauer an, Nach dem er- 
sten Anfuhrungszeichen nach dem PRINT-Befehl sehen 
SieeinZeichen, dasSieauf derTastaturdesC 128vergeb- 
lich suchen werden: die geschweifte Klammer »[«. Immer, 
wenn Sie in einem unserer Listings diese Klammern sehen, 
durfen Sie das, was innerhalb der Klammern steht, nicht 
eintippen. Sie miissen die entsprechende Taste drucken. 
Beispiel: 10 PRINT" [CLR] W 

bedeutet: Nach dem Anfuhrungszeichen die »Bildschirm- 
I6schen«-Taste drucken ( < SHIFT CLR/HOME > ). In Tabel- 
le 1 sehen Sie eine Zusammenfassung aller moglichen 
Steuertasten und des entsprechenden Klartextes. 

Wenn Sie Bild 1 betrachten, sehen Sie in Zeile 30 inner- 
halb der Anfuhrungszeichen ein unterstrichenes »T« nach 
der geschweiften Klammer. Das bedeutet, daB Sie ein »T« 
zusammen mit der SHIFT-Taste drucken miissen, also 
< SHIFT T>. Wenn ein Zeichen »uberstrichen« ist, mils- 
sen Sie dieses zusammen mit der CBM-Taste eingeben. 
Die CBM-Taste befindet sich ganz links unten auf der Tasta- 
tur und hat die Aufschrift »C=«. Auf dem Bildschirm sehen 
Sie die entsprechenden Grafikzeichen (siehe Handbuch 
zum Computer, im Anhang). 

Synthetisdie Steuerzeichen 

Bitte beachten Sie, daB beim C128 mit grbBerer Wahr- 
scheinlichkeit als beim C64 synthetische Steuerzeichen 
auftreten konnen (SYNTH. :XXX). Dies ergibt sich aus der 
Menge an zusatzlichen (Bildschirm-) Steuerzeichen, be- 
sonders fiir den 80-Zeichen-Modus (Blinken ein, Blinken 
aus, Unterstreichen ein, Unterstreichen aus.,.), die sich 
nicht alle direkt fiber die Tastatur eingeben (assen. 1st er- 
kennbar, daB die Basic-Zeile fehlerfrei abgetippt ist, Sie al- 
so auf die Prufsumme verzichten konnen, so erscheint die 
korrekte Eingabe sehr leicht. Geben Sie anstelle des 
»SYNTH.:XXX« folgende Anweisungen ein: 

"+CHR$(XXX)+* 

Die CHR$-Anweisung ist dabei nicht innerhalb der An- 
fiihrungsstriche, sondern auBerhalb! 

Wollen Sie auf die Prufsumme nicht verzichten, ist die 
Eingabe etwas komplexer. Arbeiten Sie dazu folgende sie- 
ben Schritte ab: 

- Subtrahieren Sie von der Zahl nach der Angabe 
-SYNTH. :« den Wert 128. 

- Suchen Sie aus der Zeichencode-Tabelle im Handbuch 
(Anhang A-5) den dazugehorigen Buchstaben aus Satz 
1 aus. 

- Geben Sie die Basic-Zeile wie gewohnt ein und beriick- 
sichtigen das synthetische Steuerzeichen nicht, lassen 
aber einen Freiraum fiir ein Zeichen. 

- SchlieBen Sie die Eingabe mit < RETURN > ab. 

- Fahren Sie mit dem Cursor auf den Freiraum in der Ein- 
gabezeile. 

- Schalten Sie mit <CTRL 9> den Revers-Modus ein. 

- Geben Sie den Buchstaben, den Sie vorher aus Anhang 
A-5 ermittelt haben, geSHIFTet ein und drucken Sie 
< RETURN >. Die Prufsumme miiBte nun stimmen. 

(G. Mollmann, N, Mann, D. Weineck, A. Lietz/kn) 
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LnB' Dich in eine abenteuer- 
liche Spielewelt entf uhren: 

a lies, was Du dazu brauchst, ist ein C64 oder ein 
C 128, die Spieled isketten - und schon kann die 
Reise iosgehen! 

Nutze Deine Joystick-Kiinste, indem Du sicher einen 
Weg aus dem Labyrinth findest. Bewahre Deinen kiihlen 
Kopf in auf regenden Aktionszenen und Kampfduellen! 
Zeige Deine Fdhigkeiten als Borsenmakler in lebensnahen 
Wirtschaftssimulationen! Beweise Deine Fdhigkeiten als 
Prdsident, Manager und Trainer eines Bundesligaclubs 
und und und... 




S pVeles«« nmlun9 ' 

? e if52fase»en, 

Bano't™*' i.«He , 

^JusiveDWk^l m 



_i 



Die A?W?98SeHei., „ 



Mil Hen 15 '.partnendrui Spielftn. dor aus- 
fuhrlicKeri Arvleitung sowie dan fnrhigan 
BiFdichirmfoiQfi in Qjr ain Fonfaitiscnes 
Spiels rgnugen gewifj; 
rJolliard: EinFalliwinkel •= Auifaflswinfcel. 
Wer das nic'cKt befolgi, har ss ichwer bai 
dieser Mi idiung b\ji T«nnkund Biltard THb Way i Zu verjchlu nge- 
nen Ptaden gesellen ikh Gddsotke und bow Geister, die ei zu 
belcainpren gill. Vager 3: Joyslickpnofis mil iingeirubtam Visier- 
blfek undTrBrfariniiiriKi karma n ihr Punktekoftto-sdiw* r mil Abschufl- 
praroian fceiaden. Firebug: HoffenflJch Fongi Dein Joystick nieht 
ebonfall* Feuer, worm ss Koifii,, die wBrrwjllen Kcffer aus dem 
brennenden Haui des ProfeMori zu grwi&cKon, Plrat Taktik, 
Timing und gule Navigariofljkanntnisse lind Vorauss^izung fur ein 
bit zu 25 Jahre large* Pirarenlaben Wtr+schnftsmonagor 
Simulaiian aus den ndduten Elagen der Wirtschofr, nichl 1000 
Stuck, jrondofn ganzo Firman gehen iiber don ■LodentTKh«. Vier 
gowinnt: Einradi, abergorade dfldiatbein Spiel, das schnell zu 
trfolgierktbniiMfi Fuhrf Brainstorm Masle*mmo'itand Pate Fur 
diasaivrajMiiigeDenkspiof. Hyora-Chesf: Spiel' ScFtathgegen 
einen C64, Maw; Wer die Qbemehi behoft und nick kopflos 
heninttpringf, wird das Ziel errerichon. Schtffe versenkan: 
Er>dlich eine faire Version dieses weiTverbreitfUan Spieles, mil 
su-.arrlichon SpioKorrdflfen- Handel; Hier kannsl Du domen 
GevcKaF:i5*rvn und Deine Rnikobentitvchart untcr Berweis Italian, 
ohne wirklich spnier am Hungertuch nagen ju mifsi&r. Borse: 
Dic-se Spiel bieFeT wirkUch einen riervorrogenderi Emstieg in* 
florscnkarusspll Aufiardem sind nodi di«- Spieln Vlorin vJerurid 
Magic-Cub* enlholfcn, 
HordwarB-Anforderungen: 
C64 oder C12B bjw, C128D (64ef-Moduj). 
Floppy 1541. 1570 oder 1571 und Joystick. 
Betfell-Nr. 90429. ISBN 349090 429-7 
* 







Spiele- 
sammlung 



BiMard: Bonden- oder Lachbiltard, allein 
oder zu .zwei'f, das isf hier die eine Frage. 
Wie Du die Kugeln dann einlochst, erne gonz 
andera. Tonti: Ein achn&llfis Avge und ge- 
ich-tktfi Honde om Joyttick werden ver- 
loingl, um audi einmol eine Tonioube zu ■^"^■^■^■^■^■^■^■" 
trefren. Frelheih Du bisl auf einer Insa!, qefarigen im unlersten 
Vedias. Wia fluchlesl Du iur Nochbornsel? Der V^feg wlrd schwie- 
r[g, denn bis zu hunden Roumesind zu mei stern. EinTextadvanlura 
besonderef Klasse. Apokalypjft Now; Ein Hubsc^uber- 
Klass[ker,eiTi Spiel miftodl'ichem Ausaang - nichtunbedingt fur Dich 
- aber nur, wenn Du ora Joystick Pronquolitaten vorweisen kannst. 
Black out: Ein Spielhcillenhit Fur den C64. Reakrionsv$rm6gan f 
eine ruhige Hand und ein bifkhen Gluck gehonen sdion dazu, um 
alle BJocke abzuschieBen. Aquonl'Or: Waiier, Wosser, VVaisar, 
so wvii dar Bildschirm rekhi. N ur sthnel! ^inen Domm errichlen und 
BsffSig punk ten, wenn man im Trockenen sitzl. TodHehes Dioxtii: 
Du hosi vier KochnioderneHubsdirauberund bin selbsiein wag emu ri- 
qer, unerKhrockener Piled, Der Makenander SacKeisfdia Fracm-tod- 
Odie^DtoxirL Libra: Du flisgstfur die in^raabkiiscke FtidenoHori der 
Raumrrtter und roiiesr ein unabho/igige* Sonnenfystem. Dasher: 
Pat-Man. stand Pale fur dieses Spiel. Zu den bekannron Funktionen, 
wie Punkte Frassert und Gegner vernlchien, erhaltst Du die Mogjichkeft, 
eigene Spielfalder zu enrwarfen und OLrfzubouen, Bundesligo 
Manager: Ener der IS Bundesiigadubs wartel auf Dem Mum'lalent 
und Du host wfrkEichi n>dchrfige Miltel zur Hand, um erfoigneich zu 
ogieren. AuFkerdem sind nodi die Spiele Golf T ZauberiehlaB, 
Steel Slab und Space Invader enthraJten. 
&estel|-Nr r 90428, ISBN 3^89090-428-9 

DM39,-* 



(sFr 35,90765 331,90*) 



DM39. 



(sFr 35,9076S 331,90*) 



* Unverbindliche Pfeisempfehbng 




Auch dieser drilte Band der erfolgreichen 
Spiel eb ibltothek entf uhrt Sie in eine ia uber- 
ha he SpieFewelt! Ei erwarien Sle wiedef 
man nigra hige Gefahren. mit Zauberem, 
Agenten und Bo'wwichten, Alle zwalf 
Spiele sind verstandlich b«schrieben, mil 
Farbigen Bildsdiirmfaias kurz vorgssfe-lh. und mit dem auf der 
Diskette enthaltefie-n SchneU-LadeF lossen sich d\s Lodezeiten 
verkurzefi. 

Arabian Ireasurehunt; lm Morqenland einen magischen 
Teppich zu Finden, durhs keina leicrira AuFgabe ioin, oder? 
BlacVn Bubble: Wertn Sie sJclh schon ols Zouberef betotigen 
muftlen, worum donn so, doll Sie von Ihren eigenen Produkten 
gefahrdes werdefl? Raba's Reenge: Helfen Sie dem armen 
Robo-Egg dutch ein geFahrliches Labynnltil Hate ef the Bo nei: 
Hier sind Herven geffagl, Es isr schtlelllich nichr allraglich, d-pR 
man Knachen sammeln gehi,., Quadranold: Eirte ouRersi pro- 
fes-iioneile Umseijung des bekannren SpieJhaHenhils Arcanoid. 
Future Race; Zwei Personen kennen auF je einem halben Bild- 
schirm Rennenaustragen. Sie glauben das nicht? Schauen Sie rein! 
Riftko: Die Poliiiker kann-en das nieht. Da miissen in der Kriegs- 
fuhrung so erfahrene Lffute wie Sie ran. Copter-Fight; Hindem 
Sie einen Spion om VerEossen der Sradt. Asteroids 64: D\a 
erste Umsetzungdes bekannten AutomaiefiipJels. Odyssey:: Hier 
gill as, voni ainar vermein'licri efafacntti Insel wieder in die Zivili- 
soiion luKickiufinden. Verminator: Sie besitzen einen Kampf- 

Ean?er der neuesten Art und niussen eine ganze Sradt vor dam 
inlergang reHen. Der klefne Hob bit: Dieia deuh-he Version 
des bekannren Adveniuras halt lich mehr an das Buch ols 
dasenglische Original! 
Hardware-Anforderungen 

C64 oder C 128 bzw.C128D [64'er Modus), Floppy 1541, 1570 
oder 1571 und Joystick, 
Besldl-Nr. 90596, ISBN 3-89090 5960< 

* (sFr35,90*/6S 331,90*) 
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Software ■ Schuiung 

MarlttSTechnik Veriog AG, Buchverlag, Hons-Pinsel-StfaRe 2, 8013 Hoar bei Miinclien, Telefon (089] 4613-0 

Bestellungen im Auslond bitte on: SCHWEIZ: Markt&Technili Vertriebs AG, Kollerstrosse 3, CH-6300 Zug, Telefon (042) 415656, OSTERREICH: Morkt&Technik Veriog 

Geselischoft m.b.H., GroRe Neugasse 28, A-1040 Wien, Telefon (0222) 5871393-0; Rudolf LechnerSSotin, HeizwerkstrofJe 10, A-1232 Wien, Telefon (0222) 677526; 

Uebeireuter Media Verlagsges.mbH (GroGhoWel), Loudongasse 29, A-1082 Wien, Telefon (0222) 48 15 43-0. 




Ha ben Sie schon mal Prof i-Sof tware 
zum Buchpreis gekauft? 

»Bookware« - das sind professionelle Programme zum Preis eines Buches! _ 



M.Pahl.T. Rullkotter, M.Kuk 
C64/C128 MasteiText Plus 

1988, 201 Seiten, inkl. Diskette 
MasterText Plus- die leistungsfahige 
Textverarbeitung: 40-Zeichen- und 80- 
Zeichen-Ausgabe - Suchen und Ersetzen 
- Silbentrennung - Blockoperationen - 
Formularverwaltung - integrierte Centro- 
nics-Schnittstelle - jetzt mit Rechtschreib- 
korrektur und AdrefJverwaltung - Kompri- 
mteren von Texten - individuelle Farb- 
gebung und Druckeranpassung - freie 
Tastenbeiegung - Zeichensatz-Editor - 
komfortable Druckeranpassung: Drucker- 
treiber fur MPS 801, MPS 802, Epson- 
Drucker und Kompatible. 
Bestell-Nr. 90527, ISBN 3-89090-527-7 
DM 59,-* (sFr 54.3076S 502,-*) 




S. Baioui 
C64/C128 MasterBase 
1988, 155 Seiten, inkl. Diskette 
Die professionelle Dateiverwaltung fur 
den C64/C128. Besondere Leistungs- 
merkmaie: integrierte Cent ran ics-Schn itt- 
stelle - Export und Import von Daten - 
nachtragliche Veranderung der Struktur 
einer bereits bestehenden Datei - Tastatur- 
Makros - einfache Bedienung uber Win- 
dows und Pull-down-Menus - als einzige 
Dateiverwaltung fur den C64 erlaubt Ihnen 
MasterBase, beliebig viele Indexfelder zu 
verwenden (extrem schnelle Suche nach 
bestimmten Daten; selbst groGte Dateien 
werden in Nullzeit umsortiert). 
Bestell-Nr. 90583, ISBN 3-89090-583-8 
DM 59,-* (sFr 54,307oS 502,-*) 



Markt&Technik-Produkte erhalten Sie in den 
Fachabteilungen der Warenhauser. 
im Versa ndhandel, in Computerfachgeschaften 
oder bei Ihrem Buchhandler. 




W. Oppacher, K. Oppacher, M. Wenzel 
C64/C128 Giga Paint 
1988, 261 Seiten, inkl. 2 Disketten 
Ein professionelles Mal- und Zeichenpro- 
gramm: stufenloses Verkleinern, Vergro- 
8ern und Verzerren - Zeichnen von Kurven 
durch belie bige Punkte und 3-D-Operatio- 
nerj unter Verwendung aller 16 Farben - 
Kompatibilitat zu uber 30 Grafikprog ram- 
men - universelle Druckroutine fur fast 
jeden grafikfahigen Drucker - Ausdruck 
beliebiger Bildausschnitte -frei definier- 
bare Graustufen - Basic-Erweiterung - 
beliebige Positionierung von Bildschirm- 
ausschnitten - Programmierung flimmer- 
freier Rasterinterrupts und vieles mehr. 
Bestell-Nr. 90619, ISBN 3-89090-619-2 
DM 59,-* (SFr 54.3076S 502,-*) 

Unverbindliche Preisempfehlung 



Markt&T echnik 

Zeitschriften • Bucher 
1 Software ■ Schulung 

Markt&Technik Veflag AG, Buchverlag, Hans-Pi nsel-StraSe 2, 
8013 Haar bei Miinchen, Telefon (089) 4613-0. 
SCHWEIZ: Markt&Technik Vertriebs AG, Kbllerstrasse 3, CH-6300 Zug, Telefon (042) 41 5656, 
GSTER R E I CH : Ma rkt &Tech n i k Verl ag Gesel I sc h aft m .b. H . , Grofle N eugasse 28. A-1 040 Wien , Telefon (02 22) 5 87 1 3 93-0, 

Rudolf Lechner&Sohn, HeizwerkstraSe 10. A-1232 Wien, Telefon (0222) 677526 
Ueberreuter Media Verlagsges.mbH (GroBhandel), Laudongasse 29, A-1082 Wien, Telefon (0222) 481543^0. 







ragen Sie Ihren 

Fachhandler nach unserem 
kostenlosen Gesamtverzeichnis 
mit iiber 500 aktuellen 
Com puts rbiicherr und Software. 
Oder fordern Sie es direkt 
beim Veflag an! 



